'İlk önce açtığınız forma 7 tane label 2 tane text 1 tanede command butonu koyun ve başlayalım 'ilk önce burda değişkenleri tanımlıyoruz.. dim müsteriver as integer dim müsteritutar as integer 've burda tanımladığımız değişkenleri textlere tanıtıyoruz müsteriver = text1 müsteritutar = text2 dim para as integer 'para Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 
17 Eylül 2011 02:57 | 
Comments (0)
selam sitemize genelde ziyaretçi olarak katılıyrdum bu gün üye olmaya karar verdim yazılımcılıkla hobi olarak uğraşıyorum az da olsa benimde faydam dokunur diye düşündüm iyi bilenlerin şimdiden affına sığınıyorum ne yapayım derken aklıma çizim proğramı denemelerimden biri geldi neden olmasın dedim ve line komutunu ele alan bir Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 02:43 | Comments (0)
Dim a As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d() As String, i, f, j, g, ff, gg As Short
a = TextBox1.Text
If a = "" Then
MsgBox("Lütfen metni giriniz.", MsgBoxStyle.Information, "Metin girilmedi!")
Else
ListBox1.Items.Clear()
d = a.Split(" ")
For i = 0 To UBound(d)
j = Okumaya Devamet (More..)... Visual Basic | Alpim42 | 02:30 | Comments (0)
Option Explicit
Private Sub cmdHesapla_Click()
Dim Gun As Integer
Dim Tarih As Date
If txtYil.Text = "" Or txtYil.Text < 1800 Then _
txtYil.Text = "": txtYil.SetFocus: Exit Sub
If txtHafta.Text = "" Or txtHafta.Text > 52 Then _
txtHafta.Text = "": txtHafta.SetFocus: Exit Sub
Tarih = CDate("01/01/" + Str(txtYil.Text))
For Gun = 0 To 365
If DatePart("ww", Okumaya Devamet (More..)... Visual Basic | Alpim42 | 02:19 | Comments (0)
Public Function Doldur(Sayi As Long, Boyut As Integer) As String Doldur = Trim(String(Boyut - Len(Trim(str(Sayi))), "0") + Trim(str(Sayi))) End FunctionOkumaya Devamet (More..)...
Visual Basic | Alpim42 | 02:17 | Comments (0)
Private Function TelFormat(TelNo As String) As String
If Len(Trim(TelNo)) <= 7 Then TelFormat = ""
'7725410 -> 772 54 10
If Len(Trim(TelNo)) = 7 Then _
TelFormat = Mid(TelNo, 1, 3) + " " + Mid(TelNo, 4, 2) + " " + _
Mid(TelNo, 6, 2)
' 2667725410 -> (266) 772 54 10
If Len(Trim(TelNo)) = 10 Then _
TelFormat = "(" + Mid(TelNo, 1, 3) + ") " + Mid(TelNo, 4, 3) + Okumaya Devamet (More..)... Visual Basic | Alpim42 | 02:05 | Comments (0)
Aşağıdaki kodları kullanarak seçilen pencereyi kapatan bir program yapabilirsiniz.
Form kodları
---------------------
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5340
ClientLeft = 60
ClientTop = 345
ClientWidth = 10470
LinkTopic = "Form1"
ScaleHeight Okumaya Devamet (More..)... Visual Basic | Alpim42 | 01:38 | Comments (0)
Dim WithEvents RsERRORS As Recordset Dim DbConnection As ADODB.Connection Dim sn as Integer sn=0 ----- Private Sub Form_Load() Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 Set DbConnection = New ADODB.Connection With DbConnection .Provider = "Microsoft.JET.OLEDB.4.0" .Open App.Path & "\DataBase\Deneme.mdb" End With Set RsPLANLAMA = New Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 01:14 | Comments (0)
İlk önce böyle bir form oluşturalım 2 label 2 text1 1 command ekleyin ve kendinize göre forma yerleştirin Private Sub Command1_Click() Select Case Text1.Text 'Bu kısımda kullanıcı adı kısmını tanıtıyoruz Case Is = "" 'Burada ise kullanıcı kısmı boş olduğunda ne yapmak istediğiniz seçersiniz MsgBox " Bu kısmı boş Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 00:50 | Comments (0)
bu api'yi kullanmak için önce api çağrısını yapmalıyız.general declaration bölümüne api çağrımızı yazıyoruz.ancak siz bu apiyi tek bir satırda yazın ve .................................................. option explicit Private Declare Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Okumaya Devamet (More..)...
Visual Basic | Alpim42 | 00:42 | Comments (0)
Subscribe
