Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Code-Beispiel
Ampelsteuerung etwas verbessert
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  flittchen |  21.01.2009 |
''Eine Kleine Ampel Simulation die den Port
''888,1-888,2-888,3-888,4 öffnet
''Ich bin totaler Anfänger
''Der Code kann und darf beliebig weitergegeben werden
''oda verändert werden
Screen 15
out 888,0
cls
DIM rot AS SINGLE
DIM gruen AS SINGLE
DIM gelb AS SINGLE
''Überschrift
locate 6,13
Print ""
locate 7,13
Print "ß ß"
locate 8,13
Print "ß Ampelsystem fuer -Kira- ß"
locate 9,13
Print "ß ß"
locate 10,13
Print "ß Programmed by Flittchen ß"
locate 11,13
Print "ß ß"
locate 12,13
Print ""
locate 16,1
color 4
PRINT "Wie lange soll die rote Lampe leuchten? "
INPUT "in sec.: ";rot
Print ""
color 6
Print "Wie lange soll die Gelbe Lampe leuchten? "
INPUT "in sec.: ";gelb
Print ""
color 2
Print "Wie lange soll die Grüne Lampe leuchten? "
INPUT "in sec.: ";gruen
sleep 15
cls
color 1
locate 6,13
Print ""
locate 7,13
Print "ß ß"
locate 8,13
Print "ß Ampelsystem fuer -Kira- ß"
locate 9,13
Print "ß ß"
locate 10,13
Print "ß Programmed by Flittchen ß"
locate 11,13
Print "ß ß"
locate 12,13
Print ""
locate 16,1
color 4
Print "rot = ";rot, "sec."
color 6
Print "gelb = ";gelb, "sec."
color 2
Print "gruen = ";gruen, "sec."
Print ""
Print "5 sec. warten."
sleep 5000
''DO-LOOP
DO
SCREEN 13
''Ampel - Rot
locate 25,1
PRINT "Druecken Sie b zum beenden."
if Inkey = "b" then
cls
OUT 888,0
locate 6,7
Print ""
locate 7,7
Print "ß ß"
locate 8,7
Print "ß Programmed by Flittchen ß"
locate 9,7
Print "ß ß"
locate 10,7
Print ""
sleep 5000
END ''Beenden
Else
out 888,1
LINE (130,30)-(190,30),7 ''Waagerechte oben Oben'
LINE (130,30)-(130,150),7 ''Senkrechte links
LINE (190,30)-(190,150),7 ''Senkrechte rechts
LINE (130,150)-(190,150),7 ''Waagerechte unten
CIRCLE (160,50),14,4,,,,F ''Roterkreis an
CIRCLE (160,90),14,7 ''Gelberkreis aus
CIRCLE (160,130),14,7 ''Grünerkreis aus
SLEEP (rot * 1000)
ENDIF
cls
''Ampel - Rot - Gelb
locate 25,1
PRINT "Druecken Sie b zum beenden."
if Inkey = "b" then
cls
OUT 888,0
locate 6,7
Print ""
locate 7,7
Print "ß ß"
locate 8,7
Print "ß Programmed by Flittchen ß"
locate 9,7
Print "ß ß"
locate 10,7
Print ""
sleep 5000
END ''Beenden
Else
out 888,3
LINE (130,30)-(190,30),7 ''Waagerechte oben Oben'
LINE (130,30)-(130,150),7 ''Senkrechte links
LINE (190,30)-(190,150),7 ''Senkrechte rechts
LINE (130,150)-(190,150),7 ''Waagerechte unten
CIRCLE (160,50),14,4,,,,F ''Roterkreis an
CIRCLE (160,90),14,6,,,,F ''Gelberkreis an
CIRCLE (160,130),14,7 ''Günerkris aus
sleep (gelb * 1000)
ENDIF
cls
''Ampel - Grün
locate 25,1
PRINT "Druecken Sie b zum beenden."
if Inkey = "b" then
cls
OUT 888,0
locate 6,7
Print ""
locate 7,7
Print "ß ß"
locate 8,7
Print "ß Programmed by Flittchen ß"
locate 9,7
Print "ß ß"
locate 10,7
Print ""
sleep 5000
END
ELSE
out 888,4
LINE (130,30)-(190,30),7 ''Waagerechte oben Oben'
LINE (130,30)-(130,150),7 ''Senkrechte links
LINE (190,30)-(190,150),7 ''Senkrechte rechts
LINE (130,150)-(190,150),7 ''Waagerechte unten
CIRCLE (160,50),14,7 ''Roterkreis aus
CIRCLE (160,90),14,7 ''Gelberkreis aus
CIRCLE (160,130),14,2,,,,F ''Grünerkreis an
SLEEP (gruen * 1000)
ENDIF
cls
''Ampel - Gelb
locate 25,1
PRINT "Druecken Sie b zum beenden."
if Inkey = "b" then
cls
OUT 888,0
locate 6,7
Print ""
locate 7,7
Print "ß ß"
locate 8,7
Print "ß Programmed by Flittchen ß"
locate 9,7
Print "ß ß"
locate 10,7
Print ""
sleep 5000
END
ELSE
out 888,2
LINE (130,30)-(190,30),7 ''Waagerechte oben Oben'
LINE (130,30)-(130,150),7 ''Senkrechte links
LINE (190,30)-(190,150),7 ''Senkrechte rechts
LINE (130,150)-(190,150),8 ''Waagerechte unten
CIRCLE (160,50),14,7 ''Roterkreis aus
CIRCLE (160,90),14,6,,,,F ''Gelberkreis an
CIRCLE (160,130),14,7 ''Grünerkreis aus
SLEEP (gelb * 1000)
ENDIF
LOOP until INKEY = "b"
''DO-LOOP ENDE
END
| Zusätzliche Informationen und Funktionen | |||||||
|---|---|---|---|---|---|---|---|
|
|||||||
Bearbeiten
Versionen