Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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!

Code-Beispiel

Code-Beispiele » Elektronikansteuerung

Ampelsteuerung etwas verbessert

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.Mitgliedflittchen 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
  • Das Code-Beispiel wurde am 21.01.2009 von Mitgliedflittchen angelegt.
  • Die aktuellste Version wurde am 21.01.2009 von Mitgliedflittchen gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen