- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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.
Kod:
Dim a, b, c, d, e, f As IntegerPrivate Sub Command1_Click()Randomizea = Int(Rnd(50) * 50)If (a = 0) Or (a = b) Or (a = c) Or (a = d) Or (a = e) Or (a = f) ThenRandomizea = Int(Rnd(50) * 50)End IfRandomizeb = Int(Rnd(50) * 50)If (b = 0) Or (a = b) Or (b = c) Or (b = d) Or (b = e) Or (b = f) ThenRandomizeb = Int(Rnd(50) * 50)End IfRandomizec = Int(Rnd(50) * 50)If (c = 0) Or (a = c) Or (b = c) Or (c = d) Or (c = e) Or (c = f) ThenRandomizec = Int(Rnd(50) * 50)End IfRandomized = Int(Rnd(50) * 50)If (d = 0) Or (a = d) Or (d = b) Or (c = d) Or (d = e) Or (d = f) ThenRandomized = Int(Rnd(50) * 50)End IfRandomizee = Int(Rnd(50) * 50)If (e = 0) Or (a = e) Or (e = b) Or (e = c) Or (d = e) Or (e = f) ThenRandomizee = Int(Rnd(50) * 50)End IfRandomizef = Int(Rnd(50) * 50)If (f = 0) Or (f = a) Or (b = f) Or (f = c) Or (f = d) Or (e = f) ThenRandomizef = Int(Rnd(50) * 50)End IfText1.Text = aText2.Text = bText3.Text = cText4.Text = dText5.Text = eText6.Text = fEnd SubPrivate Sub Command2_Click()Form2.Visible = TrueEnd SubPrivate Sub Form_Load()End Sub
Başarılar arkadaşlar....
Kullanmamız gereken 1 command button, 6 tane textbox olacak. Aşağıdaki kodları kullanarak lotomuzu yapabiliriz.
Kod:
Dim a, b, c, d, e, f As IntegerPrivate Sub Command1_Click()Randomizea = Int(Rnd(50) * 50)If (a = 0) Or (a = b) Or (a = c) Or (a = d) Or (a = e) Or (a = f) ThenRandomizea = Int(Rnd(50) * 50)End IfRandomizeb = Int(Rnd(50) * 50)If (b = 0) Or (a = b) Or (b = c) Or (b = d) Or (b = e) Or (b = f) ThenRandomizeb = Int(Rnd(50) * 50)End IfRandomizec = Int(Rnd(50) * 50)If (c = 0) Or (a = c) Or (b = c) Or (c = d) Or (c = e) Or (c = f) ThenRandomizec = Int(Rnd(50) * 50)End IfRandomized = Int(Rnd(50) * 50)If (d = 0) Or (a = d) Or (d = b) Or (c = d) Or (d = e) Or (d = f) ThenRandomized = Int(Rnd(50) * 50)End IfRandomizee = Int(Rnd(50) * 50)If (e = 0) Or (a = e) Or (e = b) Or (e = c) Or (d = e) Or (e = f) ThenRandomizee = Int(Rnd(50) * 50)End IfRandomizef = Int(Rnd(50) * 50)If (f = 0) Or (f = a) Or (b = f) Or (f = c) Or (f = d) Or (e = f) ThenRandomizef = Int(Rnd(50) * 50)End IfText1.Text = aText2.Text = bText3.Text = cText4.Text = dText5.Text = eText6.Text = fEnd SubPrivate Sub Command2_Click()Form2.Visible = TrueEnd SubPrivate Sub Form_Load()End Sub
Başarılar arkadaşlar....