Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Zahlen Ratespiel 3
| Uploader: |  Emporea1997 |
| Datum/Zeit: | 31.08.2011 15:40:41 |
Randomize
Dim As Integer Zahl
Dim As Integer Maximal = 200000
Dim As String Eingabe
Dim As Integer Zuge = 0
Dim As String zugestr = "0"
Zahl = Int(Rnd * Maximal) +1
Print "Hallo! Das ist ein Rate Spiel. Nenne Eine Zahl zwischen 1 und " & Maximal
Print ""
Print "Viel Gl"+Chr(129)+"ck!"
Sleep 4500 , 1
Cls
Do
Do
Input "Gib eine Zahl ein! " , Eingabe
If Eingabe = "" Then
Cls
Print "Du musst schon eine Zahl eingeben :D"
Print "Du hast immer noch " + zugestr + " Z"+Chr(129)+"ge gebraucht"
EndIf
If Not Eingabe = "" Then
Exit do
EndIf
Loop
cls
zuge = zuge + 1
zugestr = Str(zuge)
If Val(Eingabe) < Zahl Then
Print "Ein bisschen zu wenig! ;)"
Print ""
Print "Das ist dein " + zugestr + ". Zug"
Print ""
Print ""
ElseIf Val(Eingabe) > Zahl Then
Print "Zu viel :D"
Print ""
Print "Das ist dein " + zugestr + ". Zug"
Print ""
Print ""
EndIf
Loop Until Val(Eingabe) = Zahl
Print ""
Print "Richtig!"
Print ""
Print "Du hast " + Zugestr + " Z"+Chr(129)+"ge gebraucht"
Sleep