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

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

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

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


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


Помогите собрать термомитор

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

1

Ребята помогите написать анологичный код как вот сдесь http://my-avr.at.ua/publ/1-1-0-10 только в баскоме заранее спасибо

0

2

10 баксов и код твой

0

3

Или чуть пошевелить серым веществом (а именно: изменить в коде тип контроллера и сконфигурировать необходимые ножки ЖКИ и термометра) на основе
http://bascom.at.ua/load/0-0-0-21-20
и код бесплатно твой.
А я напишу код за 10,5 баксов. Не буду Pashе цену сбивать. :cool:

0

4

Напишу за 11$  :D

0

5

http://www.mcselec.com/index.php?option … ;Itemid=57 тоже на 2 датчика подключенных паралельно
заменишь $regfile = "8515def.dat" на $regfile = "m8def.dat"
$crystal = 4000000  тут поставишь частоту своей меги

Отредактировано Pasha (2010-08-07 13:39:59)

0

6

ребят большое спасибо !!!!)баском рулит !!!

0

7

$regfile = "m8def.dat"
$crystal = 1000000
$lib "lcd4.lbx"
Config Lcd = 16 * 2                                         ' дисплей 2 строки по 16 символов
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7       ' конфигурируем дисплей

Config 1wire = Portd.1                                      ' на эту ножку подключим DS18B20 и подтягивающий резистор на 4,7 ком к + питания

Dim Byte0 As Byte
Dim Byte1 As Byte
Dim Signtemperatura As String * 1
Dim T1 As Byte
Dim T2 As Byte
Dim I As Integer

Do
1wreset
1wwrite &HCC                                                ' Выдаем команду чтения ПЗУ
1wwrite &H44                                                ' Запуск измерения

Waitms 250                                                  ' Ждем окончания преобразования

1wreset
1wwrite &HCC
1wwrite &HBE                                                ' Команда чтения ОЗУ датчика

Byte0 = 1wread()                                            ' Читаем нулевой байт

Byte1 = 1wread()                                            ' Читаем первый байт

If Byte1 >= 248 Then                                        ' Проверяем на отрицательную температуру.248 в десятичном - 11111000 в двоичном. Если температура отрицательная - вычитаем из &HFF

Byte0 = &HFF - Byte0
Byte1 = &HFF - Byte1
Signtemperatura = "-"

Else
Signtemperatura = "+"
End If

T1 = Byte0 / 16                                             ' Сдвигаем нулевой байт вправо на 4 бита (2*2*2*2=16)
T2 = Byte1 * 16                                             ' Сдвигаем первый байт влево на 4 бита (2*2*2*2=16)

T1 = T1 + T2                                                ' Формирмируем результам и выдаем его на индикатор. Команда LCD сама преобразует его в десятичный вид

Cls
Lcd "Teјѕepaїypa"
Lcd Signtemperatura ; T1 ; "C"
Wait 2
Loop
End

схема просто атмега8 +18b20+LCD
radan спасибо инфа очень помогла

0


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