Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
Sub Read_eeprom(byval Adres As Word , Dana As Byte)
Adres_zapis2 = Adres_zapis
Adres_odczyt2 = Adres_odczyt
Adr = Adres
If Adres > 255 Then
Adr = Adres - 256
Adres_zapis2 = Adres_zapis + 2
Adres_odczyt2 = Adres_odczyt + 2
End If
If Adres > 511 Then
Adr = Adres - 512
Adres_zapis2 = Adres_zapis + 4
Adres_odczyt2 = Adres_odczyt + 4
End If
If Adres > 767 Then
Adr = Adres - 768
Adres_zapis2 = Adres_zapis + 6
Adres_odczyt2 = Adres_odczyt + 6
End If
If Adres > 1023 Then
Adr = Adres - 1024
Adres_zapis2 = Adres_zapis + 8
Adres_odczyt2 = Adres_odczyt + 8
End If
If Adres > 1279 Then
Adr = Adres - 1280
Adres_zapis2 = Adres_zapis + 10
Adres_odczyt2 = Adres_odczyt + 10
End If
If Adres > 1535 Then
Adr = Adres - 1536
Adres_zapis2 = Adres_zapis + 12
Adres_odczyt2 = Adres_odczyt + 12
End If
If Adres > 1791 Then
Adr = Adres - 1792
Adres_zapis2 = Adres_zapis + 14
Adres_odczyt2 = Adres_odczyt + 14
End If
I2cstart
I2cwbyte Adres_zapis2
I2cwbyte Adr
I2cstart
I2cwbyte Adres_odczyt2
I2crbyte Dana , Nack
I2cstop
End Sub
