Hallo,

Zitat Zitat von Yogi
Hallo,

hat jemand einen Code (.bas) um RC5-Codes zeizeilig auf dem LCD auszugeben??
was Du genau meinst, weiß ich jetzt nicht, aber für Basic++ sieht meine Testroutine, die Address und command ausgibt, so aus:

Code:
define addr         as    byte 
define cmd          as    byte 
define tempval      as    byte 

'------------------------------------------------------------------- 

'Initialisierungen 
'pullups  auf beiden Ports einschalten ----------------------------- 

config.init 
config.get TEMPval                 'den aktuellen Wert lesen, 
tempval = (TEMPval or 00011000b) 
config.put TEMPval                 'Bits setzten und zurück schreiben 
config.off 

lcd.init                           'LCD initialisieren 

'------------------------------------------------------------------- 


'----- Einfachsttest, der in einer Endlosschleife die Eckdaten ----- 
'-------------- der gesendeten RC5 Signale anzeigt ----------------- 

#IR_Test 
lcd.clear 
#LP 

LCD.off 
IR.init 

ir.get ADDR, CMD 

if ADDR and CMD = FFh then         'IR Daten empfangen? 
  'Keine Daten 
   IR.off 
   LCD.init switchonly 
   lcd.pos 1,1 
   LCD.print "Keine Taste" 
   lcd.pos 2,1 
   LCD.print "            " 
   LCD.off 
   pause 25 
  else 
  'Zeige Daten 
  IR.off 
  LCD.init switchonly 
  LCD.clear 
  lcd.pos 1,1 
  LCD.print "ADDR: " 
  LCD.print ADDR AND 11011111b     'toggle herausgeundet 
  lcd.pos 2,1 
  LCD.print "CMD:  " 
  LCD.print CMD 
  pieps()                          'Quittungsbeep ausgeben 
  LCD.off 
  pause 25 

end if 

goto LP
Weitere Beispiele finden sich in den Beispielsammlungen, die man sich von der C-Control Supportseite herunterladen kann.

Grüße
Henrik