Visual Basic : Basit Kura Çekme Programı

İndir : http://www.mediafire.com/download/adc9u8d903dubpx/kura+cekme.rar
VT:https://www.virustotal.com/tr/file/e1adf4647449f3da220d764680f3a867588cd047c19ed0620db84e11741301f7/analysis/1334855945/

' M.Y Project
' https://twitter.com/#!/myprojectz

Private Sub ekle_Click()
'amaç : Text'e girilen ismi listeye gecirmek ve aynı anda listedekiler adlı labeldeki sayıyı 1 attırmak
'böylelikle listeye kac isim girilmiş biliyoruz
If isim.Text = ("") Then ' isim girilcek olan text kutumuz boş ise ;
MsgBox "İsim Giriniz ", vbCritical, "aboo67" ' hata mesajı acılıp isim girilmesini istiyelim
Else ' eger textimizde yazı yazıyorsa
'textdeki yazıyı listeye ekle
liste.AddItem isim.Text
isim.Text = ("") 'sonra eklencek olan isim için kolaylık sağlamış olduk öncekini silip yazmasına gerek yok
'labeldeki sayıyı 1  arttır yani bu sayede listeye girilen isim sayısını biliyoruz
'listeye her isim girildiginde sayıyı 1 arttırcaktır
listedekiler.Caption = listedekiler.Caption + 1
End If
End Sub
Private Sub kura_Click()
'amac : listeye girilen isim sayısından kücük rasgele bir sayı üretip bu sayı dorultusunda listeden index seçmek
Dim aboo67 As String
If listedekiler.Caption = ("0") Then ' Eger liste boş iken kura cekilirse hata mesajımız gözüksün
MsgBox "Hata Liste Boş", vbCritical, "aboo67"
Else '  listede isim ekli iken ;
aboo67 = listedekiler.Caption 'aboo67 degerine listede kac isim oldugunu tanımlıyalım
'listboxda index basit olarak listedeki isim sırası olarak tanımlayabiliriz
'ilk satırdaki isimin indexsi 0 dır
'sonra peşine gelen satırlar 1-2-3-4-5-6 diye gidicektir
liste.ListIndex = Int(Rnd * aboo67) 'listeye girilen isim sayısından kücük bir sayı üretip indexsimizi seciyoruz
'yani listeye 4 isim girildiyse 4 ve 4den kücük rasgele bir sayı oluşturup listenin indexsi seciliyor
'örnegin listenin indexsi 4 olarak secilirse 5ci sıradaki ismi seciyor
MsgBox liste, vbDefaultButton1, "aboo67"  ' isimi sectikten sonra Msgbox olarak bize bildiriyor
End If
End Sub
Private Sub Command1_Click() ' burdaki amac girilen isimleri ve listeyi temizlemek
listedekiler.Caption = ("0")
liste.Clear
End Sub