![[Resim: nqafcx.jpg]](http://i54.tinypic.com/nqafcx.jpg)
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then ' Sayısal Loto
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
Dim sayilar(5) As Integer
Dim rsayi, sayac As Integer
sayac = 0
While sayac < 6
rsayi = Int(Rnd() * 49 + 1)
If (Array.IndexOf(sayilar, rsayi) = -1) Then
sayilar(sayac) = rsayi
sayac = sayac + 1
End If
End While
TextBox1.Text = sayilar(0)
TextBox2.Text = sayilar(1)
TextBox3.Text = sayilar(2)
TextBox6.Text = sayilar(3)
TextBox7.Text = sayilar(4)
TextBox8.Text = sayilar(5)
End If
If RadioButton3.Checked = True Then '10 Numara
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
Dim sayilar(9) As Integer
Dim rsayi, sayac As Integer
sayac = 0
While sayac < 10
rsayi = Int(Rnd() * 80 + 1)
If (Array.IndexOf(sayilar, rsayi) = -1) Then
sayilar(sayac) = rsayi
sayac = sayac + 1
End If
End While
TextBox1.Text = sayilar(0)
TextBox2.Text = sayilar(1)
TextBox3.Text = sayilar(2)
TextBox6.Text = sayilar(3)
TextBox7.Text = sayilar(4)
TextBox8.Text = sayilar(5)
TextBox4.Text = sayilar(6)
TextBox5.Text = sayilar(7)
TextBox9.Text = sayilar(8)
TextBox10.Text = sayilar(9)
End If
If RadioButton2.Checked = True Then ' Şans Topu
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
Dim sayilar(4) As Integer
Dim rsayi, sayac As Integer
sayac = 0
While sayac < 5
rsayi = Int(Rnd() * 34 + 1)
If (Array.IndexOf(sayilar, rsayi) = -1) Then
sayilar(sayac) = rsayi
sayac = sayac + 1
End If
End While
TextBox1.Text = sayilar(0)
TextBox2.Text = sayilar(1)
TextBox3.Text = sayilar(2)
TextBox4.Text = sayilar(3)
TextBox5.Text = sayilar(4)
End If
Dim sayilar2(0) As Integer
Dim rsayi2, sayac2 As Integer
sayac2 = 0
While sayac2 < 1
rsayi2 = Int(Rnd() * 14 + 1)
If (Array.IndexOf(sayilar2, rsayi2) = -1) Then
sayilar2(sayac2) = rsayi2
sayac2 = sayac2 + 1
End If
End While
TextBox8.Text = sayilar2(0)
If RadioButton4.Checked = True Then 'Süper Loto
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
Dim sayilar(5) As Integer
Dim rsayi, sayac As Integer
sayac = 0
While sayac < 6
rsayi = Int(Rnd() * 54 + 1)
If (Array.IndexOf(sayilar, rsayi) = -1) Then
sayilar(sayac) = rsayi
sayac = sayac + 1
End If
End While
TextBox1.Text = sayilar(0)
TextBox2.Text = sayilar(1)
TextBox3.Text = sayilar(2)
TextBox6.Text = sayilar(3)
TextBox7.Text = sayilar(4)
TextBox8.Text = sayilar(5)
End If
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Shell("explorer.exe https://accesstr.net")
End Sub
End Class
Kod:
Program İçin Gerekli Eklentiler
1- 10 Ad. TextBox
2- 1 Ad. Buton
3- 4 Ad. RadioButon
4- 1 Ad. GroupBox