$regfile = "m8def.dat"             ' Работа с DS18B20 - датчик температуры
$crystal = 8000000
$baud = 9600

Dim Byte0 As Byte , Byte1 As Byte , Volts As Word
Dim Signtemperatura As String * 1
Dim T1 As Byte , T2 As Byte , Temp As Byte


Led Alias Portb.0                  ' к этому выводу подключен св.диод

Hc_595_clock Alias Portb.5         ' Входы управления сдвигового регистра 75HC595
Hc_595_load Alias Portb.4          '
Hc_595_data Alias Portb.3          '
Segm7_1 Alias Portb.1              ' Первый разряд 7-сегментного индикатора
Segm7_2 Alias Portb.2              ' Второй разряд 7-сегментного индикатора


Config Portb = Output              ' Настройка направления работы портов
Config Portc = Output              ' LCD
Config Portd = Input

Config Portc.5 = Input             ' Тут подключим резисторы кнопок "джойстика" через АЦП

Button_a Alias Pind.4              ' Тут подключена кнопка А
Portd.4 = 1                        ' Включим "подтягивающий" резистор

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portb.6 , Rs = Portb.7


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

' Рисуем спец. значки для дисплея
Deflcdchar 0 , 31 , 17 , 10 , 4 , 10 , 10 , 17 , 31       ' Песочные часы, кадр 0
Deflcdchar 1 , 31 , 31 , 31 , 14 , 4 , 10 , 17 , 31       ' Песочные часы, кадр 1
Deflcdchar 2 , 31 , 17 , 14 , 4 , 14 , 31 , 17 , 31       ' Песочные часы, кадр 2
Deflcdchar 3 , 31 , 17 , 10 , 4 , 14 , 31 , 31 , 31       ' Песочные часы, кадр 3

Deflcdchar 4 , 16 , 24 , 28 , 30 , 28 , 24 , 16 , 32       'указатель курсора >
Deflcdchar 5 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31       ' кубик


' Настройка АЦП
 Config Adc = Single , Prescaler = Auto , Reference = Avcc : Start Adc

 Cursor Off Noblink                ' Выключим мигающий курсор на экране

