سورس کد برنامه این سنسور ( MLX90614 ) به زبان بیسکام این میشه و برنامه کد ویژن رو هم براتون ایمیل کردم :
$regfile = "m8def.dat"
$crystal = 11059200
Dim Val1 As Byte
Dim Val2 As Byte
Dim Tempw As Word
Dim T As Single
Config Scl = Portc.0
Config Sda = Portc.1
Do
Tempw = 0
I2cstart
I2cwbyte &B00001000
I2cwbyte &B00000111
I2cstart
I2cwbyte &B00001001
I2crbyte Val1 , Ack
I2crbyte Val2 , Ack
Val2 = Val2 And &B01111111
Tempw = Val2
Shift Tempw , Left , 8
Tempw = Tempw Or Val1
I2crbyte Val1 , Nack
I2cstop
T = Tempw * 0.02
T = T - 273.15
Loop