Re: Atmega8 i lcd na I2c PCF8574 - Kłopot z wyświetlaniem zn

2013-11-08T07:05:05+01:00

Widzę że w tym temacie sam sobie na pytania odpowiadam ...
Udało mi się wyświetlać znaki chr(x) na wyświetlaczu, jak na razie tylko parę godzin testowałem ale działał prawidłowo.

Może komuś się przyda więc zamieszczam mam na dzieje rozwiązanie. Może jeszcze ktoś przetestuje.

[syntax=basic4gl]Wait 1
Initlcd
Wait 1

'==============================================================================
Wait 1
_lcd_e = 192 'select both halfs for defining characters
Deflcdchar 0 , 8 , 20 , 8 , 3 , 4 , 4 , 4 , 3 ' znak stopnia C
_lcd_e = 128
Cls 'select data RAM
Rem it is important that a CLS is following the deflcdchar statements because it will set the controller back in datamode
Lcd "Sterownik solara " ; Chr(0) 'print the special character

Wait 2
Cls

Do

....................[/syntax]

Statystyki: Napisane przez endurasek — 8 lis 2013, o 07:05

Atmega8 i lcd na I2c PCF8574 - Kłopot z wyświetlaniem znaków

2013-10-26T08:25:47+01:00

Atmega8 i lcd na I2c PCF8574 - Kłopot z wyświetlaniem znaków Deflcdchar

Witam
Postanowiłem i na tym forum podzielić się moim problemem

Zbudowałem układ oparty na Atmega8 gdzie dane na wyświetlacz LCD 4x20 są wysyłane po magistrali I2c przez układ i PCF8574.
Nie ma problemu z wyświetlaniem liter i normalnych znaków, problem pojawia się w momencie wyświetlania znaków Deflcdchart. W miejscu tego znaku na wyświetlaczu pojawiają się krzaczki.

Program wygląda tak:
[syntax=basic4gl]$regfile = "M8def.dat"
$crystal = 8000000
$lib "Lcd_i2c.lib"

Dim _lcd_e As Byte

Deflcdchar 0 , 8 , 20 , 11 , 4 , 4 , 4 , 3 , 32
Deflcdchar 2 , 32 , 10 , 32 , 14 , 17 , 17 , 17 , 14

'===============
Const Pcf8574_lcd = &H40

Config I2cdelay = 64

Config Scl = Portc.5
Config Sda = Portc.4

Config Lcd = 20 * 4

Const Pcf_d4 = 3
Const Pcf_d5 = 2
Const Pcf_d6 = 1
Const Pcf_d7 = 0
Const Pcf_rs = 6
Const Pcf_rw = 5
Const Pcf_e2 = 7
Const Pcf_e1 = 4

_lcd_e = 128

Do

Locate 1 , 1
Lcd "TEST " ; Chr(0) ; Chr(2);

Loop[/syntax]

Biblioteka Lcd_i2c.lib jaką stosuje wygląda tak i tylko na niej umiem coś wyświetlić na lcd

[syntax=basic4gl]copyright = Kent Andersson
www = none
email = kent(malpa)smmab.se
comment = I2C LCD driver
libversion = 1.02
date = 31 march 2002
statement = You are free to use this code any way you like, if you are able to optimize
statement = it better, please send me an update on my e-mail.
history = No known bugs.

;define a constant named PCF8574_LCD pointing to the i2c address
;dimension _lcd_e as byte to control the E-lines (4 lines LCD:s)
;_lcd_e should have one of the following values
;128 to enable E1, 64 to enable E2, 192 to enable both E1 and E2 (cls, deflcdchar)
;Connect the following pins from PCF8574 to LCD
;
;P0 - D4
;P1 - D5
;P2 - D6
;P3 - D7
;P4 - RS
;P5 - RW (not used, set to 0 to ground for write)
;P6 - E2 (on 1 or 2 line display nc)
;P7 - E1

[_Init_LCD]
_Init_LCD:
*BASIC: waitms 50
ldi r16,&hc0 ; this is to make the initialization on both halfs of a 4-line LCD
Ldi _temp1, &h03 ; at init-time I call all routines before _lcd_e is loaded into r16
Rcall _Send_to_LCD
*BASIC: waitms 4
Rcall _Send_to_LCD
Rcall _Send_to_LCD
Ldi _temp1, &h02
Rcall _Send_to_LCD
Ldi _temp1, &h28
Rcall _Write_lcd_byte ;RS flag should to be 0, so jump directly to write byte
Ldi _temp1, &h08
Rcall _Write_lcd_byte
Ldi _temp1, &h0c
Rcall _Write_lcd_byte
Ldi _temp1, &h01
Rjmp _Write_lcd_byte
[END]

[_Write_lcd]
_Write_lcd:
* lds r16,{_lcd_e}
sbr r16,&h10 ;set RS flag (4 high bits is used as control)
rjmp _write_lcd_byte
_Lcd_Control:
* lds r16,{_lcd_e}
_write_lcd_byte:
push r24
Swap _temp1
Rcall _Write_lcd_Nibble
pop r24
_Write_lcd_nibble:
Cbr _temp1,&HF0 ; E1, E2, RW, RS low

_Send_to_LCD:
push r26
push r27
ldi r25,3
_send_3_times:
PUSH _temp2
BST _temp1, 0
* BLD _temp2, PCF_D4
BST _temp1, 1
* BLD _temp2, PCF_D5
BST _temp1, 2
* BLD _temp2, PCF_D6
BST _temp1, 3
* BLD _temp2, PCF_D7
BST _temp1, 4
* BLD _temp2, PCF_RS
BST _temp1, 5
* BLD _temp2, PCF_RW
BST _temp1, 6
* BLD _temp2, PCF_E2
BST _temp1, 7
* BLD _temp2, PCF_E1
*BASIC: i2csend pcf8574_LCD, _temp2
POP _temp2
eor _temp1,R16 ; Xor E1 and/or E2 to set them
; @genus(250)
ldi r26,0
_LCD_delay:
dec R26
brne _LCD_delay
Dec R25
Brne _send_3_times
eor _temp1,R16 ; Xor to restore to initial state (even number of times)
pop r27
pop r26
ret

[END][/syntax]

Chciałem zaznaczyć że w moim przypadku piny PCF do lcd są podłączone w następujący sposób:

Const Pcf_d4 = 3 'LCD D4 -> PCF P0
Const Pcf_d5 = 2
Const Pcf_d6 = 1
Const Pcf_d7 = 0
Const Pcf_rs = 6
Const Pcf_rw = 5
Const Pcf_e2 = 7
Const Pcf_e1 = 4

W bibliotece lib wyglada to trochę inaczej ale usiłowałem zmienic i wtedy już nic nie działało.

Znalazłem podobny problem na innym forum. Chodzi o zastosowanie komendy Initlcd ale u mnie nie działa lub zle robię.
http://bascom-forum.de/archive/index.php/t-4045.html?s=31c6341cda392fbfb262e98e75ba2401

Statystyki: Napisane przez endurasek — 26 paź 2013, o 08:25

ATNEL tech-forum

Re: Atmega8 i lcd na I2c PCF8574 - Kłopot z wyświetlaniem zn

Atmega8 i lcd na I2c PCF8574 - Kłopot z wyświetlaniem znaków