Форум РадиоКот

Секретный кот писал(а):

ravilkh писал(а):она вообще правильно время отсчитывать может?

При правильном кварце – почему бы и нет? От внутреннего генератора сильно врёт, но это и неудивительно.

ну не в разы же? ставил - "wait 10" на внутреннем. получал на выходе секунд так 40-45. тинька13, внутренний 128кГц.

У меня на 8 МГц вместо 1 минуты получалось где-то секунд 40.

Привет,напил прогу,компиляция и емуляция прошла какбы. Но на PROTEUS показывает 0 , нечитает DS18B20. Что тут плохо ?


$regfile = "2313def.dat"
$crystal = 4000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6

Config 1wire = Portd.5
Config Portd.4 = Output
Dim Dsid1(8) As Byte
Dim Dsid2(8) As Byte
Dim D As Byte
Dim I1 As Integer , S1 As String * 6 , S2 As String * 6
Dim I2 As Integer


Cursor Off

Cls

Dsid1(1) = 1wsearchfirst()
Dsid2(1) = 1wsearchnext()

Do

1wreset
1wwrite &H55
1wverify Dsid1(1)
1wwrite &HBE
I1 = 1wread(2)
1wreset
1wwrite &H55
1wverify Dsid2(1)
1wwrite &HBE
I2 = 1wread(2)
1wreset
1wwrite &HCC
1wwrite &H44

Wait 1

I1 = I1 * 10
I1 = I1 / 16
If I1 > 0 Then Cls
S1 = Str(i1)
Locate 1 , 1
Lcd "B=" ; S1 ; "C"

I2 = I2 * 10
I2 = I2 / 16
If I2 > 0 Then Cls
S2 = Str(i2)
Locate 2 , 1
Lcd "K=" ; S2 ; "C"

'D = S1 - S2
'D = D + 5
'If D => 5 Then
'Portd.4 = 1
'Else
'Portd.4 = 0
'End If

Loop

End

вот что нужно:

Датчик один? Если да, то:

много не того, ждать нужно перед считыванием данных с датчика и кода не те

Два датчика .

Тут отличный пример с 2-мя
http://bascomavr.3bb.ru/viewtopic.php?id=169

Не открывается "Обучалка BASCOM AVR" от WildCat http://avr.easycoding.org/bascom_lessons/index.htm .Помогите найти.

kilgur писал(а):Не открывается "Обучалка BASCOM AVR" от WildCat http://avr.easycoding.org/bascom_lessons/index.htm .Помогите найти.

Входи с главной страницы сайта, avr.easycoding.org

Пробовал ,но пишет "Internet Explorer не может отобразить эту веб-страницу"

Всё заработало. Спасибо Mihael.

kilgur не за что

Мяу Всем!
Ну вот, вроде как в тему. Написал прогу для DS18B20.
Что интересно, при сдвиге В0 вправо на 4 бита и В1 влево на 4 бита (по даташиту) наблюдалось удвоение показаний, т.е. вместо +18 С показывало +36 С, когда изменил на 5 и 3 все стало на свои места. В чем здесь засада?
И еще: как вывести десятичные доли градуса на индикатор (откуда их считывать?) и как вывести все это дело на 7-сегментные LED? Кстати, применение конструкций Shift дает более компактный код по сравнению с применением обычных арифметических действий: / и *. Имейте ввиду!

Попробовал пример,работает.Но если ATtiny2313 меняю на AT90S2313 неработает. А нельзяли такойже компактный код на два датчика а то зациклился.

Это вы применительно к чему?

Во первых если меняю в PROTEUS ATtiny2313 на AT90 s2313 симуляция неработает. Т.е. lcd показывает нолъ. И даже на ATtiny2313 немогу заставитъ работатъ два датчика.

Попробуй такую программку.

На Proteus не работает.

Объявляется очередной(третий) ежегодный конкурс БАСКОМ-2010!
Более подробно о конкурсе:
http://bascomavr.3bb.ru/viewtopic.php?id=283

Организаторы конкурса обещают победителей наградить призами - лицензионным ПО БАСКОМ.
Все работы будут опубликованы на сайте http://bascom.at.ua/.
Лучшие работы войдут в коллекцию примеров на http://www.mcselec.com

Желаю удачи!

Всем доброго времени суток!
Только начал осваивать AVR и Васик, в схемотехнике разбираюсь тоже на уровне радиокружка, поэтому заранее прошу тапками не кидать. критиковать - пожалуйста, особенно если конструктивно, с объяснениями

Собственно, встала задача - сделать термоконтроллер
который помогал бы выдерживать определенную температуру в небольшом ящике. В качестве печки и одновременно в качестве охладителя используется элемент Пельтье - реле меняет полярность его подключения, соответственно, заставляя греть или остужать.
В целях компенсации инерции нагрева или охлаждения, в программе сделана вилка в 5 градусов между границами включения.

Использовал связку ATtiny 26 и LM35. Навороты в виде LCD и органов управления не контоллере не нужны, поэтому пороговые значения прошиты в программе.

Несмотря на убогость кода и схемы, в Протеусе всё работает

Вот схема и код.


http://slil.ru/28304751 (исходник и hex)


Теперь вопрос. Было крайне полезно организвать сбор данных от нескольких подобных контроллеров (по i2C) и возможность опять же, дистанционно перешивать пороговые величины включения печки/охлажения. Как это можно сделать?

Ну и поктитикуйте увиденное, если не лень.
Спасибо!

Менять пороговые величины можно если прописать их в еепроме,
а организация i2c есть в хелпе.

fabrique писал(а):- сделать термоконтроллер
который помогал бы выдерживать определенную температуру в небольшом ящике

уж не инкубатор ли?