[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: RD3AVJ 
Форум » форумы » Общие вопросы по электронике » Помогите с I2c кодом для AD7746
Помогите с I2c кодом для AD7746
ssqlДата: Понедельник, 08.04.2013, 01:04 | Сообщение # 1
Группа: Проверенные
Сообщений: 7

Статус: Offline
Помогите чайнику))) заставить работать AD7746 (http://html.alldatasheet.com/html-pdf/164768/AD/EVAL-AD7746EB/30/1/EVAL-AD7746EB.html) это конвертер ёмкость в цифровой код.

Код
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "i2c.lbx"                    '

Config Lcdpin = Pin , Rs = Pinc.3 , E = Pind.6 , Db4 = Pinc.0 , Db5 = Pinc.1 , Db6 = Pinc.2 , Db7 = Pind.7  
Config Lcd = 16 * 2
Cls
Lcd "Test lcd"
Waitms 800
Cls
Config Sda = Portc.4                    ' I2C Data
Config Scl = Portc.5                    ' I2C Clock

Config Twi = 100000
Twbr = 12
'Twsr = 0
I2cinit

Const Ad7746w = &H90
Const Ad7746r = &H91

Dim Highb As Byte , Midb As Byte , Lowb As Byte ,           ' Wert As Word At Highb Overlay
Dim I As Byte

Do
I2cstart
I2cwbyte Ad7746w
I2cwbyte &H91
I2cstop

I2cstart
I2cwbyte Ad7746r
I2crbyte Highb , Ack
I2crbyte Midb , Ack
I2crbyte Lowb , Nack
I2cstop

Locate 1 , 2
'Lcd "Wert: " ; Wert
Locate 2 , 1
Lcd Highb ; " " ; Midb ; " " ; Lowb
'Locate 2 , 6

Waitms 500
Loop
End

Что-то wacko написал, полазив в инете.. Ну и естественно не работает sad  В эмуляции на экранчике "255". Подскажите, что не так.




Сообщение отредактировал ssql - Понедельник, 08.04.2013, 10:47
 
Форум » форумы » Общие вопросы по электронике » Помогите с I2c кодом для AD7746
Страница 1 из 11
Поиск: