BASCOM-AVR Read ADS1115

箫天

$regfile = "m8def.dat"                                      ' specify the used micro
$crystal = 8000000                                          ' used crystal frequency
'$baud = 19200                                               ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 32                                               ' default use 10 for the SW stack
$framesize = 64                                             ' default use 40 for the frame space
Osccal = &H9F

Declare Function Get_adc(byval Ain_x As Byte) As Integer

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , Rs = Portb.0 , E = Portb.1

Config Lcd = 16 * 2                                         'configure lcd screen
Cursor Off Noblink
'Cursor On Blink                                             'show cursor

Dim Myinteger As Integer
Dim Voltage As Single
Dim Vol_str As String * 8

'(
Write to Config register:
First byte: 0b10010000 (first 7-bit I2C address followed by a low read/write bit) (H90/H91 OK)

Second byte: 0b00000001 (points to Config register)
Third byte: 0b10000100 (MSB of the Config register to be written)
Fourth byte: 0b10000011 (LSB of the Config register to be written)

Write to Pointer register:
First byte: 0b10010000 (first 7-bit I2C address followed by a low read/write bit) (H90/H91 OK)
Second byte: 0b00000000 (points to Conversion register)

Read Conversion register:
First byte: 0b10010001 (first 7-bit I2C address followed by a high read/write bit)
Second byte: the ADS1113/4/5 response with the MSB of the Conversion register
Third byte: the ADS1113/4/5 response with the LSB of the Conversion register
')


'在14-12位，是 MUX 配置，决定了 ADS1115 的 A0-A3 接口的测量方式。
'比如，当设置为 0x04 时测量的为 A0-GND 的电压，当设置为 0x00 时测量的为 A0-A1 间的电压。
Dim Channel(8) As Byte
'AIN0-AIN1                'AIN0-AIN3                'AIN1-AIN3                'AIN2-AIN3
Channel(5) = &B00000000 : Channel(6) = &B00010000 : Channel(7) = &B00100000 : Channel(8) = &B00110000
'AIN0-GND                 'AIN1-GND                 'AIN2-GND                 'AIN3-GND
Channel(1) = &B01000000 : Channel(2) = &B01010000 : Channel(3) = &B01100000 : Channel(4) = &B01110000

'Configure pins to to use for the I2C bus
Config Scl = Portb.7                                        'Is serial clock SCL
Config Sda = Portb.6                                        'Is serial data SDA
I2cinit

'*************************************************************************************
Cls
Do
   Myinteger = Get_adc(2)
   'Cls
   Locate 1 , 1
   Lcd Hex(myinteger)

   Voltage = Myinteger / 32768
   Voltage = Voltage * 4096
   Myinteger = Round(voltage)
   Vol_str = Str(myinteger)
   Vol_str = Format(vol_str , "0.000")
   Locate 2 , 1
   Lcd Vol_str

   Waitms 600
Loop
End

'*************************************************************************************
Function Get_adc(byval Ain_x As Byte) As Integer
'(
'在11-9位，是 PGA 配置。这决定了 ADS1115 的量程。
Dim Pga(8) As Byte
'FS=±6.144V         'FS=±4.096V          'FS=±2.048V          'FS=±1.024V
Pga(1) = &B00000000 : Pga(2) = &B00000010 : Pga(3) = &B00000100 : Pga(4) = &B00000110
'FS=±0.512V         'FS=±0.256V          'FS=±0.256V          'FS=±0.256V
Pga(5) = &B00001000 : Pga(6) = &B00001010 : Pga(7) = &B00001100 : Pga(8) = &B00001110
')

'(
'在第7-5位，是每秒采样次数的配置。
Dim Data_rate(8) As Byte
'8SPS                      '16SPS                      '32SPS                      '64SPS
Data_rate(1) = &B00000000 : Data_rate(2) = &B00100000 : Data_rate(3) = &B01000000 : Data_rate(4) = &B01100000
'128SPS                    '250SPS                     '475SPS                     '860SPS
Data_rate(5) = &B10000000 : Data_rate(6) = &B10100000 : Data_rate(7) = &B11000000 : Data_rate(8) = &B11100000
')

   'Local Lobyte As Byte
   'Local Hibyte As Byte
   'Local W_addr As Byte
   'Local R_addr As Byte

   Local Config_high As Byte
   Local Config_low As Byte

   'addr_pin grounded
   'address for  write to ads1115
   'W_addr = &H90
   'address for  read from ads1115
   'R_addr = &H91

   Config_high = &B10000000
   'Ain_x-> 1-8
   If Ain_x > 8 Or Ain_x < 1 Then Ain_x = 1
   Config_high = Config_high + Channel(ain_x)
   Config_high = Config_high + &B00000010                   ' Pga(2)  ±4.096V
   'Config_high = Config_high + &B00000100                   ' Pga(2)  ±2.048V

   'Config_low = &B00000000
   'Config_low = Config_low + Data_rate(5)
   Config_low = &B10000000                                  ' 128SPS

   'init I2C
   I2cstart
   I2cwbyte &H90                                            ' W_addr
   I2cwbyte &B00000001                                      ' 指向Config寄存器
   I2cwbyte Config_high
   I2cwbyte Config_low
   I2cstop

   'Read_ad
   I2cstart                                                 ' Generate start code
   I2cwbyte &H90                                            ' W_addr                      ' send address
   I2cwbyte &B00000000                                      ' 指向转换寄存器
   I2cstart                                                 ' start condition
   I2cwbyte &H91                                            ' R_addr                      ' slave address
   I2crbyte Config_high , Ack
   I2crbyte Config_low , Nack
   I2cstop

   Get_adc = Makeint(config_low , Config_high)
End Function

xiaomi

以前不懂，看贴总是不回，一直没提升等级和增加经验；现在我明白了，反正回贴可以升级，也可以赚经验，而升级又需要经验，我就把这句话复制下来，遇贴就回，捞经验就闪。

tanjianchao

我发现一个很奇怪的现象，不知楼主有没有测试过，扫描4个通道并同时显示在2004上，结果发现通道显示值是错位的，A0---A1---A2---A3通道结果扫出来是往前挪了一位，A1---A2---A3---A0，百思不得其解。检查通道设置及显示程序都没发现错误，程序如果只显示一个通道，则没有错位。麻烦楼主测试下。

tanjianchao

程序如下：

'ads1115 16bit A / D转换器

$regfile = "m328pdef.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 32
$framesize = 32

Dim Send_ads As Byte
Dim High_byte(4) As Byte
Dim Low_byte(4) As Byte

'Dim Ads_high(4) As Byte
'Dim Ads_low(4) As Byte
Dim Ads_high As Byte
Dim Ads_low As Byte

'Dim Volt(4) As Single
'Dim Wert(4) As Integer
Dim Volt As Single
Dim Wert As Integer




Declare Sub On_ads1115
$lib "i2c_twi.lbx"

Config Sda = Portc.4                                        '
Config Scl = Portc.5
Config Twi = 400000



Config Lcdpin = Pin , Db4 = Portb.6 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2 , E = Portb.7 , Rs = Portd.5
Config Lcd = 20 * 4

Cursor Off Noblink                                          '
Cls
Waitms 300


Const Ads1115_write = &H90
Const Ads1115_read = &H91

'Const Ad_wert = 1.024 / 32767                               '1024
'Const Ad_wert = 2.048 / 32767                               '2048
'Const Ad_wert = 4.096 / 32767                               '4096
Const Ad_wert = 6.144 / 32767                               '6144

'High Byte
'Bit 15 Operational status
'When writing
'No effect                 = &B0xxxxxxx xxxxxxxx
'Start a single conversion = &B1xxxxxxx xxxxxxxx
'When reading
'Device is currently performing a conversion     = &B0xxxxxxx xxxxxxxx
'Device is not currently performing a conversion = &B1xxxxxxx xxxxxxxx

'Bit 14..12   Input Multiplexer configuration
'Ain0+Ain1= &Bx000xxxx xxxxxxxx default
'Ain0+Ain3= &bx001xxxx xxxxxxxx
'Ain1+Ain3= &Bx010xxxx xxxxxxxx
'Ain2+Ain3= &bx011xxxx xxxxxxxx
'Ain0+GND=  &Bx100xxxx xxxxxxxx
'Ain1+GND=  &Bx101xxxx xxxxxxxx
'Ain2+GND=  &Bx110xxxx xxxxxxxx
'Ain3+GND=  &Bx111xxxx xxxxxxxx

'Bit 11..9   Gain amplifier configuration
'FSR 6.144V= &Bxxxx000x xxxxxxxx
'FSR 4.096V= &Bxxxx001x xxxxxxxx
'FSR 2.048V= &Bxxxx010x xxxxxxxx  default
'FSR 1.024V= &Bxxxx011x xxxxxxxx
'FSR 0.512V= &Bxxxx100x xxxxxxxx
'FSR 0.256V= &Bxxxx101x xxxxxxxx
'FSR 0.256V= &Bxxxx110x xxxxxxxx
'FSR 0.256V= &Bxxxx111x xxxxxxxx

