$regfile = "m328pdef.dat"
$crystal = 16000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , Rs = Portb.0
Cls
Cursor Off
Config I2cdelay = 10
Config Scl = Portc.5
Config Sda = Portc.4
Dim Napiecie As Long 'Long
Dim Pomiarh As Byte , Pomiarl As Byte
Dim Wynik As Long
Cls
Lcd "Start"
Wait 1
Cls
Do
I2cstart
I2cwbyte 108 '108 ' I2cwbyte &B01101100
I2cstop
I2cstop
I2cstart
I2cwbyte 109 ' 109 ' I2cwbyte &B01101101
I2crbyte Pomiarh , Ack 'Odczyt Pomiaru
I2crbyte Pomiarl , Nack
I2cstop 'Bit Stopu
Waitms 1
Napiecie = Makeint(pomiarl , Pomiarh)
Wynik = Napiecie
Locate 1 , 1
Lcd Wynik ; " "
Wait 1
Loop
|