Skip to main content

AccessTr.neT


Visual Basic'te On Numara Programı

Visual Basic'te On Numara Programı

#1
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]
PROGRAMMER MEHMET
Cevapla
#2
Teşekkürler Sn gitarc..
Cevapla
#3
Emek ve paylaşım için teşekkürler.
Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task