LCD-Modul TC1602E-01

[Pierre G. (bqube)]

Guten tag alle miteinander

Und zwar habe ich das oben beschriebene LCD Display welches aber nix 
anzeigt ausser
In der ersten Zeile schwarze kästchen.. angeschlossen habe ich dieses 
wie folgt

Portd 0-3 an Db 4-7  portd 4 an Rs  portd 5 an E

Das Programm ist das selbe wie im Assembler Beispiel und ich benutze den
Internen 4 MHz

Funktioniert dieses Display überhaupt im 4bit Modus

Mfg Bqube

[Oliver J. (skriptkiddy)]

Pierre Gnauck schrieb:
> Funktioniert dieses Display überhaupt im 4bit Modus
Ja das tut es.

Gruß Oliver

[Uwe (de0508)]

Pierre Gnauck schrieb:
> Portd 0-3 an Db 4-7  portd 4 an Rs  portd 5 an E

Guten Morgen,

und das R/#W Pin vom LCD?

[Pierre G. (bqube)]

Den R/W pin vom Display habe ich auf Masse gelegt für Schreiben..

Mfg Bqube

[Pierre G. (bqube)]

Das Programm was ich verwende ist das hier

.include "m8def.inc"
 
; .def definiert ein Synonym (Namen) für ein µC Register
.def temp1 = r16
.def temp2 = r17
.def temp3 = r18
 
           ldi temp1, LOW(RAMEND)      ; LOW-Byte der obersten RAM-Adresse
           out SPL, temp1
           ldi temp1, HIGH(RAMEND)     ; HIGH-Byte der obersten RAM-Adresse
           out SPH, temp1
 
           ldi temp1, 0xFF    ; Port D = Ausgang
           out DDRD, temp1
 
           rcall lcd_init     ; Display initialisieren
           rcall lcd_clear    ; Display löschen
 
           ldi temp1, 'T'     ; Zeichen anzeigen
           rcall lcd_data
 
           ldi temp1, 'e'     ; Zeichen anzeigen
           rcall lcd_data
           
           ldi temp1, 's'     ; Zeichen anzeigen
           rcall lcd_data
 
           ldi temp1, 't'     ; Zeichen anzeigen
           rcall lcd_data
 
loop:
           rjmp loop


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                 LCD-Routinen                ;;
;;                 ============                ;;
;;              (c)[e-mail]            ;;
;;                                             ;;
;; 4bit-Interface                              ;;
;; DB4-DB7:       PD0-PD3                      ;;
;; RS:            PD4                          ;;
;; E:             PD5                          ;;
;;                                             ;;
;; Takt:          4 MHz                        ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
 
 ;sendet ein Datenbyte an das LCD
lcd_data:
           mov temp2, temp1             ; "Sicherungskopie" für
                                        ; die Übertragung des 2.Nibbles
           swap temp1                   ; Vertauschen
           andi temp1, 0b00001111       ; oberes Nibble auf Null setzen
           sbr temp1, 1<<4              ; entspricht 0b00010000 (Anm.1)
           out PORTD, temp1             ; ausgeben
           rcall lcd_enable             ; Enable-Routine aufrufen
                                        ; 2. Nibble, kein swap da es schon
                                        ; an der richtigen stelle ist
           andi temp2, 0b00001111       ; obere Hälfte auf Null setzen 
           sbr temp2, 1<<4              ; entspricht 0b00010000
           out PORTD, temp2             ; ausgeben
           rcall lcd_enable             ; Enable-Routine aufrufen
           rcall delay50us              ; Delay-Routine aufrufen
           ret                          ; zurück zum Hauptprogramm
 
 ; sendet einen Befehl an das LCD
lcd_command:                            ; wie lcd_data, nur RS=0
           mov temp2, temp1
           swap temp1
           andi temp1, 0b00001111
           out PORTD, temp1
           rcall lcd_enable
           andi temp2, 0b00001111
           out PORTD, temp2
           rcall lcd_enable
           rcall delay50us
           ret
 
 ; erzeugt den Enable-Puls
 ;
 ; Bei höherem Takt (>= 8 MHz) kann es notwendig sein, 
 ; vor dem Enable High 1-2 Wartetakte (nop) einzufügen. 
 ; Siehe dazu http://www.mikrocontroller.net/topic/81974#685882
