Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Программирование ATMEL в BASCOM. » Вопросы - ответы » atmega8a + ds18b20 проблема


atmega8a + ds18b20 проблема

Сообщений 1 страница 4 из 4

1

Доброе время суток.
Я начинающий.
Делаю термометр, возникла проблема.
Раньше использовал attiny2313, сейчас хочу воспользоваться atmega8a
Почемуто не работает, пишет 0.0
На attiny2313 работало (порты другие были- не помню какие)
В чем разница?

Исходник

$regfile = "m8Adef.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portd.7 , Db6 = Portd.6 , Db7 = Portd.5 , E = Portb.2 , Rs = Portb.1
Config Lcd = 20 * 2
Config 1wire = Portc.2
Cursor Off
Cls
Dim Ss As String * 6
Dim I1 As Integer
Dim I2 As Integer
Dim Dsid1(8) As Byte
Dim Dsid2(8) As Byte

'считываем адреса устройств на шине 1-Wire
Dsid1(1) = 1wsearchfirst()
Dsid2(1) = 1wsearchnext()

Do
   1wreset                                             'запускаем опрос всех датчиков
   1wwrite &HCC
   1wwrite &H44

Waitms 750

'после ожидания начинаем считывать датчики
'---------------------------------
   1wreset
   1wwrite &H55
   1wverify Dsid1(1)                   'адрес первого датчика
   1wwrite &HBE
   I1 = 1wread(2)
'---------------------------------
   1wreset
   1wwrite &H55
   1wverify Dsid2(1)                      'адрес второго датчика
   1wwrite &HBE
   I2 = 1wread(2)

   Gosub conversion
   Cls
   Locate 1 , 1
   Lcd "T1=" ; Ss

   I1 = I2

   Gosub Conversion
   Locate 2 , 1
   Lcd "T2=" ; Ss

Loop

End

Conversion:
I1 = I1 * 10
I1 = I1 \ 16
Ss = Str(I1)
Ss = Format(ss , "0.0")
Return

http://sg.uploads.ru/t/ARuqM.png

0

2

Спасибо сегодня попробую со стек-ом

0

3

Mrshilov, Огромное спасибо! Работает!
Можно вопрос по 1wire? А без резистора подтяжки никак не обойтись?
Вопрос чисто из любопытства (подключить ds18и20 по 3-м жилам)

0

4

ЕвгенийК написал(а):

А без резистора подтяжки никак не обойтись?

Нет.

0


Вы здесь » Программирование ATMEL в BASCOM. » Вопросы - ответы » atmega8a + ds18b20 проблема