roboforum.ru

Технический форум по робототехнике.

DS18B20 (готовые программы на Bascomavr)

Программирование микроконтроллеров AVR, PIC, ARM.
Разработка и изготовление печатных плат для модулей.

DS18B20 (готовые программы на Bascomavr)

Сообщение space » 16 апр 2011, 20:32

Не знаю может кому пригодится. Исходники написанны в Bascomavr. Первый исходник-подключение одного датчика, второй исходник-подключение двух датчиков.
1:
Код: Выделить всёРазвернуть
$regfile = "m16def.dat"
$crystal = 16000000

'************************Дополнительные библиотеки******************************
$lib "lcd4.lbx"                                             'используем 4-битное подключение дисплея с помощью альтернативной библиотеки

'***********************************Порты***************************************

Config 1wire = Portd.0                                      'Пин, на который повешан DS18B20

Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 20 * 4                                         'используем дисплей на 20 символ и 4 строки

Cursor Off                                                  'отключаем курсор
Cls                                                         'очищаем экран дисплея

'****************************Задаём перемнные***********************************

Dim Signtemperatura As String * 1 , Celsium As String * 5 , Fahrenhei As String * 5
Dim Byte0 As Byte , Byte1 As Byte , T As Byte
Dim Temp As Byte , Faren As Byte
Dim Faren0 As Single

'***************************Назначаем процедуры*********************************

Declare Sub Gettemp

'*************************Основной цикл программы*******************************

Do

Call Gettemp                                                'Вызываем процедуру Gettemp

Locate 1 , 1
Lcd "Ёo бe»ДcёЖ******" ; Celsium                            'выводим результат преобразвания Celsium
Locate 2 , 1
Lcd "********************"
Locate 3 , 1
Lcd "********************"
Locate 4 , 1
Lcd "Ёo ЄapeЅґe№їy***" ; Fahrenhei                          'выводим результат преобразвания Fahrenhei
Loop
End



Sub Gettemp                                                 'процедура Gettemp
1wreset
1wwrite &HCC                                                ' Выдаем команду чтения ПЗУ
1wwrite &H44                                                ' Запуск измерения
Waitms 750                                                  ' Ждем окончания преобразования
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
Temp = Byte0 / 16                                           ' Сдвигаем нулевой байт вправо на 4 бита (2*2*2*2=16)
T = Byte1 * 16                                              ' Сдвигаем первый байт влево на 4 бита (2*2*2*2=16)
Temp = Temp + T2                                            ' Формирмируем результам и выдаем его на индикатор. Команда LCD сама преобразует его в десятичный вид
Faren0 = Temp * 1.8
Faren = Faren0 + 32
Celsium = Signtemperatura + Str(temp) + "C"
Fahrenhei = Signtemperatura + Str(faren) + "F "
End Sub




2:
Код: Выделить всёРазвернуть
$regfile = "m16def.dat"
$crystal = 16000000

'************************Дополнительные библиотеки******************************

$lib "lcd4.lbx"                                             'используем 4-битное подключение дисплея с помощью альтернативной библиотеки

'***********************************Порты***************************************

Config 1wire = Portd.0                                      'Пин, на который повешан DS18B20

Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 20 * 4                                         'используем дисплей на 20 символ и 4 строки

Cursor Off                                                  'отключаем курсор
Cls                                                         'очищаем экран дисплея

'****************************Задаём перемнные***********************************

Dim Signtemperatura As String * 1 , Celsium As String * 5
Dim Byte0 As Byte , Byte1 As Byte , T As Byte
Dim Dsid1(8) As Byte , Dsid2(8) As Byte
Dim Temp As Byte , X As Byte
Dim W As Word

'*******************************************************************************

W = 1wirecount()
Dsid1(1) = 1wsearchfirst()
Do
Dsid2(1) = 1wsearchnext()
Loop Until Err = 1

'*******************************************************************************

Do
Gosub Convallt                                              'переходим на подпрограмму подачи запросов в датчик температуры
1wverify Dsid1(1) : X = 1 : Gosub Temperature               '1 ds18b20 выводим на первой(Х=1) строчке дисплея
1wverify Dsid2(1) : X = 2 : Gosub Temperature               '2 ds18b20 выводим на второй(Х=2) строчке дисплея
Loop
End

'*******************************************************************************

Convallt:
1wreset
1wwrite &HCC                                                ' Выдаем команду чтения ПЗУ
1wwrite &H44                                                ' Запуск измерения
Waitms 750                                                  ' Ждем окончания преобразования
Return

'*******************************************************************************

Temperature:
If Err = 0 Then
1wwrite &HBE                                                ' Команда чтения ОЗУ датчика
Byte0 = 1wread()                                            ' Читаем нулевой байт
Byte1 = 1wread()                                            ' Читаем первый байт
If Byte1 >= 248 Then                                        ' Проверяем на отрицательную температуру.248 в десятичном - 11111000 в двоичном. Если температура отрицательная - вычитаем из &HFF
Byte0 = &HFF - Byte0
Byte1 = &HFF - Byte1
Signtemperatura = "-"
Else
Signtemperatura = "+"
End If
Temp = Byte0 / 16                                           ' Сдвигаем нулевой байт вправо на 4 бита (2*2*2*2=16)
T = Byte1 * 16                                              ' Сдвигаем первый байт влево на 4 бита (2*2*2*2=16)
Temp = Temp + T                                             ' Формирмируем результам и выдаем его на индикатор. Команда LCD сама преобразует его в десятичный вид
Celsium = Signtemperatura + Str(temp) + "C"
Locate X , 1                                                'указываем куда вывести на дисплей
Lcd Celsium
End If
Return

'*******************************************************************************
Вложения
33.JPG
2 датчика
22.JPG
один датчик
Ds18b20.rar
(24.96 КиБ) Скачиваний: 0
Аватара пользователя
space
 
Сообщения: 565
Зарегистрирован: 17 июн 2007, 23:44
Откуда: Тула
прог. языки: Bascom AVR Basic, CodeVisionAVR
ФИО: Замотаев Кирилл Игоревич

Re: DS18B20 (готовые программы на Bascomavr)

Сообщение AndreiSk » 16 апр 2011, 21:07

Датчики на разные ноги подсоединены?
Аватара пользователя
AndreiSk
 
Сообщения: 2639
Зарегистрирован: 23 апр 2009, 17:03
Откуда: Москва, Самара
прог. языки: C#

Re: DS18B20 (готовые программы на Bascomavr)

Сообщение space » 16 апр 2011, 22:12

Нет. на один вывод мк подключаются оба. смотрите второй исходник внимательней
Аватара пользователя
space
 
Сообщения: 565
Зарегистрирован: 17 июн 2007, 23:44
Откуда: Тула
прог. языки: Bascom AVR Basic, CodeVisionAVR
ФИО: Замотаев Кирилл Игоревич


Вернуться в Микроконтроллеры

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 19