Başlangıç > Kodlar > Visual Basic 6 ile kumar makinesi yapmak

Visual Basic 6 ile kumar makinesi yapmak


Basit bir kumar makinesi oyunu çalışması

Dim basari As Single
Dim oyun As Integer
Dim sayi As Integer
Private Sub Command1_Click()
oyun = oyun + 1
Image1.Visible = False
Shape1.Visible = True
Shape2.Visible = True
Shape3.Visible = True
a = Int(Rnd * 10)
b = Int(Rnd * 10)
c = Int(Rnd * 10)
Label1.Caption = a
Label2.Caption = b
Label3.Caption = c
If a = 7 Or b = 7 Or c = 7 Then
sayi = sayi + 1
Image1.Visible = True
Beep
End If
Label11.Caption = oyun
Label12.Caption = sayi
basari = (sayi / oyun) * 100
Label13.Caption = basari
End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Select Case basari
Case Is < 25
MsgBox "Şansız Sayılırsınız", vbOKOnly, "Uğurlu Yedi 1.0"
Case Is < 50
MsgBox "Şansınız Ortalamanın Altında", vbOKOnly, "Uğurlu Yedi 1.0"
Case Is < 75
MsgBox "Şanslı Sayılırsınız", vbOKOnly, "Uğurlu Yedi 1.0"
Case Is < 100
MsgBox "Tebrikler Çok Şanslısınız", vbOKOnly, "Uğurlu Yedi 1.0"
Case Is = 100
MsgBox "Tek Kelime ile Muhteşemsiniz", vbOKOnly, "Uğurlu Yedi 1.0"
End Select
End Sub

Private Sub Command4_Click()
oyun = 0
sayi = 0
basari = 0
Label11.Caption = oyun
Label12.Caption = sayi
Label13.Caption = basari
End Sub

Private Sub Form_Load()
Randomize
isim = InputBox("Lütfen İsminizi Giriniz", "Uğurlu Yedi 1.0")
If isim = "" Then
isim = "Bilinmiyor"
End If
Label10.Caption = isim
Shape1.Visible = False
Shape2.Visible = False
Shape3.Visible = False
End Sub

Private Sub mnuprogrammeritem_Click()
Load Form2
Form2.Show
mnuprogrammeritem.Enabled = False
End Sub
Private Sub mnuugurluitem_Click()
mnuugurluitem.Enabled = False
Load Form3
Form3.Show
End Sub
Private Sub mnuyardimitem_Click()
Load Form4
Form4.Show
mnuyardimitem.Enabled = False

End Sub

Reklamlar
  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

%d blogcu bunu beğendi: