Obsługa pamięci EEPROM na I2C

[slawcio]

Witam
Ma ktoś z was może program do zapisu i odczytu pamięci 24c04 który sam przetestował i mu działa na ukłąd 90S2313. Jesli tak to prosiłbym o zamieszczeniu kodu źródłowego do tego programu, bo mam z tym problem a standardowy kod jaki znalazłem w helpie nie działa.

Pozdrawiam

[slawcio]

Sam odpowiadam bo wczoraj udało mi się to rozwiązac. Problem leżał w adresie pamięci.

Kod: Zaznacz cały

'zapisz Dim A As Byte Dim B As Byte Const Adresw = 160 'adres do zapisu uk¦adu 2404 Const Adresr = 161 'adres do odczytu uk¦adu 2404 Config Scl = Portb.7 Config Sda = Portb.6 Config I2cdelay = 100 Cls Lcd "Trwa zapis:" Wait 1 I2cstart 'warunek startu I2cwbyte Adresw 'wyťlij adres uk¦adu I2cwbyte 10 'wyťlij adres w pamiŕci EEPROM I2cwbyte 230 'wyťlij dan¦ I2cstop 'warunek stopu Waitms 10 If Err = 0 Then 'cz Cls Lcd "zapisano 230" Wait 2 End If Cls Lcd "Trwa odczyt" Wait 2 I2cstart 'warunek startu I2cwbyte Adresw 'zaadresujemy urz¦dzenie I2cwbyte 10 'wyťlij adres komˇrki EEPROM I2cstart 'znˇw generujemy warunek startu I2cwbyte Adresr 'adresujemy uk¦ad EEPROM do odczytu I2crbyte 10 'odczytujemy komˇrkŕ pamiŕci. I2crbyte A , Nack 'Nack oznacza +e nie bŕdzie nastŕpnego odczytu I2cstop 'warunek stopu If Err = 0 Then Cls Lcd "Oczytano:" Lcd A 'i drukujemy zawartoťŠ komˇrki Wait 2 End If

Ten programik działa na 100% sam go przetestowałem.
Jak ktoś ma jakieś pytanie na ten temat to proszę o kontakt