Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Tasteneingabe Kategorie: Programmierung Basic (von MaPi - 25.04.2013 18:51)
 Als Antwort auf Tasteneingabe von Preuner - 1.04.2013 14:20
MaPi nutzt:  CC1-Unit V1.1, CC1-M-Unit V1.1, CC1-Station V1.1, C-Control 2
Hallo Preuner,
hilfe zu diesem Basic-Dialekt bekommst Du unter:

http://www.fdos.de/forum/

MfG, MaPi

> Guten Tag
 >
> könnte mir bitte jemand kurz Details für
 >
> STATION_IO=off
 > EXTPORT=STATION_IO
 > EXTPORT=STATION_IO
 >
> geben
 >
>
> ich weiß das ich dadurch LED1-LED4 / REL1-REL4 abschalten kann und wenn ich es falsch in den Programmfluss einschreibe dann kann ich LED1-LED4 / REL1-REL4 nicht mehr einschalten.
 >
> Hier habe ich es auch schon angewannt und es funkt aber irgendwie verstehe ich die Funktion noch nicht so ganz
 >
>
> ____________________________________________________________________________
 > '--------------------------
 > '------ I/O PORTS ---------
 > '--------------------------
 > define LIGHT        as port[16]
 > define SDA          as port[9]
 > define SCL          as port[10]
 > define EXTPORT      as byteport[4]
 > '--------------------------
 > '---- SYSTEM MEMORY -------
 > '--------------------------
 > define STATION_IO   as  byte[3]
 > define LED1         as  bit [17]
 > define LED2         as  bit [18]
 > define LED3         as  bit [19]
 > define LED4         as  bit [20]
 > define REL1         as  bit [21]
 > define REL2         as  bit [22]
 > define REL3         as  bit [23]
 > define REL4         as  bit [24]
 > define INVALUE      as word
 >
> import "GET_KEY.blib"
 > import "GET_VALUE.blib"
 >
>
>
>
>
>
>   LIGHT=off
 > #Kontrolle
 >   LCD.INIT
 >   LCD.PRINT "Kontrolle     "
 >
>    INVALUE=GET_VALUE()
 >   '------ START REQUESTING A VALID CODE (1357) ---------
 >   if INVALUE=9 then goto langsamer
 >
>   If INVALUE=3 Then  goto schneller
 >
>   LCD.POS 1,1
 >   LCD.PRINT "Gerade     "
 >     Pause 50
 >
>
> STATION_IO=off
 > EXTPORT=STATION_IO
 >
> EXTPORT=STATION_IO
 >
>   LCD.Clear
 >
>
>    goto kontrolle
 >   '-----------------------------------------------------
 >
> #langsamer
 > STATION_IO=off
 > EXTPORT=STATION_IO
 >   led3 = on
 >   LCD.Clear
 >   LCD.POS 1,1
 >   LCD.PRINT "langsamer fahren"
 >   pause 30
 >   EXTPORT=STATION_IO
 > goto kontrolle
 >
>
> #schneller
 > STATION_IO=off
 > EXTPORT=STATION_IO
 >   led1= on
 >   LCD.Clear
 >   LCD.POS 1,1
 >   LCD.PRINT "schneller fahren"
 >   pause 30
 > EXTPORT=STATION_IO
 > goto kontrolle
 > ____________________________________________________________________________
 >
>
>
> LG Preuner

 Antwort schreiben

Bisherige Antworten: