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 18:14)
 Als Antwort auf Re: Problem mit IR/RC5 Programmierung von DIE HARD - 17.03.2005 17:34
Hi,

Es funktioniert nicht!
Wenn ich nach dem starten die FB-Taste gedrückt halte wird einmal geschaltet und danach ignoriert das Programm die FB. Der Drehschalter aber funktioniert. Was ist bei mir anders? Ich habe auch schon andere FB ausprobiert, andere CMD´s und ADDR´s... verhält sich aber immer gleich.
Dann hab ich mal ein kleines Programm geschrieben (abgeleitet von IR_MODULE_2.bas) um die FB zu testen, dass funktioniert einwandfrei. Damit kann ich die Ausgänge umschalten!? Hab das Prog. mal unten angefügt.
 
So langsam verstehe ich nichts mehr .

Ist meine Unit vieleicht defekt?

Übrigens, danke für Deine Mühe.

Ciao, Lutz

*********************************
define LED1         port[5]
define LED2         port[6]
define LED3         port[7]
define LED4         port[8]

define ADDR        byte[1]
define CMD         byte[2]

#INIT
print"#ON_LCD#";
print"#INIT#";
print"#OFF#";

#LOOP
Led1=0: led2=0
Led3=0: led4=0
  print"#ON_IR#";
  get ADDR:get CMD  'IR MODULE DATEN ABFRAGEN
  if ADDR and CMD=255 then gosub NODATA else gosub SHOWDATA
goto LOOP

#NODATA
  print"#OFF#";
  print"#ON_LCD#";
  print"#CLR#";
  print"#L103#";        'CURSOR AUF ZEILE 1 POS 1
  print"NO IR DATA";    'TEXTAUSGABE
  print"#OFF#";         'UMLEITUNG AUF DAS LCD MODULE ABSCHALTEN
return

#SHOWDATA
  print"#OFF#";
  print"#ON_LCD#";
  print"#CLR#";
  print"#L103#";                 'CURSOR AUF ZEILE 1 POS 1
  print"IR Empfang";             'TEXTAUSGABE
  print"#L201#";                 'CURSOR AUF ZEILE 2 POS 1
  print"ADDR:";                 'TEXTAUSGABE
  print ADDR;                    'ADRESSE AUSGEBEN
  print"#L210#";                 'CURSOR AUF ZEILE 2 POS 11
  print"CMD:";                  'TEXTAUSGABE
  print CMD;

  if  CMD=10 then LED1=on
  if  CMD=11 then LED2=on
  if  CMD=16 then LED3=on
  if  CMD=17 then LED4=on

  print"#OFF#";
  pause 25                         ' PAUSE FÜR LCD ANZEIGE
return


 Antwort schreiben

Bisherige Antworten: