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: Problem mit IR/RC5 Programmierung Kategorie: C-Control I V1.2/2.0 (von Lutz - 17.03.2005 15:31)
 Als Antwort auf Re: Problem mit IR/RC5 Programmierung von DIE HARD - 17.03.2005 12:29
Hi,


hier nochmal das jetztige Programm:


'*******************************************
' definition der Ports

define AUS     port[1]         ' VV Ausgangsrelais
 'define IR_Empf port[2]         ' RC5 Empfang
 'define IR_Send port[3]         ' RC5 Send evtl später
define AUF     port[4]         ' Select-Schalter auf
define AB      port[5]         ' Select-Schalter ab
define MR      port[6]         ' Motorpoti recht-lauter
define ML      port[7]         ' Motorpoti links-leiser
define Monitor port[8]         ' Monitor bzw. Tape-Relais

define SDA     port[9]         ' II2C Vorbelegt
define SCL     port[10]        ' "
'              port 9-16         fĂĽr LCD vorbelegt
define LIGHT   port[16]        ' LCD Beleuchtung

define EXTP  byteport[10]      ' II2C externe Ports, Rel 1-8

define ADDR  byte[1]           ' Adresse f. RC5
define CMD   byte[2]           ' Command f. RC5
define LCMD  byte[5]
define Z     byte[3]           ' Zählimpulse vom Drehgeber
define t     byte[4]           ' Timer fĂĽr Einschaltverzögerung

'----------- Grundzustand + Initialisierung --------------------

#INIT

AUS=0
MR=0
ML=0
Monitor=0
EXTP=0                       ' alle exgtended Ports LO
LIGHT=0                      ' Beleuchtung EIN
t=2                          ' Timer auf 2 Sek. später 2 Min.

SDA=on:SCL=on

print "#ON_LCD#";
print "#INIT#";
print "#CLR#";
print "#L103#";
print "(c) by Lutz";
pause 50

'--------- Einschaltverzögerung ------------------------------

#TIME
t=t-1
print "#ON_LCD#";
print "#CLR#";
print"#L101#";
print "WAIT: ";
print t;
pause 50
print"#OFF#";
if t<>0 then goto TIME else POWER

#POWER
print "#ON_LCD#";
print "#CLR#";
print "#L101#";
print "   ON   ";
print"#OFF#";
AUS=on                             ' Ausgangsrelais einschalten

'-----------  HAUPTPROGRAMM ----------------------------

#LOOP
print"#ON_IR#";
get ADDR:get CMD
print"#OFF#";

if CMD=10 then goto SAUF    ' FB Comando auf (erstmal ohne ADDR, mit ADDR geht genauso wenig)
if CMD=11 then goto SAB     ' FB Comando ab

if AUF=0 and AB=on then goto SAUF    ' Drehgeber rechts
if AB=0 and AUF=on then goto SAB     ' Drehgeber links

goto LOOP

'-----------  Eingangswahlschalter ----------------------

#SAUF
EXTP=0
Z = Z + 1
if Z=4 then Z=1

if Z=1 then goto PHONO
if Z=2 then goto CD
if Z=3 then goto DVD else SAUF

#SAB
EXTP=0
Z = Z - 1
if Z=255 then Z=3
if Z=0 then Z=3

if Z=1 then goto PHONO
if Z=2 then goto CD
if Z=3 then goto DVD else SAB

'-------- LCD + Relaisansteuerung ---------------------

#PHONO
print "#ON_LCD#";
print "#CLR#";
pause 5
print "#L101#";
print " PHONO";
print"#OFF#";
EXTP=1
goto LOOP

#CD
print "#ON_LCD#";
print "#CLR#";
pause 5
print "#L101#";
print "   CD";
print"#OFF#";
EXTP=2
goto LOOP

#DVD
print "#ON_LCD#";
print "#CLR#";
pause 5
print "#L101#";
print "  DVD";
print"#OFF#";
EXTP=4
goto LOOP
'*******************************************

Ciao
Lutz

 Antwort schreiben

Bisherige Antworten:

Re: Problem mit IR/RC5 Programmierung (von Matthias - 18.03.2005 14:24)
    Re: Problem mit IR/RC5 Programmierung (von Lutz - 18.03.2005 16:07)
Re: Problem mit IR/RC5 Programmierung (von DIE HARD - 17.03.2005 17:34)
    Re: Problem mit IR/RC5 Programmierung (von Lutz - 17.03.2005 18:14)