Başlangıç > Kodlar > Visual Basic 6 ile Sayısal loto taktikleri ile birlikte

Visual Basic 6 ile Sayısal loto taktikleri ile birlikte





Bu programı hazırlamak için bayağı uğraştım ama sonunda yaptım.Kodları biraz uzun ve bazende istenilen taktiğe göre programın random sayı bulması güçleşiyor.
Private Sub Command1_Click()
If tb.Value = False And rb.Value = False Then
MsgBox ("Taktik seçerekmi? Yoksa rastgelemi oynamak istiyorsunuz? Lütfen bir seçenek belirtiniz.")
Else
If tb.Value = True And sayı = "" Then
MsgBox ("Lütfen taktik seçiniz.")
Else
If rb.Value = True Then
t1 = Int(Rnd * 6)
t2 = Int(Rnd * 6)
t3 = Int(Rnd * 6)
t4 = Int(Rnd * 6)
t5 = Int(Rnd * 6)
t6 = Int(Rnd * 6)
Text1 = Int(Rnd * 10)
Text2 = Int(Rnd * 10)
Text3 = Int(Rnd * 10)
Text4 = Int(Rnd * 10)
Text5 = Int(Rnd * 10)
Text6 = Int(Rnd * 10)
bir = (t1 * 10) + Text6
iki = (t2 * 10) + Text5
üç = (t3 * 10) + Text4
dört = (t4 * 10) + Text3
beş = (t5 * 10) + Text2
altı = (t6 * 10) + Text1
While t1 = 0 Or t2 = 0 Or t3 = 0 Or t4 = 0 Or t5 = 0 Or t6 = 0 Or bir = iki Or bir = üç Or bir = dört Or bir = beş Or bir = altı Or iki = üç Or iki = dört Or iki = beş Or iki = altı Or üç = dört Or üç = beş Or üç = altı Or dört = beş Or dört = altı Or beş = altı Or bir > 49 Or iki > 49 Or üç > 49 Or dört > 49 Or beş > 49 Or altı > 49 Or bir = 0 Or iki = 0 Or üç = 0 Or dört = 0 Or beş = 0 Or altı = 0
For a = 1 To 50
t1 = Int(Rnd * 6)
t2 = Int(Rnd * 6)
t3 = Int(Rnd * 6)
t4 = Int(Rnd * 6)
t5 = Int(Rnd * 6)
t6 = Int(Rnd * 6)
Text1 = Int(Rnd * 10)
Text2 = Int(Rnd * 10)
Text3 = Int(Rnd * 10)
Text4 = Int(Rnd * 10)
Text5 = Int(Rnd * 10)
Text6 = Int(Rnd * 10)
bir = (t1 * 10) + Text1
iki = (t2 * 10) + Text3
üç = (t3 * 10) + Text2
dört = (t4 * 10) + Text5
beş = (t5 * 10) + Text6
altı = (t6 * 10) + Text4
If bir > 49 Then
bir = bir - 50
End If
If iki > 49 Then
iki = iki - 50
End If
If üç > 49 Then
üç = üç - 50
End If
If dört > 49 Then
dört = dört - 50
End If
If beş > 49 Then
beş = beş - 50
End If
If altı > 49 Then
altı = altı - 50
DoEvents
End If
Next a
Wend
Else
Randomize Timer
If sayı = "11112" Then
t1 = Int(Rnd * 6)
t2 = Int(Rnd * 6)
t3 = Int(Rnd * 6)
t4 = Int(Rnd * 6)
t5 = Int(Rnd * 6)
t6 = Int(Rnd * 6)
Text1 = Int(Rnd * 10)
Text2 = Int(Rnd * 10)
Text3 = Int(Rnd * 10)
Text4 = Int(Rnd * 10)
Text5 = Int(Rnd * 10)
Text6 = Int(Rnd * 10)
bir = (t1 * 10) + Text6
iki = (t2 * 10) + Text5
üç = (t3 * 10) + Text4
dört = (t4 * 10) + Text3
beş = (t5 * 10) + Text2
altı = (t6 * 10) + Text1
While t1 = 0 Or t2 = 0 Or t3 = 0 Or t4 = 0 Or t5 = 0 Or t6 = 0 Or t1 = t2 Or t1 = t3 Or t1 = t4 Or t1 = t5 Or t1 = t6 Or t2 = t3 Or t2 = t4 Or t2 = t5 Or t2 = t6 Or t3 = t4 Or t3 = t5 Or t3 = t6 Or t4 = t5 Or t4 = t6 Or t5 <> t6 Or bir = iki Or bir = üç Or bir = dört Or bir = beş Or bir = altı Or iki = üç Or iki = dört Or iki = beş Or iki = altı Or üç = dört Or üç = beş Or üç = altı Or dört = beş Or dört = altı Or beş = altı Or bir > 49 Or iki > 49 Or üç > 49 Or dört > 49 Or beş > 49 Or altı > 49 Or bir = 0 Or iki = 0 Or üç = 0 Or dört = 0 Or beş = 0 Or altı = 0
t1 = Int(Rnd * 6)
t2 = Int(Rnd * 6)
t3 = Int(Rnd * 6)
t4 = Int(Rnd * 6)
t5 = Int(Rnd * 6)
t6 = Int(Rnd * 6)
Text1 =

 

TD Software


Reklamlar
  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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s