$regfile = "m8def.dat" $prog &HFF , &HFD , &HDF , &H00 ' generated. Take care that the chip supports all fuse bytes.$PROG &HFF,&HFD,&HDF,&H00' generated. Take care that the chip supports all fuse bytes.$PROG &HFF,&HFD,&HDF,&H00' generated. Take care that the chip supports all fuse bytes. Dim D1_tempmsb As Byte Dim D1_tempmsb As Byte Dim D1_templsb As Byte Dim D2_tempmsb As Byte Dim D2_templsb As Byte Dim Th As Byte Dim Tl As Byte Dim Confg As Byte Dim Count As Byte Dim Slope As Byte $crystal = 10000000 Config I2cdelay = 20 Config Sda = Portd.6 Config Scl = Portd.7 '------Main------- Loop: Waitms 1000 'start convert device 1 I2cstart I2cwbyte &H90 'send adress 000 for write I2cwbyte &HEE 'send control byte for Start convert Temp I2cstop '------------- 'read temperature device 1 I2cstart I2cwbyte &H90 'send adress 000 for write I2cwbyte &HAA 'send control byte for read temperature I2cstop I2cstart I2cwbyte &H91 'send adress 001 for read I2crbyte D1_tempmsb , Ack 'read msb of temp I2crbyte D1_templsb , Nack 'read lsb of temp I2cstop 'start convert device 2 I2cstart I2cwbyte &H92 'send adress 000 for write I2cwbyte &HEE 'send control byte for Start convert Temp I2cstop '------------- 'read temperature device 2 I2cstart I2cwbyte &H92 'send adress 000 for write I2cwbyte &HAA 'send control byte for read temperature I2cstop I2cstart I2cwbyte &H93 'send adress 001 for read I2crbyte D2_tempmsb , Ack 'read msb of temp I2crbyte D2_templsb , Nack 'read lsb of temp I2cstop '-------------- D1_templsb = 128 : D2_templsb = 128 If D1_templsb = 128 Then D1_templsb = 5 Else D1_templsb = 0 If D2_templsb = 128 Then D2_templsb = 5 Else D2_templsb = 0 Print D1_tempmsb ; "," ; D1_templsb ; Chr(176) ; "C:" ; D2_tempmsb ; "," ; D2_templsb ; Chr(176) ; "C" Goto Loop
D1_templsb = 128 : D2_templsb = 128
oo: oo: oo:
Print Tempmsb ; "," ; Templsb ; Chr(176) ; "C"
دیدگاه