Çekiliş Programı Yardım?
- Konuyu başlatan ozkan405
- Başlangıç tarihi
HackerrrxD
Uzman üye
Kardeşim Bunun Online Olması İçin İnternet Üzerinden Veritabanına Bağlaman Lazım.
- Konuyu başlatan
- #4
Kardeşim Yorumun İçin Saol Ama Ben Bir Oyun İçin İsityorum Bunu Adamları Ekliyeceğim Çekilişe kazanana Eşya Falan Vereceğim amacım Bu Yardımcı Olabilirmisiniz bu Program Bende Var ama Daha Farklı Yapmak İstiyorum Daha Da Geliştircem Tabikide
Ben Yardım edim kusura bakma acıklamaya vaktim yok acelem var cıkmam lazım ! 
Vaktim oldugu zaman daha iyisini yazar veririm
[url=http://www.mediafire.com/?xx11lzivam15mwr]kura cekme.rar [url]https://tik.lat/VCPBG
Kod:
Private Sub Command1_Click()
listedekiler.Caption = ("0")
liste.Clear
End Sub
Private Sub ekle_Click()
liste.AddItem isim.Text
listedekiler.Caption = listedekiler.Caption + 1
End Sub
Private Sub kura_Click()
Dim aboo67
If listedekiler.Caption = ("0") Then
MsgBox "Hata Liste Boş", vbCritical, "aboo67"
Else
aboo67 = listedekiler.Caption
liste.ListIndex = Int(Rnd * aboo67)
MsgBox liste, vbDefaultButton1, "aboo67"
End If
End SubVaktim oldugu zaman daha iyisini yazar veririm
[url=http://www.mediafire.com/?xx11lzivam15mwr]kura cekme.rar [url]https://tik.lat/VCPBG
- Durum
