Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Rate Spiel

Uploader:MitgliedEmporea1997
Datum/Zeit:30.08.2011 23:16:15

#INCLUDE "windows.bi"
Dim Titel As Zstring *MAX_PATH

If GetConsoleTitle (@Titel, MAX_PATH) Then
  SetConsoleTitle "Neuer Konsolentitel"
End If

SetConsoleTitle "Rate Spiel"
Randomize
Dim As Integer Zahl
Dim As Integer Maximal = 200
Dim As String Eingabe
Zahl = Rnd * Maximal
Print "Hallo! Das ist ein Rate Spiel. Nenne Eine Zahl zwischen 0 und " & Maximal
Print ""
Print "Viel Gl"+Chr(129)+"ck!"
Sleep 4500 , 1
cls

Do

    Input "Gib eine Zahl ein! " , Eingabe
    SetConsoleTitle "Rate Spiel"
If Val(Eingabe) < Zahl Then
Print   "Ein bisschen zu wenig! ;)
Print ""
SetConsoleTitle "Es muss ein bisschen mehr sein!"
ElseIf Val(Eingabe) > Zahl Then
Print   "Zu viel :D"
Print ""
SetConsoleTitle "Weniger!!"
EndIf

Loop Until Val(Eingabe) = Zahl
Print ""
Print "Richtig!"
SetConsoleTitle "du bist richtig gut! ;)"
Sleep