با سلام
برای استفاده دوستانی که احتمالا با راه اندازی این ماژول خوب و کاربردی مشکل دارند نمونه کد راه اندازی آن در زیر گذاشته شده است. البته برای ads1115 هم کدی در تاپیک زیر گذاشته ام.
http://www.eca.ir/forum2/index.php?topic=114589.0
برای استفاده دوستانی که احتمالا با راه اندازی این ماژول خوب و کاربردی مشکل دارند نمونه کد راه اندازی آن در زیر گذاشته شده است. البته برای ads1115 هم کدی در تاپیک زیر گذاشته ام.
http://www.eca.ir/forum2/index.php?topic=114589.0
کد:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Scl = Portc.0
Config Sda = Portc.1
Config I2cdelay = 20
I2cinit
Dim V As Single
Dim Msb As Byte
Dim Lsb As Byte
Dim Stat As Byte
Const Ads1110_wr_address = &H90 'ED0
Const Ads1110_rd_address = &H91
Const Ads1110_config_reg = &H0C
Const Pga = 1
Print "Starting adc 1110 ..." ; "Addres=" ; Ads1110_rd_address
Waitms 1000
Do
Gosub Readvolt
Gosub Writevolt
Waitms 250
Loop
End
'----------------------------------------------------
Readvolt:
I2cstart
I2cwbyte Ads1110_rd_address
I2crbyte Msb , Ack
Waitms 100
I2crbyte Lsb , Ack
Waitms 100
I2crbyte Stat , Nack
Waitms 100
I2cstop
Lsb = Lsb + 60
V = Msb * 256
V = V + Lsb
If V > 32767 Then
V = V - 65536
V = V / 32767
V = V * 2.048
Else
V = V / 32767
V = V * 2.048
End If
V = V / Pga
Return
'-----------------------------------------------------
Writevolt:
Print Msb ; " " ; Lsb ; " " ; Stat ; " " ; Fusing(v , "#.#####")
Return
دیدگاه