Sayısal Loto

Bu dersimizde Sayısal Loto programı yapmayı ele aldık. Umarım işinize yarar.

Bu dersimizde Sayısal Loto programı yapmayı ele aldık. Umarım işinize yarar.



Kullanmamız gereken 1 command button, 6 tane textbox olacak. Aşağıdaki kodları kullanarak lotomuzu yapabiliriz.


Dim a, b, c, d, e, f As Integer

Private Sub Command1_Click()

Randomize

a = Int(Rnd(50) * 50)

If (a = 0) Or (a = b) Or (a = c) Or (a = d) Or (a = e) Or (a = f) Then

Randomize

a = Int(Rnd(50) * 50)

End If

Randomize

b = Int(Rnd(50) * 50)

If (b = 0) Or (a = b) Or (b = c) Or (b = d) Or (b = e) Or (b = f) Then

Randomize

b = Int(Rnd(50) * 50)

End If

Randomize

c = Int(Rnd(50) * 50)

If (c = 0) Or (a = c) Or (b = c) Or (c = d) Or (c = e) Or (c = f) Then

Randomize

c = Int(Rnd(50) * 50)

End If

Randomize

d = Int(Rnd(50) * 50)

If (d = 0) Or (a = d) Or (d = b) Or (c = d) Or (d = e) Or (d = f) Then

Randomize

d = Int(Rnd(50) * 50)

End If

Randomize

e = Int(Rnd(50) * 50)

If (e = 0) Or (a = e) Or (e = b) Or (e = c) Or (d = e) Or (e = f) Then

Randomize

e = Int(Rnd(50) * 50)

End If

Randomize

f = Int(Rnd(50) * 50)

If (f = 0) Or (f = a) Or (b = f) Or (f = c) Or (f = d) Or (e = f) Then

Randomize

f = Int(Rnd(50) * 50)

End If

Text1.Text = a

Text2.Text = b

Text3.Text = c

Text4.Text = d

Text5.Text = e

Text6.Text = f

End Sub







Private Sub Command2_Click()

Form2.Visible = True



End Sub



Private Sub Form_Load()



End Sub



Başarılar arkadaşlar....
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

ellerinize sağlık. verdiğiniz bilgiler için çok teşekkür ederim. öğretici ama bu tür derlerde hangi satırların ne gibi işe yaradıklarını açıklamanız daha da iyi olacaktır eminim. mesela ben yeni başladım ve "Int(Rnd(50) * 50) ne işe yarar anladım (0 dan 50 ye kadar sayıları atıyor) ama bunu ilk gördüm bunların da açıklamalarını yazarsanız minnettar olurum
bişey anladıysam arab olayım
bu kodları nasıl yazıyosunuz acaba bnm anlamadığım nokta orası :hayret::D:gul::agla::uzul::kirp::sasir::-dusun:
USTA BU KODLARI COMMAND BUTONA MI YAZACAGIZ
ya ben o resimleri nasıl yaptınız onu sorcam..:-dusun: we mümkünse bu sefer daha detaylı anlatabilr misiniz lütfen..
ya arkadaşlar ben yapıom ama çalışmıo bilinmeyen dosya olarak gösterio Allah Rızası İçin Bilen burak_durukan@hotmail.com adresini msn den eklesin tarif etsin :S
:agla::uzul::agla::agla::agla::agla: yapamıom :(
saol işe yarıyo bunu geliştirirsek spr olur :)
Resim nasıl Ekledin yardım Edermisin ?
ya yazıyorum ifadelerin altı tırtıklı olarak çıkıyo lütfen hataları düzeltebilirmisiniz? biz yeni öğrenenler için çok zorluk çekiyoruz.

Yukarı Git