LCD-Display 8bit mit busy-flag-Abfrage

Hallo Forum,

ich verwende ein 4*20 Zeichen Dispay mit HD44780-Controller im 8bit-Modus.

Da die Ausgabe mit LCD "irgendwas" zu lange dauert, möchte ich notwendige Ausgaben in ein Variablenpuffer legen und in Ruhezeiten ausgeben.

Um auch in diesen Ruhezeiten schnell zu sein möchte ich das Busy-Flag abfragen und nicht einfach nur warten.

Leider werden nach der Busy-Flag-Abfrage nur noch abwechselnd volle Kästchen ($FF) und Leerzeichen ausgegeben.
Auch wird das Cls im Main-loop nach der ersten Busy-Flag-Abfrage nicht mehr ausgeführt.

Das Problem vermute ich in Datenrichtungsangabe, denn füge ich in der lcd_put()-Sub am Anfang ein DDRC = 1 ein, erhalte ich ebenfalls abwechselnde Kästchen

Code:

---


$regfile = "m128def.dat"
$crystal = 16000000
$framesize = 100
$swstack = 100
$hwstack = 100
$baud = 57600
'$sim



Testpin Alias Portf.4 : Config Testpin = Output : Testpin = 0
Declare Sub Lcd_put(_x As Byte)
Declare Sub Lcd_busy()


'################### LCD Settings #############################################
Dim Lcd_textbuffer As String * 20 , Lcd_textbuffer1 As String * 20
Config Lcdpin = Pin , Port = Portc , E = Portd.5 , Rs = Portg.3
Config Lcd = 20 * 4
Config Portg.4 = Output

Lcd_enable Alias Portd.5
Lcd_rs Alias Portg.3
Lcd_rw Alias Portg.4
Lcd_data Alias Portc
Cursor Off
Initlcd
Cls

Dim Lcd_zeile1 As String * 20
Dim Lcd_zeile1_char(20) As Byte At Lcd_zeile1 Overlay

Dim Lcd_zeile2 As String * 20
Dim Lcd_zeile2_char(20) As Byte At Lcd_zeile2 Overlay

Dim Lcd_zeile3 As String * 20
Dim Lcd_zeile3_char(20) As Byte At Lcd_zeile3 Overlay

Dim Lcd_zeile4 As String * 20
Dim Lcd_zeile4_char(20) As Byte At Lcd_zeile4 Overlay

Dim I As Byte


Do
  Cls
  Lcd_zeile1 = "0123456789"
  'input Lcd_zeile1

  For I = 1 To Len(lcd_zeile1)
      toggle Testpin
      Call Lcd_put(lcd_zeile1_char(i))
      toggle Testpin
      Waitms 100
  Next I
  Decr I
  Lowerline : Lcd "ready, " ; I ; " zeichen"
  Wait 5
Loop
End



Sub Lcd_put(_x As Byte)
  'DDRC = 1
  Lcd_data = _x
  Lcd_rw = 0
  Lcd_rs = 1
  !nop
  !nop
  Lcd_enable = 1
  !nop
  !nop
  Lcd_enable = 0
  Call Lcd_busy()
End Sub




Sub Lcd_busy
    Ddrc = 0
    Portc = 1
    Lcd_rs = 0
    Lcd_rw = 1
    !nop
    !nop
    Do
      Toggle Lcd_enable
      !nop
      !nop
    Loop Until Pinc.7 = 0
    Ddrc = 1
End Sub

---

Was mache ich verkehrt? oder besser, was wäre besser?

Gruß und Dank

BoGe-Ro

die lösung war einfach - mit toggle hats dann geklappt.

hier der aktuelle Programm-Code mit Kommentaren

Code:

---

$regfile = "m128def.dat"
$crystal = 16000000
$framesize = 100
$swstack = 100
$hwstack = 100
$baud = 57600
'$sim

Luefter_pwm Alias Portb.4 : Config Luefter_pwm = Output : Luefter_pwm = 0
Testpin Alias Portf.4 : Config Testpin = Output : Testpin = 0

Declare Sub Lcd_ausgabe()
Declare Sub Lcd_put(_x As Byte)
Declare Sub Lcd_cls()
Declare Sub Lcd_print(byval _x As Byte , Byval _y As Byte , Byval _text As String)

'################### LCD Settings #############################################
Dim Lcd_textbuffer As String * 20 , Lcd_textbuffer1 As String * 20
Config Lcdpin = Pin , Port = Portc , E = Portd.5 , Rs = Portg.3
Config Lcd = 20 * 4
Config Portg.4 = Output

Lcd_enable Alias Portd.5
Lcd_rs Alias Portg.3
Lcd_rw Alias Portg.4
Lcd_data Alias Portc
Cursor Off
Initlcd
Deflcdchar 0 , 4 , 14 , 31 , 4 , 4 , 4 , 4 , 32            ' Pfeil hoch
Deflcdchar 1 , 4 , 4 , 4 , 4 , 31 , 14 , 4 , 32            ' Pfeil runter
Deflcdchar 2 , 27 , 27 , 27 , 27 , 27 , 27 , 27 , 32        ' Pause-Zeichen
Deflcdchar 3 , 16 , 24 , 28 , 30 , 28 , 24 , 16 , 32        ' Play-Zeichen
Deflcdchar 4 , 32 , 32 , 31 , 31 , 31 , 31 , 31 , 32        ' Stop-Zeichen
Deflcdchar 5 , 32 , 32 , 32 , 32 , 12 , 10 , 12 , 10        ' kleines R
Deflcdchar 6 , 32 , 32 , 32 , 32 , 10 , 10 , 12 , 10        ' kleines K
Deflcdchar 7 , 32 , 32 , 32 , 32 , 8 , 8 , 8 , 14          ' kleines L
Cls


Dim Lcd_4zeilen As String * 80
Dim Lcd_4zeilen_char(80) As Byte At Lcd_4zeilen Overlay


Dim I As Byte
Dim Text As String * 20


Do

  Call Lcd_print(1 , 1 , "Das ist die 1. Zeile")
  Call Lcd_print(1 , 2 , "Das ist die 2. Zeile")
  Text = "T" + Chr(5) + "= 5 " + Chr($df) + "C"
  Call Lcd_print(1 , 3 , Text)
  Call Lcd_print(1 , 4 , "Das ist die 4. Zeile")

      Toggle Testpin
      Call Lcd_cls()
      'Cls
      Toggle Testpin

  Call Lcd_ausgabe
  Waitms 100
Loop
End


Sub Lcd_ausgabe
Local _i As Byte
  For _i = 1 To 80 : Call Lcd_put(lcd_4zeilen_char(_i)) : Next _i
End Sub


Sub Lcd_put(_x As Byte)
' Dauer für die Ausgabe von 20 Zeichen:  1,1ms
'                          80 Zeichen:  3,1ms  (bei 27 nop's Pause)
' mit Lcd Chr(_x) in der Funktion 20 Z:  23ms

  If _x = 0 Then _x = $a0                                  'chr(0) auf Leerzeichen mappen
  Lcd_data = _x                                            'Datenbyte auf Bus legen
  Lcd_rw = 0                                              'Schreibbefehl
  Lcd_rs = 1                                              'Datenpuffer
  !nop
  !nop
  Lcd_enable = 1
  !nop
  !nop
  Lcd_enable = 0


  'auf Display-Ready warten
      Toggle Ddrc                                          'Busrichtung lesen
      Lcd_rw = 1                                            'Lesebefehl
      Lcd_rs = 0                                            'Steuerpuffer
      !nop
      !nop
      Do
          Toggle Lcd_enable
          !nop
      Loop Until Pinc.7 = 0                                'auf busy-flag warten
      Toggle Ddrc                                          'Busrichtung schreiben
End Sub



Sub Lcd_print(byval _x As Byte , Byval _y As Byte , _text As String * 20)
'Z1S1 = 1-20
'Z2S1 = 41-60
'Z3S1 = 21-40
'Z4S1 = 61-80
Local _position As Byte
Local _anzahl As Byte
Local _i As Byte
  Select Case _y
      Case 1 : _position = 0
      Case 2 : _position = 40
      Case 3 : _position = 20
      Case 4 : _position = 60
  End Select
  _position = _position + _x
  _anzahl = Len(_text)
  _i = Memcopy(_text , Lcd_4zeilen_char(_position) , _anzahl)
