Mam problem z uruchomieniem tego przetwornika a/c
może ktoś porzdzi jak to ruszyć
$regfile = "8515def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Config Sda = Porta.1 'konfiguracja sprzętowa I2C
Config Scl = Porta.0 'konfiguracja sprzętowa I2C
Config Lcd = 16 * 2 ' LCD 16*2
Cursor Off Noblink ' Kursor
' LCD Clean
Declare Sub Odczytaj_napiecia
Cursor Off Noblink ' Kursor
Cls ' LCD Clean
Dim Napiecie_wejsciowe(4) As Byte 'deklaracja zmiennych napiec wejsciowych
Dim Napiecie_wyjsciowe As Byte 'deklaracja zmiennej napiecia wyjsciowego
Do
Gosub Odczytaj_napiecia 'w ten sposob mozesz odczytywac i zapisywac napiecia
Loop
End 'koniec programu
Sub Odczytaj_napiecia 'odczytuje napiecia
I2cstart
I2cwbyte 158 'adres zapisu ukladu
I2cwbyte 68 'ustawia Ch0 auto inc
I2cwbyte Napiecie_wyjsciowe
I2cstart
I2cwbyte 159 'adres odczytu ukladu
I2crbyte Napiecie_wejsciowe(4) , Ack 'odczyt smieci
I2crbyte Napiecie_wejsciowe(1) , Ack 'odczyt we1
I2crbyte Napiecie_wejsciowe(2) , Ack 'odczyt we2
I2crbyte Napiecie_wejsciowe(3) , Ack 'odczyt we3
I2crbyte Napiecie_wejsciowe(4) , Nack 'Odczyt We4
I2cstop
Cls
Lcd Napiecie_wejsciowe(1) ; Napiecie_wejsciowe(2) ; Napiecie_wejsciowe(3) ; Napiecie_wejsciowe(4)
Waitms 300
End Sub