Witajcie , napisałem taki krótki kod aby sprawidzić czy moja kostka
AT24C64 w ogóle działa , no i nie wiem czy coś źle napisałem
(prawie na pewno), czy raczej jest coś nie tak z nią ,ew. ze mną.
Zmienna eep zawiera liczbę - np. 233
zapisuję ją do zewn. eepromu , potem odczytuję , ale niezależnie od zmiennej ,wyświetla 255 lub 0 - powiedzcie co jest nie tak.
Schemat podłączenia standardowy.
AT24C64 w ogóle działa , no i nie wiem czy coś źle napisałem
(prawie na pewno), czy raczej jest coś nie tak z nią ,ew. ze mną.
Zmienna eep zawiera liczbę - np. 233
zapisuję ją do zewn. eepromu , potem odczytuję , ale niezależnie od zmiennej ,wyświetla 255 lub 0 - powiedzcie co jest nie tak.
Schemat podłączenia standardowy.
$regfile = "m32def.dat"
$crystal = 11059200
$lib "i2c.lbx"
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 20 * 4
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Config Sda = Portc.1
Config Scl = Portc.0
Config I2cdelay = 100
I2cinit
Dim Eep As Byte
Const Adrw = 416
Const Adrr = 417
Do
Eep = 233
I2cstart
I2cwbyte Adrw
I2cwbyte 1
I2cwbyte Eep
I2cstop
Waitms 30
I2cstart
I2cwbyte Adrw
I2cwbyte 1
I2cstart
I2cwbyte Adrr
I2crbyte Eep , Nack
I2cstop
Cls
Cursor Off
Lcd "" ; Eep
Waitms 100
Loop