lcd_enable:
           sbi PORTD, 5                 ; Enable high
           nop                          ; mindestens 3 Taktzyklen warten
           nop
           nop
           cbi PORTD, 5                 ; Enable wieder low
           ret                          ; Und wieder zurück                     
 
 ; Pause nach jeder Übertragung
delay50us:                              ; 50µs Pause (bei 4 MHz)
           ldi  temp1, $42
delay50us_:dec  temp1
           brne delay50us_
           ret                          ; wieder zurück
 
 ; Längere Pause für manche Befehle
delay5ms:                               ; 5ms Pause (bei 4 MHz)
           ldi  temp1, $21
WGLOOP0:   ldi  temp2, $C9
WGLOOP1:   dec  temp2
           brne WGLOOP1
           dec  temp1
           brne WGLOOP0
           ret                          ; wieder zurück
 
 ; Initialisierung: muss ganz am Anfang des Programms aufgerufen werden
lcd_init:
           ldi  temp3,50
powerupwait:
           rcall  delay5ms
           dec  temp3
           brne powerupwait
           ldi temp1, 0b00000011        ; muss 3mal hintereinander gesendet
           out PORTD, temp1             ; werden zur Initialisierung
           rcall lcd_enable             ; 1
           rcall delay5ms
           rcall lcd_enable             ; 2
           rcall delay5ms
           rcall lcd_enable             ; und 3!
           rcall delay5ms
           ldi temp1, 0b00000010        ; 4bit-Modus einstellen
           out PORTD, temp1
           rcall lcd_enable
           rcall delay5ms
           ldi temp1, 0b00101000        ; 4Bit / 2 Zeilen / 5x8
           rcall lcd_command
           ldi temp1, 0b00001100        ; Display ein / Cursor aus / kein Blinken
           rcall lcd_command
           ldi temp1, 0b00000100        ; inkrement / kein Scrollen
           rcall lcd_command
           ret
 
 ; Sendet den Befehl zur Löschung des Displays
lcd_clear:
           ldi temp1, 0b00000001   ; Display löschen
           rcall lcd_command
           rcall delay5ms
           ret
 
 ; Sendet den Befehl: Cursor Home
lcd_home:
           ldi temp1, 0b00000010   ; Cursor Home
           rcall lcd_command
           rcall delay5ms
           ret

Wie oben beschrieben benutze ich den internen Quarz auf 4Mhz

[Pierre G. (bqube)]

So ich hab nun das Program auf 8Bit umgestellt .... wurde auch im AVR 
Simulator von oshonsoft ohne Probleme ausgegeben ... aber könnt ihr da 
bitte mal drüber schauen ob das so auch auf der Hardware laufen würde ?
danke schonmal

Mfg Bqube

.include "m8def.inc"
 
;PORTB5 = E
;PORTB4 = RS
;PORTB3 = RW
;PORTD 0-7 Datenleitungen



 
           ldi R16, LOW(RAMEND)      ; LOW-Byte der obersten RAM-Adresse
           out SPL, R16
           ldi R16, HIGH(RAMEND)     ; HIGH-Byte der obersten RAM-Adresse
           out SPH, R16
 
ldi R21, 0xFF    ; Port D = Ausgang
out DDRD, R21

ldi R21, 0xFF    ; Port B = Ausgang
out DDRB, R21

 
           rcall lcd_init     ; Display initialisieren
           rcall LCDCLS    ; Display löschen
 
           ldi R20, 'T'     ; Zeichen anzeigen
           rcall LCDDATA
       
 
           ldi R20, 'e'     ; Zeichen anzeigen
           rcall LCDDATA
           
           ldi R20, 's'     ; Zeichen anzeigen
           rcall LCDDATA
 
           ldi R20, 't'     ; Zeichen anzeigen
           rcall LCDDATA
 
loop:
           rjmp loop




lcd_init: ;8Bit MODUS
rcall WARTENG
 LDI R20,0b00110000
 OUT PORTD,R20
rcall LCDOP
rcall WARTENK
rcall LCDOP
rcall WARTENK
rcall LCDOP
rcall WARTENK
rcall LCDOP
rcall WARTENK
 LDI R20,0b00111000  ;2 ZEILEN
 OUT PORTD,R20
