I2C nie dziala

[azuri]

WITAM
ostatnio napisalem krutki programik testujacy pamiec AT24C04
i przy odbieraniu zawsze wychodzi 255 DLACZEGO??
a oto ten program ps to byl procek "4051 na kwarcu 11,059

Dim A As Byte
Dim S As Byte


S = 0
A = 19

I2cstart
I2cwbyte 162
I2cwbyte A
I2cstop
Cls
Lcd "wyslano: 19"
Wait 5
I2cstart
I2cwbyte 160
I2crbyte S , Nack
I2cstop
Cls
Lcd "odebrano: " ; S
End

[ Dodano: 25-01-2005, 15:41 ]
poprawka teraz wyskakuje raz 127 a raz 255

[Press]

Jeśli adres bazowy ukladu to 160 to wpisu dokonujesz pod adresem 161, a nie 162
A poza tym przy odczycie:
i2cstart
i2cwbyte 160
i2cwbyte adres_komórki_do_odczytania
i2cstart
i2crbyte zmienna_do_której_wczytujesz
i2cstop

[azuri]

niestety to tez ne dziala

[JanWi]

Pewnie, że nie działa, bo :
1. Sprawdź poprawność połączenia pinów SDA i SCL.
2. Sprawdź, czy nie kożystasz z wejść komparatora, jeśli tak, to musisz piny podciągnąć do VCC.
3. Oprócz adresowania samej pamięci (adrs bazowy) musisz podać adres komórki do zapisu, a potem dane. Przykład zapisu:

I2cstart
I2cwbyte adres_bazowy_pamięci_dla_zapisu
I2cwbyte adres_komorki_pamieci
I2cwbyte dane_do_zapisu
I2cstop
Waitms 10 ;czas wymagany do zapisu

4. Przy odczycie sprawa ma sie podobnie. Oprócz adresu bazowego, należy jeszcze podać adres komórki, z której chcesz odczytać dane. Przykład :

I2cstart
I2cwbyte adres_bazowy_pamięci_dla_zapisu
I2cwbyte adres_komorki_pamieci
I2cstart
I2cwbyte adres_bazowy_pamięci_dla_odczytu
I2crbyte dane_do_odczytania , Nack
I2cstop

5. Zatem powinno być tak :

Dim adres as byte
Dim dane as byte

dane = 32 'dane do zapisu
adres = 0 'adres komorki do zapisu

I2cwbyte 160 'pod warunkiem takiego wybranego adresu ukladu
I2cwbyte adres
I2cwbyte dane
I2cstop
Waitms 10

Lcd "Dane wysl: ";dane

I2cstart
I2cwbyte 160
I2cwbyte adres
I2cstart
I2cwbyte 161
I2crbyte dane, Nack
I2cstop

Lcd "Dane odebr: ";dane

Do
Loop
End

6. Życzę powodzenia.