MCP3421 Bascom – Mikrokontroléry – Fórum – Programujte.com

Ahoj,

právě jsem narazil na A/D převodník MCP3421 a z jeho datasheetu nejsem o moc chytřejší
http://ww1.microchip.com/…c/22003e.pdf
Potřebuji ho zprovoznit z prostředí Bascomu. I2C jsem nikdy až doposud nepotřeboval, tak
ani nevím jestli postupuji správně a u adres už si vůbec nejsem jistý.

Zatím jsem vzal příklad z nápovědy Bascomu a přepsal takto:
' MCP3421
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 19200
  CONFIG SCL = PORTC.0                                      'TWI SCL
  CONFIG SDA = PORTC.1                                     'TWI SDA
dim i as integer
dim Results as byte
dim Value As long
 Const SlaveAdr = &B11010001                                  'slave address
 const configMCP = &B10000000
 const Adres = &B11010001
 print "test"
 declare sub Read_i2c(byval Adres As Byte , Value As Byte)

   do
       call Read_i2c(SlaveAdr,Results)
       print "a/d "; Results
       waitms 10
   loop

   Sub Read_i2c(byval Adres As Byte , Value As Byte)
   Value = &B00000000
  I2cstart                                                 'generate start
  I2cwbyte SlaveAdr                             'slave adsress
  I2cwbyte configMCP                         'address of EEPROM
  I2cstart                                                 'repeated start
  I2cwbyte SlaveAdr                             'slave address (read)
  I2crbyte Value , Nack                        'read byte
  I2cstop                                                 'generate stop
End Sub

Děkuji