Bin Neuling und suche Hilfe !

**Mkteex** · 22.10.2006, 21:18

Bin Neuling habe mir vor kurzen einen RP5 mit Erweiterungsplatine und LCD gekauft und Suche jetzt eine Routine für das Demoprogramm "Antrieb.bas" was das LCD mit einbindet und zweizeilig ansteuert zb. oben CONTROL und unten ROBBY RP5 steht, dort auch stehen bleibt und das eigentliche Programm "Antrieb.bas" weiterhin ausgeführt wird. Vielleicht kann mir da ja jemand helfen! Danke!

**Dirk** · 23.10.2006, 20:23

Hallo Mkteek,

du brauchst die LCD-Routinen (am Ende unterbringen!):

Code:

'----------------------------------------
'------------- 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

... und kannst dann mit ...

Code:

 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 = &H52 : gosub lcd_writechar    'R
 lcd_param = &H4F : gosub lcd_writechar    'O
 lcd_param = &H42 : gosub lcd_writechar    'B
 lcd_param = &H42 : gosub lcd_writechar    'B
 lcd_param = &H59 : gosub lcd_writechar    'Y
 lcd_param = &H20 : gosub lcd_writechar    '
 lcd_param = &H52 : gosub lcd_writechar    'R
 lcd_param = &H50 : gosub lcd_writechar    'P
 lcd_param = &H35 : gosub lcd_writechar    '5

... z.B. "ROBBY RP5" ausgeben.

Gruß Dirk