Sitemize reklam vermek için [email protected] adresine mail atabilirsiniz
For Advertising Contact [email protected]


[VB] Sayısal Loto Programı JJPP

JoJoPaPi

Level 8
TM Üye
Ticaret - 0%
0   0   0
Katılım
29 Mar 2009
Mesajlar
2,980
Beğeniler
120
MmoLira
0
DevLira
0
#1
Sayısal Loto Programı
Option Explicit
Private Sub cmdoyna_Click()
Dim Loto(1 To 6) As Integer
Dim Check As Boolean
Dim i, j, hold As Integer
Loto(1) = Int(Rnd * 49) + 1

For i = 2 To 6
Do 'Aynı sayının 2 kez gilmesini engellemeliyiz...
Loto(i) = Int(Rnd * 49) + 1
Check = True
For j = 1 To i - 1
If (Loto(i) = Loto(j)) Then
Check = False
Exit For
End If
Next j
Loop Until Check
Next i
'--------------------------------------------------
'Loto Sayılarını Küçükten Büyüğe Sırala
'--------------------------------------------------
For i = 1 To 6
For j = 1 To 5
If (Loto(j) > Loto(j + 1)) Then
hold = Loto(j)
Loto(j) = Loto(j + 1)
Loto(j + 1) = hold
End If
Next j
Next i
'------------Ekrana Sayıları Yaz-------------
For i = 1 To 6
lblN(i - 1) = Loto(i)
Next i
End Sub

Private Sub cmdend_Click()
End
End Sub

Private Sub Form_Load()
Randomize Timer
End Sub
 
Üst