Strona 2 z 2
Re: xm32e5 pcf8574
: 17 maja 2022, 12:06
autor: 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
Re: xm32e5 pcf8574
: 17 maja 2022, 12:10
autor: 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
Re: xm32e5 pcf8574
: 17 maja 2022, 12:12
autor: niveasoft
Trzeba by poanalizować te bibliotekę. Na pewno chodzi o jedne z tych wpisów z pliku DAT
Re: xm32e5 pcf8574
: 17 maja 2022, 12:20
autor: krolikbest
Bartku, wielkie dzięki. Na wersji 2085.004 działa.
Kod jaki testowałem:
$regfile = "xm32e5def.dat"
$crystal = 32000000 '32MHz
$hwstack = 80
$swstack = 60
$framesize = 60
$lib "lcd_i2c_PCF8574.Lib"
Config Osc =enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1
dim twi_start as byte
Config Twic=100000
Config Scl = Portc.1
Config Sda = Portc.0
Open "twic" For Binary As #2
Config I2cdelay = 10
I2Cinit #2
const TWI_ADR = TWIC_CTRL
const TWI_CH = TWIC_MASTER_DATA 'albo TWIC_MASTER_ADDR
Dim Pcf8574_lcd As Byte : Pcf8574_lcd = &H4E 'PCF8574 slave address. (&H40,&H42,&H44,&H46,&H48,&H4A,&H4C,&H4E)
Dim Backlight As Byte : Backlight = 1 'LCD backlight control. (0: off, 1: on)
Config Lcd = 16x2 'Set the LCD to 20 characters and 4 lines
Initlcd
Locate 1 , 1
Lcd "Dystans"
end
PS.
Jesteś szybszy niż ja zdążę odpalić Bascoma i coś przetestować
Z poważaniem,
Marcin
Re: xm32e5 pcf8574
: 17 maja 2022, 12:32
autor: 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
Re: xm32e5 pcf8574
: 17 maja 2022, 12:38
autor: krolikbest
No faktycznie O-Family podaje przykład. Czyli przeoczyłem..