AccessTr.neT
Visual Basic'te On Numara Programı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Dersleri (https://accesstr.net/forum-visual-basic-6-dersleri.html)
+--- Konu Başlığı: Visual Basic'te On Numara Programı (/konu-visual-basic-te-on-numara-programi.html)



Visual Basic'te On Numara Programı - gitarc - 04/11/2010

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]


Cvp: Visual Basic'te On Numara Programı - ercansahin - 04/11/2010

Teşekkürler Sn gitarc..


Cvp: Visual Basic'te On Numara Programı - benremix - 04/11/2010

Emek ve paylaşım için teşekkürler.
Saygılar...