AccessTr.neT

Tam Versiyon: Visual Basic'te On Numara Programı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
1 TANE BUTON,
10TANE TEXTBOX EKLİYORUZ
FORM SAYFASINA ÖNCELİKLE BİR Class AÇIYORUZ VE İÇİNE AŞAĞIDA TANIMLAMIŞ


Public Class ON_NUMARA
Dim şans1, şans2, şans3, şans4, şans5, şans6, şans7, şans8, şans9, şans10, şans11, şans12, şans13, şans14, şans15, şans16, şans17, şans18, şans19, şans20, şans21, şans22

'---DAHA SONRA EKLEDİĞİMİZ BUTONA TIKLAYARAK(bendeki ismi buton1):---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = şans1
TextBox2.Text = şans2
TextBox3.Text = şans3
TextBox4.Text = şans4
TextBox5.Text = şans5
TextBox6.Text = şans6
TextBox7.Text = şans7
TextBox8.Text = şans8
TextBox9.Text = şans9
TextBox10.Text = şans10

şans1 = Int(Rnd(80) * 80)
If (şans1 = 0) Or (şans1 = şans2) Or (şans1 = şans3) Or (şans1 = şans4) Or (şans1 = şans5) Or (şans1 = şans6) Or (şans1 = şans7) Or (şans1 = şans8) Or (şans1 = şans9) Or (şans1 = şans10) Then
For i As Integer = 1 To 80
Randomize()
şans1 = Int(Rnd(80) * 80)
Next
End If
şans2 = Int(Rnd(80) * 80)
If (şans2 = 0) Or (şans2 = şans1) Or (şans2 = şans3) Or (şans2 = şans4) Or (şans2 = şans5) Or (şans2 = şans6) Or (şans2 = şans7) Or (şans2 = şans8) Or (şans2 = şans9) Or (şans2 = şans10) Then
For i As Integer = 1 To 80
Randomize()
şans2 = Int(Rnd(80) * 80)
Next
End If
şans3 = Int(Rnd(80) * 80)
If (şans3 = 0) Or (şans3 = şans1) Or (şans3 = şans2) Or (şans3 = şans4) Or (şans3 = şans5) Or (şans3 = şans6) Or (şans3 = şans7) Or (şans3 = şans8) Or (şans3 = şans9) Or (şans3 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans3 = Int(Rnd(80) * 80)
Next
End If
şans4 = Int(Rnd(80) * 80)
If (şans4 = 0) Or (şans4 = şans1) Or (şans4 = şans2) Or (şans4 = şans3) Or (şans4 = şans5) Or (şans4 = şans6) Or (şans4 = şans7) Or (şans4 = şans8) Or (şans4 = şans9) Or (şans4 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans4 = Int(Rnd(80) * 80)
Next
End If
şans5 = Int(Rnd(80) * 80)
If (şans5 = 0) Or (şans5 = şans1) Or (şans5 = şans2) Or (şans5 = şans3) Or (şans5 = şans4) Or (şans5 = şans6) Or (şans5 = şans7) Or (şans5 = şans8) Or (şans5 = şans9) Or (şans5 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans5 = Int(Rnd(80) * 80)
Next
End If
şans6 = Int(Rnd(80) * 80)
If (şans6 = 0) Or (şans6 = şans1) Or (şans6 = şans2) Or (şans6 = şans3) Or (şans6 = şans4) Or (şans6 = şans5) Or (şans6 = şans7) Or (şans6 = şans8) Or (şans6 = şans9) Or (şans6 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans6 = Int(Rnd(80) * 80)
Next
End If
şans7 = Int(Rnd(80) * 80)
If (şans7 = 0) Or (şans7 = şans1) Or (şans7 = şans2) Or (şans7 = şans3) Or (şans7 = şans4) Or (şans7 = şans5) Or (şans7 = şans6) Or (şans7 = şans8) Or (şans7 = şans9) Or (şans7 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans7 = Int(Rnd(80) * 80)
Next
End If
şans8 = Int(Rnd(80) * 80)
If (şans8 = 0) Or (şans8 = şans1) Or (şans8 = şans2) Or (şans8 = şans3) Or (şans8 = şans4) Or (şans8 = şans5) Or (şans8 = şans6) Or (şans8 = şans7) Or (şans8 = şans9) Or (şans8 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans8 = Int(Rnd(80) * 80)
Next
End If
şans9 = Int(Rnd(80) * 80)
If (şans9 = 0) Or (şans9 = şans1) Or (şans9 = şans2) Or (şans9 = şans3) Or (şans9 = şans4) Or (şans9 = şans5) Or (şans9 = şans6) Or (şans9 = şans7) Or (şans9 = şans8) Or (şans9 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans9 = Int(Rnd(80) * 80)
Next
End If
şans10 = Int(Rnd(80) * 80)
If (şans10 = 0) Or (şans10 = şans1) Or (şans10 = şans2) Or (şans10 = şans3) Or (şans10 = şans4) Or (şans10 = şans5) Or (şans10 = şans6) Or (şans10 = şans7) Or (şans10 = şans8) Or (şans10 = şans9) Then
For g As Integer = 1 To 80
Randomize()
şans10 = Int(Rnd(80) * 80)
Next
End If

End Sub
[/php]
Teşekkürler Sn gitarc..
Emek ve paylaşım için teşekkürler.
Saygılar...