End Sub


Sub Lcd_cls()
'Dauer knapp 1.6ms
'Bsacom CLS dauert 5.2ms
  Lcd_data = 1                                            'Datenbyte auf Bus legen
  Lcd_rw = 0                                              'Schreibbefehl
  Lcd_rs = 0                                              'Datenpuffer
  !nop
  !nop
  Lcd_enable = 1
  !nop
  !nop
  Lcd_enable = 0

  'auf Display-Ready warten
      Toggle Ddrc                                          'Busrichtung lesen
      Lcd_rw = 1                                            'Lesebefehl
      Lcd_rs = 0                                            'Steuerpuffer
      !nop
      !nop
      Do
          Toggle Lcd_enable
          !nop
      Loop Until Pinc.7 = 0                                'auf busy-flag warten
      Toggle Ddrc                                          'Busrichtung schreiben
End Sub

---

Hallo,

hast du beim 1. Versuch da wirklich DDRC = 1 angegeben, dann klappt das nicht, da muss 0 oder 255 hin, damit alle Bits rein oder raus zeigen.
Geht dann auch schneller als mit Toggle, denn da wird das Register erst noch ausgelesen, und dann umgedreht.

ohhh, wie peinlich ;-)

du hast recht, alles auf 1 ist ja wirklich 255 und nicht 1

Habs gerade nochmal geändert. Hier also der jetzt aktuelle Code.
Zeitlich wirds schneller, aber im unmessbaren Bereich.
Hab noch eine Funktion zum Zeilen-Löschen reingepackt.
Morgen wirds dann in das richtige Programm eingefügt - mal schauen, welche Funktionen dabei noch notwendig werden

Aber besten Dank

Code:

---

$regfile = "m128def.dat"
$crystal = 16000000
$framesize = 100
$swstack = 100
$hwstack = 100
$baud = 57600
'$sim

Luefter_pwm Alias Portb.4 : Config Luefter_pwm = Output : Luefter_pwm = 0
Testpin Alias Portf.4 : Config Testpin = Output : Testpin = 0

Declare Sub Lcd_ausgabe()
Declare Sub Lcd_put(_x As Byte)
Declare Sub Lcd_cls()
Declare Sub Lcd_clc(byval _y As Byte)                      'Clear Column
Declare Sub Lcd_print(byval _x As Byte , Byval _y As Byte , Byval _text As String)

'################### LCD Settings #############################################
Dim Lcd_textbuffer As String * 20 , Lcd_textbuffer1 As String * 20
Config Lcdpin = Pin , Port = Portc , E = Portd.5 , Rs = Portg.3
Config Lcd = 20 * 4
Config Portg.4 = Output

Lcd_enable Alias Portd.5
Lcd_rs Alias Portg.3
Lcd_rw Alias Portg.4
Lcd_data Alias Portc
Cursor Off
Initlcd
Deflcdchar 0 , 4 , 14 , 31 , 4 , 4 , 4 , 4 , 32            ' Pfeil hoch
Deflcdchar 1 , 4 , 4 , 4 , 4 , 31 , 14 , 4 , 32            ' Pfeil runter
Deflcdchar 2 , 27 , 27 , 27 , 27 , 27 , 27 , 27 , 32        ' Pause-Zeichen
Deflcdchar 3 , 16 , 24 , 28 , 30 , 28 , 24 , 16 , 32        ' Play-Zeichen
Deflcdchar 4 , 32 , 32 , 31 , 31 , 31 , 31 , 31 , 32        ' Stop-Zeichen
Deflcdchar 5 , 32 , 32 , 32 , 32 , 12 , 10 , 12 , 10        ' kleines R
Deflcdchar 6 , 32 , 32 , 32 , 32 , 10 , 10 , 12 , 10        ' kleines K
Deflcdchar 7 , 32 , 32 , 32 , 32 , 8 , 8 , 8 , 14          ' kleines L
Cls


