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 

 Tasteneingabe Kategorie: Programmierung Basic (von Preuner - 1.04.2013 14:20)
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:

Re: Tasteneingabe (von MaPi - 25.04.2013 18:51)