Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Zahlen raten ^^
| Uploader: |  Moep |
| Datum/Zeit: | 12.07.2008 18:02:53 |
randomize Timer
Dim a As integer
Dim b As Integer
Dim eingabe As Integer
Dim c As Integer
Dim d As Integer
a = int(rnd * 20)
For b = 1 To 4
If b = 4 Then
cls
?
?
?
Color 14
Print "Das ist dein Letzter Versuch :)"
Sleep 2000,1
?
?
?
EndIf
Input "Rate mal welche Zahl es ist :) : ", eingabe
Select Case eingabe
Case IS > a
?
?
Print "Dein Wert war leider zu groß^^"
Sleep 3000,1
?
?
Case IS < a
?
?
Print "Deine Eingabe war wohl ein bischen zu klein ^^"
Sleep 3000,1
?
?
Case a
Do Until c = 100
c += 1
d += 10
Color c,d
Cls
Locate 12,15
Print "Glueckwunsch du hast gewonnen :))))"
Sleep
END
Loop
End Select
Next b
If b > 4 Then
Cls
Color 5,15
Cls
Locate 12,15
Print "Du hast die geheime Zahl leider nicht erraten :("
Locate 14,15
Print "Vielleicht hast du beim naechsten mal mehr Glueck"
EndIf
sleep
END