'--------------------------- Указываем тип МК и его частоту ------------------------------
$regfile = "m328def.dat"
$crystal = 16000000
'-----------------------------------------------------------------------------------------

'---------------------------- Конфигурим LCD ---------------------------------------------
'Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.3 , Rs = Portb.2
'Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0
$lib "lcd_pcf8574.lib"

Config I2cdelay = 1
Config Scl = Portc.5                                        ' CONFIGURE I2c Scl
Config Sda = Portc.4                                        ' Configure I2c Sda

Config Lcd = 20 * 4

Const Pcf8574_lcd = &H4E                                    ' Defines the address of the I/O expander for LCD
Const Pcf_e2_is_output = 1                                  ' festlegen das E2 ein Ausgang ist
Const Pcf_rw_is_output = 1                                  ' festlegen das RW ein Ausgang ist
' festlgen welcher Pin vom PCF8574 welchen Pin vom LCD ansteuern soll
Const Pcf_rs = 0
Const Pcf_rw = 1
Const Pcf_e1 = 2                                            '2
Const Pcf_e2 = 3                                            '3
Const Pcf_d4 = 4
Const Pcf_d5 = 5
Const Pcf_d6 = 6
Const Pcf_d7 = 7

Cursor Off
Cls
'-----------------------------------------------------------------------------------------
'объявление подпрограммы
Declare Sub Get_th(t As Byte , H As Byte)

Config Serialin = Buffered , Size = 128
Config Serialout = Buffered , Size = 128

'подключение датчика к PortD.6
Dht_put Alias Portd.6
Dht_get Alias Pind.6
Dht_io_set Alias Ddrd.6

Dim _out_rw As Byte
Dim _out_e2 As Byte
Dim _lcd_e As Byte

Dim T As Byte                                               'перееменная для хранения температуры
Dim H As Byte                                               'переменная для хранения влажности
Dim Crc As Byte                                             'переменная для хранения байта четности
Dim Mybyte As Byte
Dim Sensor_data As String * 40                              'сюда будут записываться данные отсылаемые датчиком
Dim Tmp_str8 As String * 8
Dim Count As Byte                                           'переменная для подсчета принятых бит

_lcd_e = 192                                                ' 64=E2 128=E1 192=E1+E2
_out_rw = 1                                                 ' Ausgang ein schalten
_out_e2 = 1

Enable Interrupts

Set Dht_io_set
Set Dht_put
Toggle _out_rw
Lcd "AVRproject.ru"
Lowerline
Lcd "DHT11 sensor"
Waitms 1500

Do

   'Waitms 1500
   'Вместо задержки опроса датчика на 1.5 секунды вставил в 19-ю позицию
   'анимацию на 2 секунды, которая заодно и показывает что программа не висит, а работает.
   Call Get_th(t , H)
   Cls
   Lcd "    Temp: " ; T ; "C"
   Lowerline
   Lcd "Humidity: " ; H ; "%"
   Thirdline
   Lcd "    Date: "
   Fourthline
   Lcd "    Time: "
   Locate 1 , 19
   Lcd "." : Wait 1
   Locate 1 , 19
   Lcd "o" : Wait 1
   Locate 1 , 19
   Lcd "O" : Wait 1
   Locate 1 , 19
   Lcd "o" : Wait 1

Loop

Sub Get_th(t As Byte , H As Byte)

 Count = 0
 Sensor_data = ""
 Set Dht_io_set                                             'делаем PD.6 выходом
 Reset Dht_put                                              'прижимаем шину к земле
 Waitms 25                                                  'ждем не менее 18мс

 Set Dht_put                                                'отпускаем шину
 Waitus 40
 Reset Dht_io_set                                           'делаем PD.6 входом
 Waitus 40                                                  'ждем 40 мкс
 If Dht_get = 1 Then                                        'если на нем по прежнему 1
    H = 1                                                   'значит датчик не ответил
    Exit Sub                                                'выходим из подпрограммы
 End If

'если датчик ответил и прижал шину к земле продолжаем работу
  Waitus 80                                                 'ждем еще 80 мкс
  If Dht_get = 0 Then                                       'если на линии по прежнему 0
    H = 2                                                   'значит датчик сошел с ума
    Exit Sub                                                'выходим из подпрограммы
  End If

'если все нормально и датчик ответил правильно, тогда продолжаем

  While Dht_get = 1 : Wend                                  'ждем пока на шине появится 1

   Do                                                       'начинаем принимать 40 бит данных
    While Dht_get = 0 : Wend                                'ждем появления на шине 0
    Waitus 30                                               'после появления 0 ждем 30мкс
     If Dht_get = 1 Then                                    'если на шине 1
       Sensor_data = Sensor_data + "1"                      'записываем в переменную эту единицу
       While Dht_get = 1 : Wend                             'и ждем пока датчик отправит следующий бит
       Else                                                 'иначе, если там был 0
       Sensor_data = Sensor_data + "0"                      'записываем этот 0 в переменную
    End If
    Incr Count                                              'увеличиваем счетчик на 1
   Loop Until Count = 40                                    'повторяем пока счетчик не досчитает до 40

   Set Dht_io_set
   Set Dht_put

'начинаем раскладывать полученные данные

   Tmp_str8 = Left(sensor_data , 8)                         'берем левые 8 символов переменной
   H = Binval(tmp_str8)                                     'это целая часть влажности

   Tmp_str8 = Mid(sensor_data , 17 , 8)                     'вытаскиваем 8 символов из середины
   T = Binval(tmp_str8)                                     'это целая часть температуры

   Tmp_str8 = Right(sensor_data , 8)                        'правые 8 символов
   Crc = Binval(tmp_str8)                                   'проверочные данные

'проверка контрольной суммы

   Mybyte = T + H                                           'складываем значение температуры и влажности
   If Mybyte <> Crc Then                                    'если контрольная сумма не сошлась
      H = 3                                                 'значит полученные данные не верны
   End If

End Sub                                                     'возвращаемся в главный цикл программы