Hafızanın tuttuğu sayıyı tahmin etmeye calışıyorsunuz...Eğlenceli ve oğretici bir oyun
Kod:
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

__________________