Başlangıç > Kodlar > Visual Basic 6 ile Sayı tahmin oyunu

Visual Basic 6 ile Sayı tahmin oyunu





Hafızanın tuttuğu sayıyı tahmin etmeye çalışıyorsunuz...Eğlenceli ve öğretici bir oyun programı...





Dim a, hile As Integer
Dim X, puan As Byte

Private Sub Command1_Click()
Label4.Visible = True
Randomize Timer
If Option1.Value = True Then
    a = Round(Rnd * 100)
ElseIf Option2.Value = True Then
    a = Round(Rnd * 1000)
ElseIf Option3.Value = True Then
    a = Round(Rnd * 10000)
End If
Text4 = a
End Sub

Private Sub Command2_Click()
cvpx = MsgBox("'Bir Sayı Tut' dedikten sonra tutulan sayıyı tahmin ediyorsunuz...", vbInformation, "uSSoft Yazılım - Berkan USLU")
End Sub

Private Sub Form_Load()
Option1.Value = True
X = 1
puan = 100
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) And (Text1 <> "") And (a <> 0) Then
    If Val(Text1) = a Then
        Text3 = puan
        cvp = MsgBox("Puanınız -" & puan & "- Tekrar Yarışmak İster Misiniz ?", vbQuestion + vbYesNo, "uSSoft Yazılım")
        If cvp = 6 Then
            X = 0
            Text1 = ""
            Text2 = ""
            Text3 = ""
            puan = 100
            a = 0
            Command1.SetFocus
            Label4.Visible = False
         Else
            End
        End If
    ElseIf Val(Text1) < a Then
        Text2 = "Yukarı"
        puan = Round(puan / 2)
    ElseIf Val(Text1) > a Then
        Text2 = "Aşağı"
        puan = Round(puan / 2)
    End If
    If puan = 0 Then
        Text3 = puan
        cvp = MsgBox("Puanınız -" & puan & "- Tekrar Yarışmak İster Misiniz ?", vbQuestion + vbYesNo, "uSSoft Yazılım")
        If cvp = 6 Then
            X = 0
            Text1 = ""
            Text2 = ""
            Text3 = ""
            puan = 100
            a = 0
            Command1.SetFocus
            Label4.Visible = False
        Else
            End
        End If
    End If
        X = X + 1
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1)
End If
End Sub

 

TD Software


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