Do
    Cls

    Print "Start"                  ' В порт RS-232

    Lcd "Start..."   : Lowerline                ' На дисплей

    For Temp = 0 To 15             ' Отобразим факт завершения инициализации
     Lcd Chr(5) ; : Waitms 100
    Next
    Locate 1 , 12 : Lcd "OK!"

    Wait 1                         ' Пауза 1 секунда

    Cls                            ' Очистим дисплей
    Lcd "Mo№ ca№ї: " ; Chr(4) ; " " : Lowerline : Lcd "pic-avr.narod.ru"       ' На дисплей "Мой сайт "
    Print "Moi sait: pic-avr.narod.ru "       ' В порт RS-232
    Wait 1                         ' Пауза 1 секунда

    For Temp = 0 To 3              ' помигаем экраном
      Locate 1 , 15 : Lcd Chr(temp)       ' Отобразим на дисплее спец.символы (Рисуем песочные часики)
      Display Off : Led = 0 : Waitms 50       ' Отключим дисплей и отключим св.диод
      Sound Led , 500 , 300        ' Нога, длительность, частота. Чем выше частота, тем дольше
      Display On : Led = 1 : Waitms 50       ' Включим дисплей и включим св.диод
      Sound Led , 500 , 350        ' Нога, длительность, частота. Чем выше частота, тем дольше
    Next


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

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

   1wreset                         ' Инициализация шины 1Wire
   1wwrite &HCC
   1wwrite &HBE                    ' Команда чтения ОЗУ датчика

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

      If Byte1 >= 248 Then         ' Проверяем на отрицательную температуру. 248 в десятичном, 11111000 в двоичном.
            Byte0 = &HFF - Byte0 : Byte1 = &HFF - Byte1       ' Если температура отрицательная – вычитаем из &HFF
            Signtemperatura = "-"
          Else
            Signtemperatura = "+"
      End If


   Shift Byte0 , Right , 4 : T1 = Byte0       ' Сдвигаем нулевой байт вправо на 4 бита
   Shift Byte1 , Left , 4 : T2 = Byte1       ' Сдвигаем первый байт влево на 4 бита

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

   Cls
   Lcd "Teјѕepaїypa" : Lowerline   ' На дисплей   и переводим курсор на нижнюю строку
   Lcd Signtemperatura ; T1 ; "C"  ' На дисплей
   Print Signtemperatura ; T1 ; "C"       ' В порт RS-232




  ' Точка = 16    Данные для 7-сегм.индикатора с общим анодом
  ' 1=221, 2=, 4=92, 7=217, 8=127   Для включения сегмента подать "0"

    Byte0 = 92                     ' Что будем загружать в сдвиговый регистр
    For Temp = 0 To 7
       If Byte0.temp = 1 Then
         Hc_595_data = 1
        Else
         Hc_595_data = 0
       End If

      Hc_595_clock = 1 : Waitms 1 : Hc_595_clock = 0 : Waitms 1
    Next

    Hc_595_load = 1 : Waitms 1 : Hc_595_load = 0 : Waitms 1
    Segm7_1 = 1 : Waitms 500 : Segm7_1 = 0       ' Пауза 0.5 секунды


    Byte1 = 221                    ' Что будем загружать в сдвиговый регистр
    For Temp = 0 To 7
       If Byte1.temp = 1 Then
         Hc_595_data = 1
        Else
         Hc_595_data = 0
       End If

      Hc_595_clock = 1 : Waitms 1 : Hc_595_clock = 0 : Waitms 1
    Next

    Hc_595_load = 1 : Waitms 1 : Hc_595_load = 0 : Waitms 1
    Segm7_2 = 1 : Wait 1 : Segm7_2 = 0
    Waitms 500                     ' Пауза 0.5 секунды

   Gosub Demo_7_segm               ' В подпрограмму


   Cls : Lcd "Ha¶ёјa№ єЅoѕєё"

   For Temp = 0 To 255
        ' ===    Измеряем напряжение в канале 5   ===
      Volts = Getadc(5)            ' Измеряем напряжение в канале 5
      Shift Volts , Right , 2      ' Превращаем 12 бит в 8 бит

      Locate 2 , 1 : Lcd "ADC= " ; Volts ; "  "       ' отобразим напряжение и "затираем" значение в конце

      If Button_a = 1 Then         ' Опрос кнопки А
          Locate 2 , 14 : Lcd "Off"       ' Всё инверсно!
        Else
          Locate 2 , 14 : Lcd "On "
          Sound Led , 20 , 100     ' Нога, длительность, частота. Чем выше частота, тем дольше
      End If

      Waitms 80                    ' Пауза 80 ms (0.08сек)
   Next


Loop

End



' ==============================================================
Demo_7_segm:
  Restore Dta1                     ' Откуда будем читать данные

 For Byte1 = 0 To 13               ' 13 раз
    Read Byte0                     ' Что будем загружать в сдвиговый регистр


    For Temp = 0 To 7              ' 8 раз
       If Byte0.temp = 1 Then      ' Если указанный бит = 1, то
         Hc_595_data = 1
        Else                       ' Иначе
         Hc_595_data = 0
       End If

      Hc_595_clock = 1 : Waitms 1  ' Тактовые импульсы   =1
      Hc_595_clock = 0 : Waitms 1  ' Тактовые импульсы   =0
    Next

    Hc_595_load = 1 : Waitms 1     ' Импульс на вход "загрузка"
    Hc_595_load = 0 : Waitms 1
    Segm7_1 = 1 : Segm7_2 = 1 : Waitms 100 : Segm7_1 = 0 : Segm7_2 = 0

    Waitms 10
 Next


Return

Dta1:
Data 255
Data 251 , 253 , 223 , 191 , 247 , 254
Data 255
Data 253 , 249 , 217 , 153 , 145 , 144