Zgadula
Prosty program, który sam losuje liczbę, a my następnie musimy ją odgadnąć.
Wskazuje za którym razem ta sztuka nam się udała.
Dim A, k, L As Integer
Private Sub Form_Load()
Randomize
End Sub
'Procedura obsługująca losowanie dowolnej liczby'
Private Sub generator_Click()
A = CInt(Rnd() * 50)
End Sub
Private Sub koniec_Click()
Unload Me
End
End Sub
'Procedura obsługująca nasze odpowiedzi i mówiące, czy podana przez nas liczba jest wieksza,
czy mniejsza od szukanej'
Private Sub zgaduj_Click()
L = CInt(InputBox("Podaj zgadywaną liczbę", "Zgadula", , 1000, 8000))
Do While L <> A
If L > A Then
komunikat.ForeColor = QBColor(CInt(Rnd * 15))
komunikat.Text = "Liczba jest za duża, zgaduj dalej"
L = CInt(InputBox("Podaj zgadywaną liczbę", "Zgadula", , 1000, 8000))
Else
komunikat.ForeColor = QBColor(CInt(Rnd * 15))
komunikat.Text = "Liczba jest za mała, zgaduj dalej"
L = CInt(InputBox("Podaj zgadywaną liczbę", "Zgadula", , 1000, 8000))
End If
k = k + 1
Loop
komunikat.Text = ""
komunikat.ForeColor = QBColor(CInt(Rnd * 15))
komunikat.Text = "bravo, zgadłeś po " & Str(k) & " próbach"
licznik.Text = "Wylosowana liczba to " & Str(A)
End Sub
| Pobierz program |
 |