Anasayfa > Kodlar > Visual Basic 6 ile Sayı tutmak

Visual Basic 6 ile Sayı tutmak





İçinizden bir sayı tutunuz





Dim a As Integer
Dim q As Integer
Dim z As Integer
Private Sub Command1_Click()
Text1 = a
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyX Then
Unload Me
End If
If KeyCode = vbKeyS Then
Randomize
a = Int(100 * Rnd() + 1)
End If
If KeyCode = vbKeyT Then
z = InputBox("sayıyı giriniz")
End If
If KeyCode <> vbKeyS And KeyCode <> vbKeyX Then
If z = a Then MsgBox ("tebrikler bildiniz")
If z < a Then MsgBox ("girilen sayı tutulan sayıdan küçük")
If z > a Then MsgBox ("girilen sayı tutulan sayıdan büyük")
End If
If z <> a Then
q = q + 1
End If
If q = 6 Then
MsgBox ("hakkınız kalmadı.")
MsgBox ("yeniden başlamak için S harfine basınız")
End If
If z = a Then
q = 0
End If
End Sub

 

TD Software


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

Bir Yanıt Bırakı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