'Bit 8   Device operating mode
'Continuous-conversion mode = &Bxxxxxxx0 xxxxxxxx
'Single-Shot mode           = &Bxxxxxxx1 xxxxxxxx  default
'------------------------------------------------------------------------
'Low Byte
'Bit 7..5   Data Rate
'  8SPS= &Bxxxxxxxx 000xxxxx
' 16SPS= &Bxxxxxxxx 001xxxxx
' 32SPS= &Bxxxxxxxx 010xxxxx
' 64SPS= &Bxxxxxxxx 011xxxxx
'128SPS= &Bxxxxxxxx 100xxxxx   default
'250SPS= &Bxxxxxxxx 101xxxxx
'475SPS= &Bxxxxxxxx 110xxxxx
'860SPS= &Bxxxxxxxx 111xxxxx

'Bit 4 Comparator Mode
'Traditonal  = &Bxxxxxxxx  xxx0xxxx   default
'Window      = &Bxxxxxxxx  xxx1xxxx

'Bit 3 Comparator polarity
'Active low = &Bxxxxxxxx xxxx0xxx default
'Active high= &Bxxxxxxxx xxxx1xxx

'Bit 2 Latching Comparator
'Nonlatching = &Bxxxxxxxx xxxxx0xx  default
'Latching    = &Bxxxxxxxx xxxxx1xx
'Bit 1.0 Comparator queue and disable
'Assert after one conversion   = &Bxxxxxxxx xxxxxx00
'Assert after two conversiosn  = &Bxxxxxxxx xxxxxx01
'Assert after four conversions = &Bxxxxxxxx xxxxxx10
'Disable Comparator             = &Bxxxxxxxx xxxxxx11  default
'N = 1

High_byte(1) = &B1100_0000                                  '&Hc0  &B1100_0000
High_byte(2) = &B1101_0000                                  '&Hd0  &B1101_0000
High_byte(3) = &B1110_0000                                  '&He0  &B1110_0000
High_byte(4) = &B1111_0000                                  '&Hf0  &B1111_0000

Low_byte(1) = &B1000_0000                                   '128SPS  default
Low_byte(2) = &B1000_0000                                   '128SPS  default
Low_byte(3) = &B1000_0000                                   '128SPS  default
Low_byte(4) = &B1000_0000                                   '128SPS  default

'******************* Hauptprogramm *************************************
Do
'   For N = 1 To 4

Send_ads = High_byte(1)
      Call On_ads1115                                       'ADS1115 读出
      Wert = 256 * Ads_high
      Wert = Wert + Ads_low
      Volt = Ad_wert * Wert
      Locate 1 , 1
      Lcd "A1:"                                             '
      Locate 1 , 4
      Lcd Fusing(volt , "#.######") ; " Volt"

      Waitms 250

'   Next N
Send_ads = High_byte(2)
      Call On_ads1115                                       'ADS1115 读出
      Wert = 256 * Ads_high
      Wert = Wert + Ads_low
      Volt = Ad_wert * Wert
      Locate 2 , 1
      Lcd "A2:"                                             '
      Locate 2 , 4
      Lcd Fusing(volt , "#.######") ; " Volt"

      Waitms 250

Send_ads = High_byte(3)
      Call On_ads1115                                       'ADS1115 读出
      Wert = 256 * Ads_high
      Wert = Wert + Ads_low
      Volt = Ad_wert * Wert
      Locate 3 , 1
      Lcd "A3:"                                             '
      Locate 3 , 4
      Lcd Fusing(volt , "#.######") ; " Volt"

      Waitms 250

Send_ads = High_byte(4)
      Call On_ads1115                                       'ADS1115 读出
      Wert = 256 * Ads_high
      Wert = Wert + Ads_low
      Volt = Ad_wert * Wert
      Locate 4 , 1
      Lcd "A4:"                                             '
      Locate 4 , 4
      Lcd Fusing(volt , "#.######") ; " Volt"

      Waitms 250

Loop
End
'***************************************************
Sub On_ads1115                                              'ADS1115 读出

   I2cstart
   I2cwbyte Ads1115_write
   I2cwbyte &B00000001
   I2cwbyte Send_ads                                        '
   I2cwbyte &B1000_0000                                     '
   I2cstop

   I2cstart
   I2cwbyte Ads1115_write
   I2cwbyte &B00000000

   I2cstart
   I2cwbyte Ads1115_read
   I2crbyte Ads_high , Ack
   I2crbyte Ads_low , Nack
   I2cstop

End Sub