, вроде все ясно, если найдено больше 1 датчика, тогда считываем код 2 датчика.kip96 писал(а): Откоментировать?
Код: Выделить всё
Dsid1(1) = 1wsearchfirst() 'Считываем Семейный Код 1 Датчика
Do
Dsid2(1) = 1wsearchnext() ' считываем семейный код 2 датчика
Loop Until Err = 1
Код: Выделить всё
prerivanie:
if knopka_1 = 1 then : ...действие1... : End if
if knopka_2 = 1 then : ...действие2... : End if
if knopka_3 = 1 then : ...действие3... : End if
if knopka_4 = 1 then : ...действие4... : End if
return
Код: Выделить всё
returnГде была прервана.И второе...
Код: Выделить всё
If Dat1 < Tmin1 Then
Tmin1 = Dat1
End If
If Dat1 > Tmax1 Then
Tmax1 = Dat1
End If
If Dat2 < Tmin2 Then
Tmin2 = Dat2
End If
If Dat2 > Tmax2 Then
Tmax2 = Dat2Код: Выделить всё
Config Timer1 = Timer , Prescale = 256 , Compare A = Set , Clear Timer = 1
On Oc1a Tim ' îáðàáîòêà ïðåðûâàíèÿ
Compare1a = Cons ' çàãðóçêà â ðåãèñòð ñðàâíåèÿ êîíñòàíòû
Код: Выделить всё
'*************** êîíôèãóðèðóåì òàéìåð äëÿ îïðîñà äàò÷èêà ***********************
Config Timer1 = Timer , Prescale = 256 , Clear Timer = 1
On Oc1a Tim ' îáðàáîòêà ïðåðûâàíèÿ
Compare1a = Cons ' çàãðóçêà â ðåãèñòð ñðàâíåèÿ êîíñòàíòû
'**************** êîíôèãóãóðèðóåì INT0 è INT1 äëÿ ïîäêëþ÷åíèÿ êíîïîê *********************
Config Pind.2 = Input 'íàñòîðèì âûâîä íà âõîä
Set Portd.2
Config Pind.3 = Input 'íàñòðîèì âûâîä íà âõîä
Set Portd.3
Config Int0 = Falling ' ñðàáàòûâàíèå ïî ñïàäó
Config Int1 = Falling
Config Debounce = 75 ' çàäåðæêà îò äðåáåçãà êîíòàêòîâ êíîïêè
On Int0 Button 'îáðàáîòêà êíîïêè
On Int1 Resbutton 'îáðàáîòêà êíîïêè ñáðîñà
'*************** êîíôèãóðèðóåì ïðåðûâàíèÿ ïî uart *******************
On Urxc Getchar
' ************* ðàçðåøàåì âñå ïðåðûâàíèÿ **************
Enable Interrupts
Enable Int0
Enable Int1
Enable Oc1a
Enable Urxc
Start Timer1Перед тем как копировать в буфер обмена, переключите раскладку клавиатуры на русскую.mr4ester писал(а):от чего каракули в комментариях вместо слов когда сюда вставляешь?
Код: Выделить всё
'*********** цифровой термометр на 2х ds18b20 ******************
$regfile = "m16def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 9600
' ************** зададим переменные и константы ***********************
Dim Znak As String * 1
Dim Dat1 As String * 5
Dim Dat2 As String * 5
Dim Byte0 As Byte
Dim Byte1 As Byte
Dim T As Byte
Dim Dsid1(8) As Byte
Dim Dsid2(8) As Byte
Dim Temp As Byte
Dim X As Byte
Dim W As Word
Dim Errord1 As Bit ' переменная флаг ошибки 1 датчика
Dim Errord2 As Bit ' переменная флаг ошибки 2 датчика
Dim Opr As Bit ' переменная флаг для определения с какаим датчиком работали
Dim Prin As Bit 'переменная флаг для определения вывода данных в порт
Dim Breaking As Bit ' переменная флаг сигнализирующая о прерывания
Dim Shethik As Word ' переменнная для отсчета прерываний
Dim Tmax1 As String * 3 ' максимальная температура 1 датчика
Dim Tmin1 As String * 3 ' минимальная температура 1 датчика
Dim Tmax2 As String * 3 ' максимальная температура 2 датчика
Dim Tmin2 As String * 3 ' минимальная температура 2 датчика
Dim Rs232 As String * 5 ' переменная для работы с uart
Const Cons = 35535 ' константа для сравнения с таймером
Const Geth = 2274 ' константа для сравнения с счетчикаом прерываний
' *************** конфигугрируем подключение ЖКИ ****************
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Config Lcd = 16 * 2 'дисплей 2 строки по 16 символов
Cursor Off 'выключить курсор
Cls 'очистить дисплей
' ************** конфигурирем пин для подключения датчиков ******************
Config 1wire = Portb.0 ' на порт повесим 2 датчика с подтяжкой резистором на 4,7К
'*************** конфигурируем таймер для опроса датчика ***********************
Config Timer1 = Timer , Prescale = 256 , Clear Timer = 1
On Oc1a Tim ' обработка прерывания
Compare1a = Cons ' загрузка в регистр сравнеия константы
'**************** конфигугурируем INT0 и INT1 для подключения кнопок *********************
Config Pind.2 = Input 'насторим вывод на вход
Set Portd.2
Config Pind.3 = Input 'настроим вывод на вход
Set Portd.3
Config Int0 = Falling ' срабатывание по спаду
Config Int1 = Falling
Config Debounce = 75 ' задержка от дребезга контактов кнопки
On Int0 Button 'обработка кнопки
On Int1 Resbutton 'обработка кнопки сброса
'*************** конфигурируем прерывания по uart *******************
On Urxc Getchar
' ************* разрешаем все прерывания **************
Enable Interrupts
Enable Int0
Enable Int1
Enable Oc1a
Enable Urxc
Start Timer1
' ************* нарисуем знак градуса ***************
Deflcdchar 0 , 28 , 20 , 28 , 32 , 32 , 32 , 32 , 32
'***************** работаем с ds18b20 *****************
W = 1wirecount() ' ищем колличество устройств на линии
Dsid1(1) = 1wsearchfirst() ' считываем семейный код 1 датчика
If W > 1 Then Dsid2(1) = 1wsearchnext() 'если выполняется условие то считываем семейный код 2 датчика
'************** основной цикл программы ********************
Do
' инициализируем датчики
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
1wverify Dsid1(1) : Opr = 0 : Gosub Temperature ' проверим на ошубку чтения с 1 датчика и перейдем к подпрограмме
' opr флаг определения в подпрограмме с каким датчиком работаем opr=0 с 1 датчиком opr=1 со вторым
1wverify Dsid2(1) : Opr = 1 : Gosub Temperature ' проверим на ошубку чтения со 2 датчика и перейдем к подпрограмме
Gosub Disp
Loop
Disp:
Cls 'очистим дисплей
If Errord1 = 1 Then ' если стоит флаг ошибки
Errord1 = 0 ' сбросим флаг
Lcd "гaїАёє Ѕe ѕoгє»." ' выводим надпись датчик не подключен
Goto Datt2 'переходим к работе с 2 датчиком
Else
Lcd "їeјѕepaї " ; Dat1 ; Chr(0) ; "C" ' выводим на дисплей слово температура, знак и значение темп, знак и символ градуса
End If
Datt2:
If Errord2 = 1 Then ' если стоит флаг ошибки
Errord2 = 0 ' сбросим флаг
Locate 2 , 1
Lcd "гaїАёє Ѕe ѕoгє»." ' выводим надпись датчик не подключен
Else
Locate 2 , 1
Lcd "їeјѕepaї " ; Dat2 ; Chr(0) ; "C" ' выводим на дисплей слово температура, знак и значение темп, знак и символ градуса
End If
' сравниваем текущую температуру с максимальной и минимальной если изменилось то переписываем
If Dat1 < Tmin1 Then
Tmin1 = Dat1
End If
If Dat1 > Tmax1 Then
Tmax1 = Dat1
End If
If Dat2 < Tmin2 Then
Tmin2 = Dat2
End If
If Dat2 > Tmax2 Then
Tmax2 = Dat2
End If
'проверим установлен ли флаг Prin, если установлен значит прошло прим. 10мин выдаем в порт текущие максимальные и минимальные температуры
If Prin = 1 Then
Print "текущая температура d1 " ; Dat1 ; Chr(0) ; "C"
Print "минимальная" ; Tmin1 ; Chr(0) ; "C"
Print "максимальная" ; Tmax1 ; Chr(0) ; "C"
Print "текущая температура d2 " ; Dat2 ; Chr(0) ; "C"
Print "минимальная " ; Tmin2 ; Chr(0) ; "C"
Print "максимальная " ; Tmax2 ; Chr(0) ; "C"
End If
Return
Temperature:
If Err = 1 Then ' если при опросе появился флаг ошибки тогда
Select Case Opr ' в зависимости от того с каким датчиком работаем ставим ему флаг ошибки
Case 0 : Errord1 = 1
Case 1 : Errord2 = 1
End Select
Return ' возвращаемся обратно
Else ' если ошибки небыло тогда работаем с датчиком
1wwrite &HBE
Byte0 = 1wread()
Byte1 = 1wread()
End If
If Byte1 >= 248 Then
Byte0 = &HFF - Byte0
Byte1 = &HFF - Byte1
Znak = "-"
Else
Znak = "+"
End If
Temp = Byte0 / 16
T = Byte1 * 16
Temp = Temp + T
If Opr = 0 Then
Dat1 = Znak + Str(temp)
Else
Dat2 = Znak + Str(temp)
End If
Return
'***************** обрботчик кнопки по прерыванию INT0 ******************************
' по нажатию этой кнопки на дисплей будут выводиться максимальная и минимальная температура обоих датчиков
Button:
Cls ' очистим дисплей
Lcd "MAX" ; Tmax1 ; Chr(0) ; "C"
Locate 1 , 8
Lcd "MIN" ; Tmin1 ; Chr(0) ; "C"
Lowerline
Lcd "MAX" ; Tmax2 ; Chr(0) ; "C"
Locate 2 , 8
Lcd "MIN" ; Tmin2 ; Chr(0) ; "C"
Wait 5 ' отображаем в течении 5 секунд
Return
'************** обработчик кнопки по прерыванию INT1 ******************************
'по нажатию кнопок будет сбрасываться максимальная и минимальная температура, и присвоена текущая
Resbutton:
Tmin1 = Dat1
Tmax1 = Dat1
Tmin2 = Dat2
Tmax2 = Dat2
Cls
Lcd "·ЅaАeЅёЗ їeјѕ-pГ" 'выводим надпись значения температуры
Locate 2 , 4
Lcd "cІpoБeЅГ!!!" 'сброшены
Wait 3
Return
'****************** обработка прерывания по uart ***************************
Getchar:
Input Rs232
If Rs232 = "T" Then
Print "*****************************************************"
Print "текущая температура дом " ; Dat1 ; Chr(0) ; "C"
Print "минимальная " ; Tmin1 ; Chr(0) ; "C"
Print "максимальная " ; Tmax1 ; Chr(0) ; "C"
Print "текущая температура улица " ; Dat2 ; Chr(0) ; "C"
Print "минимальная " ; Tmin2 ; Chr(0) ; "C"
Print "максимальная " ; Tmax2 ; Chr(0) ; "C"
End If
Return
'****************** обработка перывания от таймера *********************
Tim:
Incr Shethik ' увеличиваем на 1 счетчик прерываний
If Shethik = Geth Then ' сравниваем переменную счетчик с константой
Shethik = 0 ' если равно обнуляем счетчик
Prin = 1 ' ставим флаг что произошло сравнение
Print "123"
End If
Return