'****************************************
'простой термометр на attiny2313 и 18b20
'с эффективным энергосбережением
'Sherman inc. for Avrproject.ru 2012 ;)
'применен индикатор с общим анодом
'подключение разрядов индикатора
'A-PortB.1
'B-PortB.0
'C-PortB.2
'D-PortB.4
'E-PortB.6
'F-PortB.3
'G-PortB.5
'подключение разрядов индикатора слева направо
'1-PortD.4
'2-PortD.3
'3-PortD.6
'подключение датчика температуры к PortA.1
'питание датчика температуры (+5V) PortA.0
'*****************************************
      $regfile = "attiny2313.dat"                    'используемый микроконтроллер
      $crystal = 8000000                    'частота работы 8 МГц (фьюз CKDIV8 снят)

      Config 1wire = Porta.1                    'настройка порта для подключения датчика

      Config Watchdog = 64                    'настройка ватчдога

      Config Int0 = Low Level                    'настройка внешнего прерывания по низкому уровню
      On Int0 Wakeup

      Config Portb = Output
      Config Portd = Output
      Config Porta.0 = Output

      Portb = &B11111111
      Portd = &B11111111

      Power18b20 Alias Porta.0                    'питание датчика от ноги микроконтроллера

      Dim N1 As Integer
      Dim N2 As Integer
      Dim N3 As Integer

      Dim M1 As Integer
      Dim M2 As Integer
      Dim M3 As Integer

      Dim Byte0 As Byte
      Dim Byte1 As Byte
      Dim Sign As String * 1
      Dim T As Byte
      Dim T1 As Byte
      Dim T2 As Byte

      Dim Wr As Word

      Power18b20 = 1                    'подача питания на датчик

      Gosub 18b20                    'идем и узнаем температуру

      Enable Interrupts
      Enable Int0

'ГЛАВНЫЙ ЦИКЛ
'в нем на индикатор виводится значение температуры
     Do

      Portd = &B11101111                    'первый разряд
      Portb = Lookup(n1 , Numbers)
      Waitms 5

      Portd = &B11110111                    'второй разряд
      Portb = Lookup(n2 , Numbers)
      Waitms 5

      Portd = &B10111111                    'третий разряд
      Portb = Lookup(n3 , Numbers)
      Waitms 5

      Wr = Wr + 1                    'считаем сколько раз прошел цикл

     Loop Until Wr = 333                    'если прошло 333 интерации (примерно 5сек) выходим

      Waitms 10
      Power18b20 = 0                    'отключим питание датчика

      Portb = &B11111111                    'гасим индикатор полностью
      Portd = &B11111111

        Wr = 0

     Powerdown                    'погружение микроконтроллера в режим энергосбережения

     End

'прерывание от баттона на INT0
Wakeup:

Start Watchdog                    'запускаем пса
Gifr = 64
'после того как пес запущен, пройдет примерно 64мс и он сбросит микроконтроллер
'что вызовет повторное выполнение всей программы, тоесть опрос датчика и вывод показаний на индикатор на 5 сек
Return

'опрос датчика 18b20, все как обычно
'************************************
18b20:

1wreset

If Err = 1 Then                    'Ошибочка? значит датчик не подключен

T = 255                    'в таком случае на индикаторе будет три черточки
N1 = 10
N2 = 10
N3 = 10
Return

Waitms 100

Else                    'если все нормально идем дальше

1wwrite &HCC
1wwrite &H44

Waitms 750

1wreset
1wwrite &HCC
1wwrite &HBE

     Byte0 = 1wread()

     Byte1 = 1wread()

If Byte1 > 248 Then
     Byte0 = &HFF - Byte0
     Byte1 = &HFF - Byte1
     Sign = "-"

Else
     Sign = "+"
End If

     T1 = Byte0 / 16
     T2 = Byte1 * 16

     T = T1 + T2

'Коррекция полученных значений
If Sign = "-" Then
T = T + 1
End If

If Sign = "+" And T = 0 Then
      Sign = " "
End If

M1 = T
M2 = T
M3 = T
M1 = M1 / 100                    'сотки
N1 = Abs(m1)
M2 = M2 Mod 100                    'десятки
M2 = M2 / 10
N2 = Abs(m2)
M3 = M3 Mod 10                    'единицы
N3 = Abs(m3)
End If

'подготовка данных на вывод индикатора

If T < 10 And Sign = "+" Then                    'если температура положительная и занимает один разряд
      N1 = 12                    'первый разряд пустой
      N2 = N3                    'второй разряд значение температуры
      N3 = 11                    'третий разряд символ градуса
End If

If T > 9 And Sign = "+" Then                    'если температура положительная и занимает два разряда
      N1 = N2                    'первый разряд десятки градусов
      N2 = N3                    'на второй разряд единицы градусов
      N3 = 11                    'третий разряд символ градуса
End If

If T < 10 And Sign = "-" Then                    'если температура отрицательна и занимает один разряд
      N1 = 10                    'первый разряд символ минус
      N2 = N3                    'второй разряд значение температуры
      N3 = 11                    'третий разряд символ градуса
End If

If T > 9 And Sign = "-" Then                    'если температура отрицательна и занимает два разряда
      N1 = 10                    'первый разряд символ минус, остальные как и должны быть
End If

If Sign = " " Then
      N1 = 12                    'первый разряд пустой
      N2 = 0                    'просто ноль
      N3 = 11                    'третий разряд символ градуса
End If

'теперь информация будет хорошо смотреться на индикаторе при любых значениях

Return

'массив откуда берутся данные для зажигания отдельных сегментов
     Numbers:

        Data &B10100000                    '0
        Data &B11111010                    '1
        Data &B10001100                    '2
        Data &B11001000                    '3
        Data &B11010010                    '4
        Data &B11000001                    '5
        Data &B10000001                    '6
        Data &B11111000                    '7
        Data &B10000000                    '8
        Data &B11000000                    '9
        Data &B11011111                    'минус
        Data &B11010100                    'градус
        Data &B11111111                    'пустой разряд