Anasayfa > Kodlar > Visual Basic 6 ile iki listeden aynı sayıları çıkaran program

Visual Basic 6 ile iki listeden aynı sayıları çıkaran program


Bu program iki listeyi birbiri ile karşılaştırıp aynı olan sayıları
3. bir liste kutusuna ekliyor.

Bu program için gerekli olan elemanlar;
3 tane liste kutusu
3 tane command buton

Dim a(1 To 6), b(1 To 6), i(1 To 6), j(1 To 6), k, l, t, s As Integer
--------------------------------------------------------------------
Private Sub Form_Load ()
Command1.Caption="Başla"
Command2.Caption="Temzile"
Command3.Caption="Çıkış"
End Sub
--------------------------------------------------------------------
Private Sub Command1_Click()
List1.Clear
List2.Clear
List3.Clear
For k = 1 To 6
t: i(k) = InputBox(a(k), "1. Liste")
If i(k) = "" Then GoTo t
List1.AddItem i(k)
Next
MsgBox "1. Liste Bitti.", vbInformation, "1. Liste"
For l = 1 To 6
s: j(l) = InputBox(b(l), "2. Liste")
If j(l) = "" Then GoTo s
List2.AddItem j(l)
Next
MsgBox "2. Liste Bitti.", vbInformation, "2. Liste"
For k = 1 To 6
For l = 1 To 6
If i(k) = j(l) Then List3.AddItem i(k)
Next
Next
End Sub
--------------------------------------------------------------------
Private Sub Command2_Click()
List1.Clear
List2.Clear
List3.Clear
End Sub
--------------------------------------------------------------------
Private Sub Command3_Click()
End
End Sub

UMARIM BEĞENMİŞİNİZDİR. HOŞÇAKALIN
Ym54@mynet.com


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: