Anasayfa > Kodlar > Visual Basic 6 ile Sayısal loto programı

Visual Basic 6 ile Sayısal loto programı





Kısa kodlarla yazılmış iyi bir sayısal loto programı
Yeni bir form açıp bir command button ve altı adet text box ekledikten sonra aşağıdaki kodları kopyalayıp kod kısmına yapıştırın.





Private Sub Command1_Click()
Randomize Timer
text1.Caption = Int(Rnd * 49) + 1
text2.Caption = Int(Rnd * 49) + 1
text3.Caption = Int(Rnd * 49) + 1
text4.Caption = Int(Rnd * 49) + 1
text5.Caption = Int(Rnd * 49) + 1
text6.Caption = Int(Rnd * 49) + 1
End Sub

Private Sub Text1_Change()
If text1.Caption = text2.Caption Or text1.Caption = text3.Caption Or text1.Caption = text4.Caption Or text1.Caption = text5.Caption Or text1.Caption = text6.Caption Then
text1.Caption = Int(Rnd * 49) + 1
End If
End Sub

Private Sub Text2_Change()
If text2.Caption = text1.Caption Or text2.Caption = text3.Caption Or text2.Caption = text4.Caption Or text2.Caption = text5.Caption Or text2.Caption = text6.Caption Then
text2.Caption = Int(Rnd * 49) + 1
End If
End Sub

Private Sub Text3_Change()
If text3.Caption = text1.Caption Or text3.Caption = text2.Caption Or text3.Caption = text4.Caption Or text3.Caption = text5.Caption Or text3.Caption = text6.Caption Then
text3.Caption = Int(Rnd * 49) + 1
End If
End Sub

Private Sub Text4_Change()
If text4.Caption = text1.Caption Or text4.Caption = text2.Caption Or text4.Caption = text3.Caption Or text4.Caption = text5.Caption Or text4.Caption = text6.Caption Then
text4.Caption = Int(Rnd * 49) + 1
End If
End Sub

Private Sub Text5_Change()
If text5.Caption = text1.Caption Or text5.Caption = text2.Caption Or text5.Caption = text3.Caption Or text5.Caption = text4.Caption Or text5.Caption = text6.Caption Then
text5.Caption = Int(Rnd * 49) + 1
End If
End Sub
Private Sub Text6_Change()
If text6.Caption = text1.Caption Or text6.Caption = text2.Caption Or text6.Caption = text3.Caption Or text6.Caption = text4.Caption Or text6.Caption = text5.Caption Then
text6.Caption = Int(Rnd * 49) + 1
End If
End Sub

 

TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s