با سلام
برای استفاده دوستانی که احتمالا با راه اندازی این ماژول خوب و کاربردی مشکل دارند نمونه کد راه اندازی آن در زیر گذاشته شده است. البته برای 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
دیدگاه