Dim Lcd_4zeilen As String * 80
Dim Lcd_4zeilen_char(80) As Byte At Lcd_4zeilen Overlay


Dim I As Byte
Dim Text As String * 20


Do
  Incr I : If I = 5 Then I = 1
  Call Lcd_print(1 , 1 , "Das ist die 1. Zeile")
  Call Lcd_print(1 , 2 , "Das ist die 2. Zeile")
  Text = "T" + Chr(5) + "= 5 " + Chr($df) + "C"
  Call Lcd_print(1 , 3 , Text)
  Call Lcd_print(1 , 4 , "Das ist die 4. Zeile")


      'Call Lcd_cls()
      'Call Lcd_clc(i)
      'Cls

  Toggle Testpin
  Call Lcd_ausgabe
  Toggle Testpin
  Waitms 100
Loop
End


Sub Lcd_ausgabe
Local _i As Byte
  For _i = 1 To 80 : Call Lcd_put(lcd_4zeilen_char(_i)) : Next _i
End Sub


Sub Lcd_put(_x As Byte)
' Dauer für die Ausgabe von 20 Zeichen:  1,1ms
'                          80 Zeichen:  3,1ms  (bei 27 nop's Pause)
' mit Lcd Chr(_x) in der Funktion 20 Z:  23ms

  If _x = 0 Then _x = $a0                                  'chr(0) auf Leerzeichen mappen
  Ddrc = 255                                              'Busrichtung schreiben
  Lcd_data = _x                                            'Datenbyte auf Bus legen
  Lcd_rw = 0                                              'Schreibbefehl
  Lcd_rs = 1                                              'Datenpuffer
  !nop
  !nop
  Lcd_enable = 1
  !nop
  !nop
  Lcd_enable = 0


  'auf Display-Ready warten
      Ddrc = 0                                              'Busrichtung lesen
      Lcd_rw = 1                                            'Lesebefehl
      Lcd_rs = 0                                            'Steuerpuffer
      !nop
      !nop
      Do
          Toggle Lcd_enable
          !nop
      Loop Until Pinc.7 = 0                                'auf busy-flag warten
      Ddrc = 255                                            'Busrichtung schreiben
End Sub



Sub Lcd_print(byval _x As Byte , Byval _y As Byte , _text As String * 20)
'Z1S1 = 1-20
'Z2S1 = 41-60
'Z3S1 = 21-40
'Z4S1 = 61-80
Local _position As Byte
Local _anzahl As Byte
Local _i As Byte
  Select Case _y
      Case 1 : _position = 0
      Case 2 : _position = 40
      Case 3 : _position = 20
      Case 4 : _position = 60
  End Select
  _position = _position + _x
  _anzahl = Len(_text)
  _i = Memcopy(_text , Lcd_4zeilen_char(_position) , _anzahl)
End Sub


Sub Lcd_cls()
'Dauer knapp 1.6ms
'Bsacom CLS dauert 5.2ms
  Lcd_data = 1                                            'Datenbyte auf Bus legen
  Lcd_rw = 0                                              'Schreibbefehl
  Lcd_rs = 0                                              'Datenpuffer
  !nop
  !nop
  Lcd_enable = 1
  !nop
  !nop
  Lcd_enable = 0

  'auf Display-Ready warten
      Toggle Ddrc                                          'Busrichtung lesen
      Lcd_rw = 1                                            'Lesebefehl
      Lcd_rs = 0                                            'Steuerpuffer
      !nop
      !nop
      Do
          Toggle Lcd_enable
          !nop
      Loop Until Pinc.7 = 0                                'auf busy-flag warten
      Toggle Ddrc                                          'Busrichtung schreiben
End Sub



Sub Lcd_clc(byval _y As Byte)                              'Clear Column
'Dauer: 37µs
Local _position As Byte
Local _i As Byte
Local _zeichen As String * 1 : _zeichen = " "
  Select Case _y
      Case 1 : _position = 0
      Case 2 : _position = 40
      Case 3 : _position = 20
      Case 4 : _position = 60
  End Select
  Incr _position
  _i = Memcopy(_zeichen , Lcd_4zeilen_char(_position) , 20 , 2)
End Sub

---