-         

Ergebnis 1 bis 3 von 3

Thema: IR Codes auf LCD ausgeben

  1. #1
    Neuer Benutzer Öfters hier
    Registriert seit
    04.09.2005
    Ort
    Wabern
    Beiträge
    20

    IR Codes auf LCD ausgeben

    Anzeige

    Hallo,

    hat jemand einen Code (.bas) um RC5-Codes zeizeilig auf dem LCD auszugeben??

    Gruß Yogi

  2. #2
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    22.12.2004
    Alter
    64
    Beiträge
    277

    Re: IR Codes auf LCD ausgeben

    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

  3. #3
    Neuer Benutzer Öfters hier
    Registriert seit
    04.09.2005
    Ort
    Wabern
    Beiträge
    20

    IR Codes auf LCD ausgeben

    Danke für das Posting,

    hab gerade gesehen, dass es für den RP5 ein eigenes Forum gibt, sorry!

    Gruß Yogi

    PS: Wende mich mal dahin!

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •