xm32e5 pcf8574

[niveasoft]

Spróbuj dodać w kodzie przed biblioteką takie stałe:


const TWI_ADR = TWIC_CTRL
const TWI_CH = TWIC_MASTER_DATA
$lib "lcd_i2c_PCF8574.lib"

Wtedy to się kompiluje w 2085

[krolikbest]

I dokładnie tak jest, kompiluje ale po wgraniu nic się nie dzieje na wyświetlaczu. Oczywiście mówię o wersji 2084

Z poważaniem,
Marcin

[niveasoft]

Trzeba by poanalizować te bibliotekę. Na pewno chodzi o jedne z tych wpisów z pliku DAT

[krolikbest]

Bartku, wielkie dzięki. Na wersji 2085.004 działa.
Kod jaki testowałem:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. $regfile = "xm32e5def.dat"
2. $crystal = 32000000 '32MHz
3. $hwstack = 80
4. $swstack = 60
5. $framesize = 60
6.  
7. $lib "lcd_i2c_PCF8574.Lib"
8.  
9. Config Osc =enabled , 32mhzosc = Enabled
10. Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1
11.  
12. dim twi_start as byte
13.  
14. Config Twic=100000
15. Config Scl = Portc.1
16. Config Sda = Portc.0
17. Open "twic" For Binary As #2
18. Config I2cdelay = 10
19.  
20. I2Cinit #2
21. const TWI_ADR = TWIC_CTRL
22. const TWI_CH = TWIC_MASTER_DATA 'albo TWIC_MASTER_ADDR
23.  
24. Dim Pcf8574_lcd As Byte : Pcf8574_lcd = &H4E             'PCF8574 slave address. (&H40,&H42,&H44,&H46,&H48,&H4A,&H4C,&H4E)
25. Dim Backlight As Byte : Backlight = 1                    'LCD backlight control. (0: off, 1: on)
26.  
27. Config Lcd = 16x2                                        'Set the LCD to 20 characters and 4 lines
28.  
29. Initlcd
30.  
31. Locate 1 , 1
32. Lcd "Dystans"
33.  
34. end

PS.
Jesteś szybszy niż ja zdążę odpalić Bascoma i coś przetestować

Z poważaniem,
Marcin

[niveasoft]

Co ciekawe to chyba wystarczyło przestudiować te przykłady z wątku na MCS...aby coś już zwęszyć.
Był tam przykład dla Xtiny

[krolikbest]

No faktycznie O-Family podaje przykład. Czyli przeoczyłem..