rcall LCDOP
rcall WARTENK
 LDI R20,0b00001000  ;LCD AUS
 OUT PORTD,R20
rcall LCDOP
rcall WARTENK
 LDI R20,0b00000001  ;LCD LÖSCHEN
 OUT PORTD,R20
rcall LCDOP
rcall WARTENK
 LDI R20,0b00000110 ;Kursor nach rechts wandernd, kein Display shift
 OUT PORTD,R20
rcall LCDOP
rcall WARTENK
 LDI R20,0b00001100  ;LCD EIN
 OUT PORTD,R20
rcall LCDOP
rcall WARTENK
LDI R20,0b00000000
OUT PORTD,R20
ret

LCDDATA:
OUT PORTD,R20
 SBI PORTB,4
 CBI PORTB,3
  NOP
 NOP
  SBI PORTB,5
 NOP
 NOP
 NOP
 NOP
  CBI PORTB,5
 NOP
 NOP
LDI R20,0b00000000
OUT PORTD,R20
rcall WARTENK
ret

LCDOP:    ;SENDEN DER EINSTELLUNGEN
  CBI PORTB,4
  CBI PORTB,3
 NOP
 NOP
  SBI PORTB,5
 NOP
 NOP
 NOP
 NOP
  CBI PORTB,5
 NOP
 NOP
ret

LCDCLS:  ;LCD LÖSCHEN
 LDI R20,0b00000001
 OUT PORTD,R20
rcall LCDOP
rcall WARTENK
LDI R20,0b00000000
OUT PORTD,R20
ret

LCDHOME:
 LDI R20,0b00000010
 OUT PORTD,R20
rcall LCDOP
rcall WARTENK
LDI R20,0b00000000
OUT PORTD,R20
ret



WARTENK:    ;5ms SCHLEIFE

          ldi  R17, 0x06
WGLOOP0:  ldi  R18, 0x37
WGLOOP1:  ldi  R19, 0xC9
WGLOOP2:  dec  R19
          brne WGLOOP2
          dec  R18
          brne WGLOOP1
          dec  R17
          brne WGLOOP0
          nop
          nop
ret

WARTENG:    ;20ms SCLHLEIFE

WGLOOP11:  ldi  R19, 0x79
WGLOOP22:  dec  R19
          brne WGLOOP22
          dec  R18
          brne WGLOOP11
          dec  R17
          brne WGLOOP0
          ldi  R17, 0x01
WGLOOP33:  dec  R17
          brne WGLOOP33
          nop
          nop
ret

[Matthias S. (Firma: matzetronics) (mschoeldgen)]

Den 8-Bit Modus benutze ich nicht, weil der mir zu viele Portpins 
wegfuttert. Aber bei deinem 4-bit Programm ist vermutlich der Fehler, 
das du den ganzen Port beschreibst und damit auch die Kontrollleitungen 
unabsichtlich verwurschtelst:

Pierre Gnauck schrieb:
> ldi temp1, 0b00000011        ; muss 3mal hintereinander gesendet
>   out PORTD, temp1             ; werden zur Initialisierung

Warum eigentlich das Rad immer neu erfinden? Da gibt es tonnenweise 
Beispiele - selbst in Assembler. Ich würde dir auch empfehlen, Portpins 
und Ports in Definitionen zu packen, damit du die Routinen auch mal in 
einer anderen Hardware Konfiguration benutzen kannst. z.B.:

.equ   LCD_RS_PORT    PORTD
.equ   LCD_RS_PIN     4
; und dann kannst du schreiben
    sbi   LCD_RS_PORT,LCD_RS_PIN     ; RS Pin high

Gehe also schrittweise vor: Fang an mit einer Routine, die ein Nibble 
(Halbbyte) aufs LCD schreibt. Brauchst du zur Initialisierung eh. Mach 
eine Routine die unter Benutzung der ersten ein Kommando Byte schreibt. 
Mach eine Routine, die ein Datenbyte schreibt, usw.

[Pierre G. (bqube)]

Danke für die hilfe ich überarbeite dann mal meinen 4bit code....

Warum ich das Rad neu erfinde einfach nur damit ich genau versteh wie 
alles funtioniert das init , die daten auf das Display zu bekommen... 
ich will nicht nur kopieren und einfügen sonder verstehn..  :)


Mfg Bqube

[Pierre G. (bqube)]

So da bin ich wieder also im 8Bit modus hat alles funktioniert aber mit 
dem 4bit Modus komm ich nicht zu recht .....

Ich schicke drei mal diesen wert 0000-0011
dann schicke ich für den 4Bit Modus 0000-0011

So ab jetzt müsste ich alles im 4Bit modus senden seh ich das richtig so 
???

Also muss ich wenn ich z.b 2 Zeilen 5*8 Punkte einstellen will also
0010-1000 Muss ich das Obere Nibble zu erst senden .... da ich vom PORTD 
die Ports 3 2 1 0 verwende müsste ich meinen 8Bit wert vertauschen mit 
swap

dann wird doch aus 0010-1000 = 1000-0010  und dann schicke ich
die ersten 4Bit 1000 und dann die letzten 0010 oder seh ich das falsch 
??

Mfg Bqube

[Matthias S. (Firma: matzetronics) (mschoeldgen)]

Ja, erst wird das obere Nibble auf die 4 Datenleitungen gelegt (aber 
ohne die anderen Portpins zu ändern!), E auf high und wieder auf low, 
dann das untere Nibble ( und wieder E high->low). Während der ganzen 
Operation müssen RS und RW low sein und da auch bleiben, da es Kommandos 
sind.
Zum Daten schreiben dann wie oben, aber mit RS high.

[Pierre G. (bqube)]

Ist zwar nich schön aber schau es dir mal bitte an ich finde den fehler 
nicht warum das Display den 4Bit modus nicht will...

danke schonmal


Mfg Bqube

.include "m8def.inc"

;-------------------------I
; Port D (7654:3210:)     I
; Db LCD     (:7654:3210) I
;                         I
; PORTD 0 = DB4           I
; PORTD 1 = DB5           I
; PORTD 2 = DB6           I
; PORTD 3 = DB7           I
;                         I
; PORTB 5 = E             I
; PORTB 4 = RS            I
; PORTB 3 = RW            I
;                         I
;-------------------------I

LDI R16,0xFF
OUT DDRB,R16
OUT DDRD,R16
LDI R16,0x00

ldi R16, LOW(RAMEND)
out SPL, R16
ldi R16, HIGH(RAMEND)
out SPH, R16

rcall lcd_load

ldi r17,'T'
rcall daten_4bit_routine

ldi r17,'E'
rcall daten_4bit_routine

ldi r17,'S'
rcall daten_4bit_routine

ldi r17,'t'
rcall daten_4bit_routine

a:
rjmp a






pause20:
WGLOOP11:
ldi  R19, 0x79
WGLOOP22:
dec  R19
brne WGLOOP22
dec  R18
brne WGLOOP11
dec  R17
brne WGLOOP0
ldi  R17, 0x01
WGLOOP33:
dec  R17
brne WGLOOP33
nop
nop
ret

pause5:
ldi  R17, 0x06
WGLOOP0:
ldi  R18, 0x37
WGLOOP1:
ldi  R19, 0xC9
WGLOOP2:
dec  R19
brne WGLOOP2
dec  R18
brne WGLOOP1
dec  R17
brne WGLOOP0
nop
nop
ret


daten_4bit_routine:
swap r17
out portd,r17
rcall daten_routine
rcall pause5
swap r17
out portd,r17
rcall daten_routine
rcall pause5
ret

adress_4bit_routine:
swap r17
out portd,r17
rcall adress_routine
rcall pause5
swap r17
out portd,r17
rcall adress_routine
rcall pause5
ret

daten_routine:
cbi portb,3
sbi portb,4
nop
nop
nop
sbi portb,5
nop
nop
nop
nop
nop
nop
cbi portb,5
nop
nop
nop
ret

adress_routine:
cbi portb,3
cbi portb,4
nop
nop
nop
sbi portb,5
nop
nop
nop
nop
nop
nop
cbi portb,5
nop
nop
nop
ret

lcd_load:
rcall pause20
LDI r17,0b00000011
out Portd,r17
rcall adress_routine
rcall pause5
rcall adress_routine
rcall pause5
rcall adress_routine
rcall pause5
ldi r17,0b00000010
out portd,r17
rcall adress_routine
rcall pause5
ldi r17,0b00101000
adress_4bit_routine
ldi r17,0b00001000
adress_4bit_routine
ldi r17,0b00000001
adress_4bit_routine
ldi r17,0b00000110
adress_4bit_routine
ldi r17,0b00001100
adress_4bit_routine
ret

[Matthias S. (Firma: matzetronics) (mschoeldgen)]

Das sieht nicht nur nicht schön aus, sondern sogar so, das ich keine 
Lust habe, mich da durchzuwühlen.

Pierre Gnauck schrieb:
> rcall pause20
> LDI r17,0b00000011
> out Portd,r17
> rcall adress_routine
> rcall pause5
> rcall adress_routine
> rcall pause5
> rcall adress_routine
> rcall pause5

Klar ist aber schon mal, das du nach dem ersten Setzen lange warten 
musst, min. 4,1 mS . Lies mal bitte das Datenblatt des KS0066 oder 
HD44780. Bild 24 im Original Hitachi Datenblatt. Und bitte, lies auch 
mal, wie es die andeen machen. Ausserdem zermanschst du immer noch die 
obere Hälfte von PortD mit deinen outs.

[Pierre G. (bqube)]

Gut werd ich mir mal anschauen ich hab auch schon gedacht es könnte am 
timing liegen aber in den anderen Beiträgen liest man immer nur von er 
muss minimal so und so lang warten dann kann es doch nicht schlimm sein 
wenn der LCD uc was länger wartet oder etwa doch ?..

Mfg Bqube

[Pierre G. (bqube)]

So hab nun den Fehler gefunden es klappt auf jeden fall schonmal im 
Simulator mit dem 4Bit Modus :)

Danke für Hilfe

Mfg Bqube

[Matthias S. (Firma: matzetronics) (mschoeldgen)]

Denke dran, der Simulator läuft im Moment mit 4MHz. Wenn dein realer 
Mega auch auf 4MHz gefused ist, kein Problem, bei 8 MHz sind alle 
Warteschleifen natürlich nur halb so lang. Übrigens ist nur der 
originale HD44780 so eine richtige Schnarchnase, die neueren Klone, wie 
z.B. der KS0066 sind da schon schneller.
Hier als kleines Präsent noch eine sehr universelle Warteroutine, im 
Orignal von Steve Wozniak aus dem Apple II ROM. Ein kleines Meisterwerk 
und ermöglicht einen weiten Bereich von Delays:

.def  del  = r20  ; delay counter
.equ  MS10  = 0x34          ; 10 mSecs
.equ  MS30  = 0x60          ; 30 mSecs
.equ  MS100  = 0x72    ; roughly 100mS with wozwait @ 8Mhz
.equ  second  = 0xe6    ; roughly a second with wozwait @ 8Mhz
; steve wozniak's wait routine - this time for AVR 
; this is the  routine with del^2 
; this wait routine is ingenious and handles wide ranges of delay 
; as a hommage to steve i port it to all my embedded systems. 
; some presets
w1sec:  ldi     del,second
        rjmp    wozwait
w10ms:  ldi  del,MS10
        rjmp  wozwait
w30ms:  ldi  del,MS30
        rjmp  wozwait
w100ms:  ldi  del,MS100
;
wozwait: push  del
wwait2:  push  del
wwait1:  subi  del,1  
         brne  wwait1
         pop  del
         subi  del,1
         brne  wwait2
         pop  del
         subi  del,1
         brne  wozwait
         ret

Im Simulator kannst du auch noch andere Werte für del(r20) ausprobieren 
um dir jede beliebige Verzögerung zu basteln.

[Pierre G. (bqube)]

Also müssen meine Wartezeiten bei den neueren nich al zu lang sein wie 
bei dem HD44780 .... mein Problem war das ich zwischen den Nibble eine 
pause von 5ms drinn hatte

adress_4bit_routine:
swap r17
out portd,r17
rcall adress_routine
rcall pause5          <-------------    Die hier
swap r17
out portd,r17
rcall adress_routine
rcall pause5
ret

und aus diesem grun hat das ganze nich funtioniert weil der HD44780 nach 
dem ersten Nibble zu lange warten musste ... deswegen hat er diesen nich 
angenommen .....

Ich schreib grad an einer routine die mit hilfe von sbi und cbi die 
Port's setz und löscht so das ich die anderen 4Bit von dem Port nicht 
mit belege.

Mfg Bqube