-
        

Seite 1 von 2 12 LetzteLetzte
Ergebnis 1 bis 10 von 14

Thema: Fehler bei programmieren des RP5 LCD

  1. #1
    Benutzer Stammmitglied
    Registriert seit
    17.06.2007
    Ort
    Landau
    Alter
    24
    Beiträge
    54

    Fehler bei programmieren des RP5 LCD

    Anzeige

    Als ich auf meinem Lcd das Beispielprogramm öffnen wollte erschienen nur schwarze Balken. Als ich dann an P1 gedreht habe verschwanden da zwar die Balken aber eserschienen keine Ziffern.
    Kann mir da jemand helfen?

  2. #2
    Erfahrener Benutzer Robotik Einstein
    Registriert seit
    29.12.2005
    Ort
    Nähe Mainz
    Alter
    26
    Beiträge
    3.467
    Ein paar blöde Fragen:
    Hast du das LCD richtig aufgesteckt?
    Versorgungsspannung noch OK? ->nachmessen
    Richtigen Treiber geladen? (ganz am Ende des Programms)

    Mehr fällt mich nicht ein. Ich denke, dass das mit der zu niedrigen Versorgungsspannung am wahrscheinlichsten ist.

    jon
    Nice to be back after two years
    www.roboterfreak.de

  3. #3
    Erfahrener Benutzer Robotik Einstein Avatar von Dirk
    Registriert seit
    30.04.2004
    Ort
    NRW
    Beiträge
    3.791
    Hallo ostoff,

    Fragen:
    1. Welches Beispielprogramm?
    2. Ich dachte, du hättest mit deinem "Hallo"-Programm schon Erfolg gehabt oder funktionierte das auch nicht?

    Gruß Dirk

  4. #4
    Benutzer Stammmitglied
    Registriert seit
    17.06.2007
    Ort
    Landau
    Alter
    24
    Beiträge
    54
    nein ich hatte nur verstanden wie man es programmiert, als ich dann aber das Programm auf den Rp5 übertragen habe und das Programm gestartet habe erschienen nur die Schwarzen Balken.
    ich bin so vorgegangen:
    Kabel in die Buchse der Standartplatiene einstecken.
    Proramm starten.
    darauf erschienen nur schwarze Balken.
    Habe an P1 gedreht, schwarze Balken verschwadenaber sonst passierte nichts.
    Habe auch neu aufgeladene Batterien eingesetezt.
    Christoph

  5. #5
    Benutzer Stammmitglied
    Registriert seit
    17.06.2007
    Ort
    Landau
    Alter
    24
    Beiträge
    54
    das war das Programm:


    'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIII
    'IIIIIIIIII MOBILE ROBOT EVALUATION PROGRAM IIIIIIIIIIII
    'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIII
    ' ANSTEUERUNG DES LCD AUF DER BASIS-ERWEITERUNG
    '
    'Dieses Beispiel stellt Ihnen zusätzlich einen Treiber für das LCD
    'zur Verfügung
    'Folgende Unterprogramme sind für Sie von Bedeutung:

    ' gosub lcd_init II Initialisierung des LCD
    ' gosub lcd_cls II Löschen der Anzeige
    ' lcd_param = 1 : gosub lcd_gotoline II Cursor auf Zeile 1, Position 1
    ' lcd_param = 2 : gosub lcd_gotoline II Cursor auf Zeile 2, Position 1
    ' lcd_param = xx : gosub lcd_writechar II den Character mit dem ASCII-Code xx ausgeben.
    ' value=xx:gosub convert II den Inhalt der Variablen VALUE ausgeben

    ' ---------------------------------------------------------------------
    ' FUNKTION DES PROGRAMMS
    '----------------------------------------------------------------------
    ' Nach der Einschaltmeldung wird IRCOMM abgefragt und evt. empfangene Date
    ' am LCD angezeigt.
    ' Wenn Sie am LCD keinerlei Anzeige erkennen, so versuchen Sie den Kontrast
    ' mit dem Poti P1 auf der Basiserweiterung einzustellen.
    '
    '-----------------------------------------------------------------------
    'RESOURCEN:
    'Sie finden in allen Beispielen sämtliche Systemroutinen die zum Betrieb des
    'Roboters notwendig sind.
    '----------------------------------------------------------------------------

    '--------------------------
    '------ I/O PORTS ---------
    '--------------------------
    '- INTERFACE LCD/EXTPORT --
    define sdio port[1]
    define sclio port[3]
    define strobe port[4]
    define LSTROBE port[7]
    '-- INTERFACE COM/NAV -----
    define DATALINE port[1]
    define CLOCKLINE port[2]
    '-- CC2 INTERFACE -------
    define CC2POWER port[8]
    '------ LCD INTERFACE ------
    define lcd_port byteport[2]
    define lcd_rs port[14]
    define lcd_rw port[13]
    define lcd_e port[15]
    '--------------------------
    '------ SENSORS ---------
    '--------------------------
    define LIGHT_L ad[7]
    define LIGHT_R ad[6]
    define SYS_VOLTS ad[3]
    define CHRG_CURRENT ad[2]
    define SYS_CURRENT ad[1]
    define MIC ad[4]
    define TOUCH ad[5]
    '---------------------------
    '------ DRIVE -------------
    '---------------------------
    define SPEED_L da[1]
    define SPEED_R da[2]
    define REV_L port[6]
    define REV_R port[5]
    '--------------------------
    '---- SYSTEM MEMORY -------
    '--------------------------
    '--- INTERFACE BUFFER ----
    define LBYTE byte[1]
    define HBYTE byte[2]
    define SUBCMD byte[3]
    '---- OPERATION DATA ------
    define EXTPORT byte[4]
    define LED1_F bit[29]
    define LED2_F bit[30]
    define LED3_F bit[31]
    define LED4_F bit[32]
    define SYSTEM_STATUS byte[5]
    define LEDPORT byte[6]
    define L1_F bit[41]
    define L2_F bit[42]
    define L3_F bit[43]
    define L4_F bit[44]
    define L5_F bit[45]
    define L6_F bit[46]
    define L7_F bit[47]
    define L8_F bit[48]
    '---- LCD DRIVER -------------
    define lcd_buf byte[7]
    define lcd_param byte[8]
    '--------------------------
    '---- USER MEMORY -------
    '--------------------------
    '--- BIN-DEZIMAL-CONVERTER ---
    define hunderter byte [10]
    define zehner byte[11]
    define einer byte[12]
    define value byte[13]
    define value16 word [12]
    '--- SYSTEMROUTINEN -----------
    define PLM_SLOW &H01C2
    define SYSTEM &H01C7
    define LED_DRIVE &H01CA
    define COMNAV &H0144
    '- ERWEITERTE SYSTEM ROUTINEN -
    define REVR &H0101 'ANTRIEB RECHTS RÜCKWÄRTS
    define REVL &H0106 'ANTRIEB LINKS RÜCKWÄRTS
    define FWDR &H010B 'ANTRIEG RECHTS VORWÄRTS
    define FWDL &H0110 'ANTRIEB LINKS VORWÄRTS
    define ROTR &H0115 'RECHTS DREHEN
    define ROTL &H0119 'LINKS DREHEN
    define REV &H011D 'RÜCKWÄRTS
    define FWD &H0121 'VORWÄRTS
    define COMNAV_STATUS &H0125 'UPDATED ALLE FLAGS IM STATUS-REGISTER
    define ACS_LO &H01E0 'ACS POWER LO
    define ACS_HI &H01E8 '
    define ACS_MAX &H01F0 '
    define SEND_TLM &H013A 'SENDET TELEMETRIE (CH=HBYTE,DATEN=LBYTE)
    define SEND_SYSSTAT &H0134 'SENDET TLM KANAL 0,SYSTEM STATUS
    '(FLAGS für ACS,FWD/REV, ACS_LO/HI/MAX)
    '---------- INIT---------------
    LSTROBE=off:CC2POWER=on
    gosub SUBSYS_PWR_ON:REV_L=off:REV_R=off
    gosub lcd_init:gosub message1
    beep 368,10,0ause 50

    '--------------------------------------------
    '- DEMO IR CODES AM LCD ANZEIGWEN --
    '--------------------------------------------
    '---------------- GET IR DATA ------------
    #continue_pgm
    gosub GET_IRDATA
    if LBYTE and HBYTE = &HFF then gosub shownodata else gosub showirdata
    pause 10
    goto continue_pgm


    'IIIIIIIIIIIIII SHOW NO DATA IIIIIIIIIIIIIIIII
    #shownodata
    gosub lcd_cls
    lcd_param = 1 : gosub lcd_gotoline
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H4E : gosub lcd_writechar 'N
    lcd_param = &H4F : gosub lcd_writechar 'O
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H44 : gosub lcd_writechar 'D
    lcd_param = &H41 : gosub lcd_writechar 'A
    lcd_param = &H54 : gosub lcd_writechar 'T
    lcd_param = &H41 : gosub lcd_writechar 'A
    return
    'IIIIIIIIIIIIII SHOW RECEICED DATA IIIIIIIIIIIII
    #showirdata
    gosub lcd_cls
    lcd_param = 1 : gosub lcd_gotoline
    lcd_param = &H41 : gosub lcd_writechar 'A
    lcd_param = &H44 : gosub lcd_writechar 'D
    lcd_param = &H52 : gosub lcd_writechar 'R
    lcd_param = &H3D : gosub lcd_writechar '=

    value=HBYTE
    gosub convert
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H43 : gosub lcd_writechar 'C
    lcd_param = &H4D : gosub lcd_writechar 'M
    lcd_param = &H44 : gosub lcd_writechar 'D
    lcd_param = &H3D : gosub lcd_writechar '=
    Value=LBYTE
    gosub convertause 20
    return


    '-------------------------------------------
    'IIIIIII MESSAGE 1 IIIIIIIIIII
    #message1
    gosub lcd_cls
    lcd_param = 1 : gosub lcd_gotoline
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H43 : gosub lcd_writechar 'C
    lcd_param = &H2D : gosub lcd_writechar '-
    lcd_param = &H43 : gosub lcd_writechar 'C
    lcd_param = &H4F : gosub lcd_writechar 'O
    lcd_param = &H4E : gosub lcd_writechar 'N
    lcd_param = &H54 : gosub lcd_writechar 'T
    lcd_param = &H52 : gosub lcd_writechar 'R
    lcd_param = &H4F : gosub lcd_writechar 'O
    lcd_param = &H4C : gosub lcd_writechar 'L
    lcd_param = 2 : gosub lcd_gotoline
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H52 : gosub lcd_writechar 'R
    lcd_param = &H4F : gosub lcd_writechar 'O
    lcd_param = &H42 : gosub lcd_writechar 'B
    lcd_param = &H4F : gosub lcd_writechar 'O
    lcd_param = &H54 : gosub lcd_writechar 'T
    lcd_param = &H20 : gosub lcd_writechar '
    lcd_param = &H20 : gosub lcd_writechar '
    return
    '++++++++++++ CONVERT BINARY TO DECIMAL +++++++++++++++
    #convert
    hunderter=value/100
    if hunderter>0 then lcd_param=hunderter+&H30 else lcd_param=&H20
    gosub lcd_writechar
    'zehner abfragen
    zehner=(value-(hunderter*100))/10
    lcd_param=zehner+&H30
    gosub lcd_writechar
    'einer abfragen
    einer=value-(hunderter*100)-(zehner*10)
    lcd_param=einer+&H30
    gosub lcd_writechar
    return
    'IIIIIIIIIII LED DRIVER IIIIIIIIIIIIIIIII
    #LED1ON
    LED1_F=on:goto EXTPORT_WRITE
    #LED1OFF
    LED1_F=off :goto EXTPORT_WRITE
    #LED2ON
    LED2_F=on:goto EXTPORT_WRITE
    #LED2OFF
    LED2_F=off:goto EXTPORT_WRITE
    #LED3ON
    LED3_F=on:goto EXTPORT_WRITE
    #LED3OFF
    LED3_F=off:goto EXTPORT_WRITE
    #LED4ON
    LED4_F=on:goto EXTPORT_WRITE
    #LED4OFF
    LED4_F=off:goto EXTPORT_WRITE
    #LEDSOFF
    EXTPORT=EXTPORT and &H0F
    #EXTPORT_WRITE
    SYS SYSTEMulse STROBE:RETURN
    '--- LEDS AUF DER BASIS ERWEITERUNG ------
    #L1ON
    L1_F=on:goto LEDPORT_WRITE
    #L1OFF
    L1_F=off :goto LEDPORT_WRITE
    #L2ON
    L2_F=on:goto LEDPORT_WRITE
    #L2OFF
    L2_F=off :goto LEDPORT_WRITE
    #L3ON
    L3_F=on:goto LEDPORT_WRITE
    #L3OFF
    L3_F=off :goto LEDPORT_WRITE
    #L4ON
    L4_F=on:goto LEDPORT_WRITE
    #L4OFF
    L4_F=off :goto LEDPORT_WRITE
    #L5ON
    L5_F=on:goto LEDPORT_WRITE
    #L5OFF
    L5_F=off :goto LEDPORT_WRITE
    #L6ON
    L6_F=on:goto LEDPORT_WRITE
    #L6OFF
    L6_F=off :goto LEDPORT_WRITE
    #L7ON
    L7_F=on:goto LEDPORT_WRITE
    #L7OFF
    L7_F=off :goto LEDPORT_WRITE
    #L8ON
    L8_F=on:goto LEDPORT_WRITE
    #L8OFF
    L8_F=off :goto LEDPORT_WRITE
    #LOFF
    LEDPORT=0
    #LEDPORT_WRITE
    SYS LED_DRIVEulse LSTROBE:RETURN
    '---------------------------------------
    '------------- LCD ROUTINES -------------
    '----------------------------------------
    #LCD_INIT
    ' alle ports 0
    lcd_port = OFF

    ' 8-Bit-Modus aktivieren
    lcd_param=&H38 : gosub LCD_WRITECMD

    ' mit 8-Bit-Command in 4-Bit-Modus umschalten
    lcd_port=&B00000010
    tog lcd_e
    tog lcd_e

    ' ab jetzt 4-Bit-Modus
    lcd_param = &H28 : gosub LCD_WRITECMD
    lcd_param = &H0C : gosub LCD_WRITECMD

    ' Display loeschen
    #LCD_CLS
    lcd_param = &H02 : gosub LCD_WRITECMD
    lcd_param = &H01 : gosub LCD_WRITECMD
    return
    ' Zeilenwechsel
    #LCD_GOTOLINE
    if lcd_param = 1 then lcd_param = &H80
    if lcd_param = 2 then lcd_param = &HC0
    goto LCD_WRITECMD

    ' LCD-Kommando
    #LCD_WRITECMD
    lcd_buf = OFF
    goto LCD_WRITE

    ' Zeichenausgabe
    #LCD_WRITECHAR
    lcd_buf = &B00100000

    ' Kommando oder Zeichen an Display senden
    #LCD_WRITE
    lcd_port = lcd_buf or (lcd_param shr 4) ' Hi-Nibble
    tog lcd_e
    tog lcd_e
    lcd_port = lcd_buf or (lcd_param and &H0F) ' Lo-Nibble
    tog lcd_e
    tog lcd_e
    return
    'IIIIII SYSTEMROUTINEN COMM/NAV SYSTEM IIIII
    #GET_IRDATA
    SUBCMD=1:sys COMNAV:return
    #SEND_IRDATA
    SUBCMD=0:sys COMNAV:return
    #RC5
    SUBCMD=4:sys COMNAV:LBYTE= HBYTE and &HFC
    HBYTE=00:SUBCMD=2:sys COMNAV:return
    #RC5_INT
    SUBCMD=4:sys COMNAV:LBYTE= (HBYTE and &HFE)or 2
    HBYTE=00:SUBCMD=2:sys COMNAV:return
    #REC80
    SUBCMD=4:sys COMNAV:LBYTE= (HBYTE or &H01)and&HFD
    HBYTE=00:SUBCMD=2:sys COMNAV:return
    #REC80_INT
    SUBCMD=4:sys COMNAV:LBYTE= (HBYTE or &H03)
    HBYTE=00:SUBCMD=2:sys COMNAV:return
    'IIIIII SYSTEMROUTINEN SYSTEM IIIIIIIIIIII
    #NO_ACS_INT
    SUBCMD=4:sys COMNAV:LBYTE= HBYTE and &HFB
    HBYTE=00:SUBCMD=2:sys COMNAV:return
    #ACS_INT_200
    SUBCMD=4:sys COMNAV:LBYTE= HBYTE or &H04
    HBYTE=50:SUBCMD=2:sys COMNAV:return
    #SUBSYS_PWR_ON
    sdio=on:sclio=on:strobe=off:EXTPORT=(EXTPORT and &HFE)or 8
    sys SYSTEM:return
    #SUBSYS_PWR_OFF
    EXTPORT=(EXTPORT and &HF7)or 1:sys SYSTEM
    deact sdio:deact sclio:return


    #CLR_DISTANCE
    SUBCMD=3:sys COMNAV:return
    #L_DISTANCE
    SUBCMD=6:sys COMNAV:return
    #R_DISTANCE
    SUBCMD=7:sys COMNAV:return
    '---------COM/NAV GERÄTEREIBER -------------
    'syscode "p5driv12.s19"


    Das Lcd muss doch in die Buchse mit der Aufschrift Lcd 1 eingesteckt werden. Und die kleine Erhöhung des Steckers muss in die entgegengesetzte Fahrtrichtung zeigen

  6. #6
    Erfahrener Benutzer Robotik Einstein Avatar von Dirk
    Registriert seit
    30.04.2004
    Ort
    NRW
    Beiträge
    3.791

    LCD-Demo

    Hallo ostoff,

    wenn du zum ersten Mal ein Prog für die Erweiterungsplatine (wie diese LCD-Demo) aufspielst, muss der neue Treiber p5driv12.s19 EINMAL geladen werden.
    Dazu must du in der letzten Zeile des Progs das ' vor syscode "p5driv12.s19" wegnehmen. Dadurch ist diese Zeile kein Kommentar mehr, sondern der Treiber wird in die CC1 geladen. Dann überträgst du das Prog in den RP5.

    Danach kannst du das ' da wieder vor setzen, weil der neue Treiber immer in der CC1 bleibt. Auch wenn du dann neue Programme ausprobierst, must du in der Regel den Treiber nicht mehr laden.

    Gruß Dirk

  7. #7
    Erfahrener Benutzer Robotik Einstein
    Registriert seit
    29.12.2005
    Ort
    Nähe Mainz
    Alter
    26
    Beiträge
    3.467
    Den Treiber hat er mit meinem Beispiel mit dem Wort "Hallo" geladen. Ich hatte da die Zeile auskommentiert.
    Manchmal war es bei mir auch so, dass nichts ging. Dann musste ich den Treiber neu laden und es ging wieder alles.
    Also versuche nochmal den Treiber neu zu laden.

    @Dirk,
    hast du dich auch für einen Test-RP6 beworben?

    jon

    P.S.:
    @ostoff,
    wenn du wieder ein Programm postest, dann setze das bitte zw. [*code][*/code] ohne die *.
    Wird dann etwas übersichtlicher und der Post ist nicht so lang.
    Nice to be back after two years
    www.roboterfreak.de

  8. #8
    Erfahrener Benutzer Robotik Einstein Avatar von Dirk
    Registriert seit
    30.04.2004
    Ort
    NRW
    Beiträge
    3.791
    @Jon:
    Wo kann man sich denn für den Test-RP6 bewerben???

    Gruß Dirk

  9. #9
    Benutzer Stammmitglied
    Registriert seit
    17.06.2007
    Ort
    Landau
    Alter
    24
    Beiträge
    54
    ja aber das Programm für die 8 Leds funktioniert.

  10. #10
    Erfahrener Benutzer Robotik Einstein Avatar von Dirk
    Registriert seit
    30.04.2004
    Ort
    NRW
    Beiträge
    3.791
    Hallo ostoff,

    das Programm für die 8 Leds funktioniert.
    Das ist ein gutes Zeichen, denn der richtige Treiber ist geladen.

    Das LCD-Prog müßte auch funktionieren,- hast du eine IR-RC5-Fernbedienung, mit der du das testen kannst?

    Gruß Dirk

    P.S.: Wenn nicht, probier erst 'mal das "Hallo"-Prog von Jon.

Seite 1 von 2 12 LetzteLetzte

Berechtigungen

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