Sayısal Loto

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Bu dersimizde Sayısal Loto programı yapmayı ele aldık. Umarım işinize yarar.

Kullanmamız gereken 1 command button, 6 tane textbox olacak. Aşağıdaki kodları kullanarak lotomuzu yapabiliriz.

Dim a, b, c, d, e, f As Integer
Private Sub Command1_Click()
Randomize
a = Int(Rnd(50) * 50)
If (a = 0) Or (a = b) Or (a = c) Or (a = d) Or (a = e) Or (a = f) Then
Randomize
a = Int(Rnd(50) * 50)
End If
Randomize
b = Int(Rnd(50) * 50)
If (b = 0) Or (a = b) Or (b = c) Or (b = d) Or (b = e) Or (b = f) Then
Randomize
b = Int(Rnd(50) * 50)
End If
Randomize
c = Int(Rnd(50) * 50)
If (c = 0) Or (a = c) Or (b = c) Or (c = d) Or (c = e) Or (c = f) Then
Randomize
c = Int(Rnd(50) * 50)
End If
Randomize
d = Int(Rnd(50) * 50)
If (d = 0) Or (a = d) Or (d = b) Or (c = d) Or (d = e) Or (d = f) Then
Randomize
d = Int(Rnd(50) * 50)
End If
Randomize
e = Int(Rnd(50) * 50)
If (e = 0) Or (a = e) Or (e = b) Or (e = c) Or (d = e) Or (e = f) Then
Randomize
e = Int(Rnd(50) * 50)
End If
Randomize
f = Int(Rnd(50) * 50)
If (f = 0) Or (f = a) Or (b = f) Or (f = c) Or (f = d) Or (e = f) Then
Randomize
f = Int(Rnd(50) * 50)
End If
Text1.Text = a
Text2.Text = b
Text3.Text = c
Text4.Text = d
Text5.Text = e
Text6.Text = f
End Sub



Private Sub Command2_Click()
Form2.Visible = True

End Sub

Private Sub Form_Load()

End Sub

Başarılar arkadaşlar....

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[brkdnh]

panpa yaww 2010da command button yok yaa...

 

[umit99]

Eyvallah.

 

[Karcemackers]

Paylasım icin tesekkurler.