Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch ber Twitter erhalten. Follow us!fb:porticula NoPaste
Ferdis Fluch
| Uploader: |  ytwinky |
| Datum/Zeit: | 12.01.2008 17:08:14 |
SUB Flugmanager
SCREEN 12
CLS
PRINT "Willkommen beim FFS1.1"
PRINT "Der Flugmanager wird Sie jetzt durch die Einzelnen Schritte fhren"
PRINT "mit denen Sie ihren eigenen Flug erstellen knnen"
PRINT "Beliebige Taste zum Fortfahren drcken"
Do
Taste$=InKey$
Sleep 1
Loop Until Taste$<>""
CLS
COLOR 5
PRINT "Einfhrungsmanager"
COLOR 15
PRINT " Bitte geben Sie das Flugzeug an "
PRINT " "
PRINT " (1) Cessna "
PRINT " "
PRINT " "
PRINT " "
PRINT " Welches Flugzeug wollen Sie fliegen? "
PRINT ""
'LOCATE 8, 40
'INPUT "", Plane$
Do
Taste$=InKey$
Sleep 1
Loop Until Taste$<>""
Plane% = VAL(Taste$)
?Taste$
PRINT Plane%
Do
Taste$=InKey$
Sleep 1
Loop Until Taste$<>""
CLS
COLOR 5
PRINT "Einfhrungsmanager"
COLOR 15
PRINT " Bitte geben Sie den Flughafen an "
PRINT " "
PRINT " (1) Seattle "
PRINT " "
PRINT " "
PRINT " "
PRINT " Wo wollen Sie fliegen? "
PRINT ""
'LOCATE 8, 40
'INPUT "", Plane$
Do
Taste$=InKey$
Sleep 1
Loop Until Taste$<>""
Airport% = VAL(Taste$)
PRINT Airport%
Do
Taste$=InKey$
Sleep 1
Loop Until Taste$<>""
CLS
COLOR 5
PRINT "Einfhrungsmanager"
COLOR 15
PRINT " Bitte geben Sie die Zeit an "
PRINT " "
PRINT " (1) Tag "
PRINT " (2) Nacht "
PRINT " "
PRINT " "
PRINT " Wenn wollen Sie fliegen? "
PRINT ""
'LOCATE 8, 40
'INPUT "", Plane$
Do
Taste$=InKey$
Sleep 1
Loop Until Taste$<>""
Zeit% = VAL(Taste$)
PRINT Zeit%
Do
Taste$=InKey$
Sleep 1
Loop Until Taste$<>""
CLS
PRINT "Wir danken ihnen fr ihre Hilfe. Der Flugmanager erstellt ihren "
PRINT "Individuellen Flug. "
PRINT
PRINT "Um das Flugzeug auf volle Leistung zu bringen drcken Sie die F4 Taste."
PRINT "Wenn Sie das Flugzeug abbremmsten wollen drcken Sie die F1 Taste."
PRINT "Zum feinen Einstellen der Leistung benutzen Die die F2 (etwas weniger"
PRINT "Leistung) und F3 (etws mehr Leistung)."
PRINT "Benutzen Sie die Pfeiltasten um das Flugzeug zu manvrieren"
PRINT "(^ = hher,v = etwas Tiefer, = nach rechts und = nach links)."
PRINT "Mit der o -Taste stellen Sie das"
PRINT "Variometer auf 0 (das bedeutet, dass Sie in den Horizontalflug"
PRINT "bergehen und somit nicht mehr steigen.) Um das Programm zu beenden"
PRINT "drcken Sie die Taste ESC auf der Tastatur."
PRINT
PRINT "Cesna ist ein eingetragenes Markenzeichen der Cessna Aircraft Company"
PRINT
PRINT "Viel Spa beim Fliegen"
PRINT
PRINT "Belibige Taste zum Fortfahren drcken."
Do
Taste$=InKey$
Sleep 1
Loop Until Taste$<>""
END Sub
Flugmanager