fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Zahlen Ratespiel 2

Uploader:	Emporea1997
Datum/Zeit:	30.08.2011 23:31:31

Randomize



Dim As Integer Zahl

Dim As Integer Maximal = 200

Dim As String Eingabe



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

    Input "Gib eine Zahl ein! " , Eingabe



        If Val(Eingabe) < Zahl Then

            Print   "Ein bisschen zu wenig! ;)"

            Print ""

        ElseIf Val(Eingabe) > Zahl Then

            Print   "Zu viel :D"

            Print ""

        EndIf



Loop Until Val(Eingabe) = Zahl



Print ""

Print "Richtig!"

Sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.