LABA 120 - очередная домашняя метеостанция на ардуино

   





' Домашняя метео станция



'- дисплей 1602

'- Давление BMP180

'- Влажность DHT11

'- Температура домашняя BMP180

'- Температура уличная DS1820



'- Трансляция на ESP8266 с прошивкой BortX

'- Трансляция через Bluetooth  для программы AEHA Display



' САЙТ http://aeha.narod.ru/r2/avr/home_meteo/

' САЙТ https://aeha.neocities.org/



'MCU config

'

$regfile = "m328Pdef.dat"

$crystal = 8000000

$hwstack = 256

$swstack = 256

$framesize = 256



  $baud =38400



  '  Open "comb.4:38400,8,n,1" For Output As #2     '  Для    AEHA Display



  Open "comb.3:19200,8,n,1" For Output As #1    ' Для     BortX



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



 Config Adc = Single , Prescaler = Auto , Reference = Avcc       'конфигурация АЦП

'объявляем переменные

Dim W As Word





Start Adc           'запускаем аналого-цифровое преобразование



Config Lcdbus = 4

Config Lcd = 16x2

 '    2 СТРОКА   ЛСД   АРДУИНО И ШИЛД

 Config Lcdpin = Pin , Db7 = Portd.5 , Db6 = Portd.6 , Db5 = Portd.7, Db4 = Portb.0 , E = Portb. 7 , Rs = Portb.6



cursor off







Config Portb.4= Output

Config Portb.3 = Output



Config Sda = Portc.4

Config Scl = Portc.5



 ' Led Alias Portb.1



 inb Alias Pind.4

Config inb = input



  Led2 Alias Portc.0

Config Led2 = Output



'+++++++++++++++ HYDRO +++++++++++++++++++++++++++++++++



Declare Sub Get_th(t As Byte , H As Byte)



Dht_put Alias Portc.3

Dht_get Alias Pinc.3

Dht_io_set Alias Ddrc.3



Dim cin As bit



Dim T11 As Byte

Dim H11 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



Enable Interrupts



Set Dht_io_set

Set Dht_put



'+++++++++++++++++++++++++++++++++++++++++++++++++++++





  '+++++++++++++++++ ПЕРЕМЕННЫЕ DS1820 И КОНФИГ  +++++++++++++++++++++





Dim Tt As Integer





Dim n As Byte

Dim dd1(8) As Byte

Dim dd2(8) As Byte

Dim dd3(8) As Byte

Dim Ss(3) As String * 5

Dim RS As String * 8



   Declare Sub Zamer



  Declare Sub Find



 '+++++++++++++ Конфиг   1wire Входа счетчика входящих и выхода Com Port (rs232)

  ' Для передачи показаний в BortX

'  по умолчанию в BortX скорость передачи 115200, я в своем занизил до 19200



Config 1wire = Portb.2





''  DECLARE FOR BMP 180

Dim Ac1 As Integer

Dim Ac1a As Long

Dim Ac2 As Integer

Dim Ac3 As Integer

Dim Ac4 As Word

Dim Ac5 As Word

Dim Ac5a As Single

Dim Ac6 As Word

Dim B1 As Integer

Dim B2 As Integer

Dim B3 As Long

Dim B3a As Long

Dim B4 As Long

Dim B5 As Long

Dim B6 As Integer

Dim B6a As Long

Dim B7 As Long

Dim Mb As Integer

Dim Mc As Integer

Dim Mc2 As Long

Dim Md As Integer

Dim Adres As Byte

Dim Wert As Byte

Dim Ut As Long

Dim X1 As Long

Dim X1t As Single

Dim X2 As Long

Dim X3 As Long

Dim T As Single

Dim T2 As Long



Dim Temperatur As String * 6

Dim Luftdruck As String * 8

Dim Druck As Single



Dim P As Long

Dim P2 As Long

Dim 2potenz15 As Long

Dim 2potenz11 As Integer

Dim 2potenz13 As Integer

Dim 2potenz8 As Integer

Dim 2potenz4 As Integer

Dim 2potenz2 As Integer

Dim 2potenz16 As Long

Dim 2potenz12 As Integer

Dim Potenz5255 As Single

Dim Altitude As Single

Dim Altitudes As String * 8

Dim Msb As Long

Dim Lsb As Long

Dim Up As Long

Dim Druckvar As Byte

Declare Sub Berechne_temp

Declare Sub Berechne_druck

Declare Sub Schreibe_bmp085(byval Adres As Byte , Byval Wert As Byte)

Declare Sub Lese_bmp085(byval Adres As Byte , Wert As Byte)

Declare Sub Lese_roh_daten

Declare Sub Messen

Declare Sub Lese_kalib_data



Const Addr_schreiben = &B11101110                           'адрес микросхемы + запись

Const Addr_lesen = &B11101111                               'адрес микросхемы + чтение

















' ***************  СЧЕТЧИК ПЕРЕЗАПУСКОВ   *****************

'

inb=0

 Dim cntr as Eram word

Dim cntrn as  word

Dim ctv as  word



  cntrn=cntr

incr   cntrn

cntr=cntrn







cls

?chr(12)



lcd"  M328 Meteo"

   Lowerline

lcd "aeha.narod.ru"



wait 2

?   "aeha.narod.ru"

cls





FIND

WAIT 2







Call Lese_kalib_data



































      '================================================

Do



   W = Getadc(2)      'считываем результат с пина 0 порта А.



  if inb=1 and cin=1 then   '  проверка счетчика входящих

incr ctv



  cin=0

end if

if inb=0  then cin=1





Zamer

'led2=1

   Call Get_th(T11 , H11)



Call Messen

T = T / 10

Temperatur = Fusing(t , "###.#")

Potenz5255 = 1 / 5.255



Altitude = P / 101325

Altitude = Altitude ^ Potenz5255

Altitude = 1 - Altitude

Altitude = Altitude * 44330



Druck = P

Druck = Druck / 100



Luftdruck = Fusing(druck , "####.#")

Altitudes = Fusing(altitude , "#####.#")



     cls





lcd "Td:";  Temperatur;" Tu:";SS(1)



Lowerline

lcd    "Dv:" ;Luftdruck;" Hy:"; h11



wait 2

Lowerline

lcd    "An:" ;w;" Bit:"; inb



print #1, "<0>";Temperatur;"</0><1>";SS(1);  "</1><2>";Luftdruck;"</2><3>";h11;  "</3>"

print  "a*,"; Temperatur;",";SS(1); "," ;Luftdruck;"," ;h11;",";w;",";ctv;",";cntrn;",";SS(2);",";SS(3);",,,,,,#"



led2=0





Wait 2





Loop



     '================================================

     '================================================









Sub Messen

'Измерение температуры





Call Schreibe_bmp085(&Hf4 , &H2E)

Adres = &HF6

Call Lese_roh_daten

'Print "msb " ; Msb

'Print "lsb " ; Lsb

Shift Msb , Left , 8

'Print "msb shift " ; Msb

Ut = Msb + Lsb

Call Berechne_temp





'Измерение давления



Call Schreibe_bmp085(&Hf4 , &H74 )

Adres = &HF6

Call Lese_roh_daten

Shift Msb , Left , 16

Shift Lsb , Left , 8

Up = Msb + Lsb

Shift Up , Right , 6



Call Berechne_druck

End Sub





Sub Berechne_temp

'X1

Ut = Ut - Ac6

2potenz15 = 2 ^ 15

Ac5a = Ac5 / 2potenz15

X1t = Ut * Ac5a

'Print "X1 " ; X1t



'X2

2potenz11 = 2 ^ 11

Mc2 = Mc * 2potenz11

X3 = X1t + Md

X2 = Mc2 / X3

'Print "X2 " ; X2

'B5



B5 = X1t + X2

'Print "B5 " ; B5

'T

2potenz4 = 2 ^ 4

T2 = B5 + 8

T = T2 / 2potenz4







End Sub

' *****   Измерение температуры



Sub Berechne_druck

'B6

B6 = B5 - 4000

'X1

2potenz12 = 2 ^ 12

B6a = B6 * B6

B6a = B6a / 2potenz12

X1 = B2 * B6a

X1 = X1 / 2potenz11

'X2

X2 = Ac2 * B6

X2 = X2 / 2potenz11

'X3

X3 = X1 + X2

'B3

Ac1a = Ac1 * 4

Ac1a = Ac1a + X3

Shift Ac1a , Left , 2

Ac1a = Ac1a + 2

B3 = Ac1a / 4

'X1 die zweite

2potenz13 = 2 ^ 13

B6a = B6 / 2potenz13

X1 = Ac3 * B6a

'X2 die zweite

B6a = B6 * B6

B6a = B6a / 2potenz12

X2 = B1 * B6a

2potenz16 = 2 ^ 16

X2 = X2 / 2potenz16

'X3 die zweite

X3 = X1 + X2

X3 = X3 + 2

2potenz2 = 2 ^ 2

X3 = X3 / 2potenz2

'B4

B4 = X3 + 32768

B4 = B4 * Ac4

B4 = B4 / 2potenz15

If B4 <= 0 Then B4 = B4 * -1



'Print B4

'B7

B7 = Up - B3

B3a = 50000

Shift B3a , Right , 2                                       '

B7 = B7 * B3a

If B7 <= 0 Then B7 = B7 * -1



'Print B7

If B7 < &H80000000 Then

P = B7 * 2

'Print "p1 " ; P

P = P / B4

'Print "p1 " ; P

Else

P = B7 / B4

'Print "p2 " ; P

P = P * 2

'Print "p2 " ; P

End If



'Print P

'nochmal X1

2potenz8 = 2 ^ 8

P2 = P / 2potenz8

X1 = P2 * P2

'Print X1



X1 = X1 * 3038

X1 = X1 / 2potenz16

'Print X1



' nochmal X2

X2 = -7357 * P

X2 = X2 / 2potenz16



'Print X2

P2 = P

P = X2 + 3791

P = P + X1

P = P / 2potenz4

P = P + P2



End Sub





Sub Lese_kalib_data

Adres = &HAA

'Ac1 lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

Ac1 = Msb + Lsb



Adres = Adres + 1

'Ac2 lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

Ac2 = Msb + Lsb



Adres = Adres + 1

'Ac3 lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

Ac3 = Msb + Lsb



Adres = Adres + 1

'Ac4 lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

Ac4 = Msb + Lsb



Adres = Adres + 1

'Ac5 lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

Ac5 = Msb + Lsb



Adres = Adres + 1

'Ac6 lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

Ac6 = Msb + Lsb



Adres = Adres + 1

'B1 lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

B1 = Msb + Lsb



Adres = Adres + 1

'B2 lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

B2 = Msb + Lsb



Adres = Adres + 1

'MB lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

Mb = Msb + Lsb



Adres = Adres + 1

'MB lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

Mc = Msb + Lsb



Adres = Adres + 1

'Md lesen

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

Shift Msb , Left , 8

Md = Msb + Lsb



Adres = Adres + 1

End Sub









Sub Lese_roh_daten

Call Lese_bmp085(adres , Wert)

Msb = Wert

Adres = Adres + 1

Call Lese_bmp085(adres , Wert)

Lsb = Wert

End Sub



Sub Schreibe_bmp085(byval Adres As Byte , Byval Wert As Byte)

I2cstart

I2cwbyte Addr_schreiben

I2cwbyte Adres

I2cwbyte Wert

I2cstop

Waitms 10

End Sub





Sub Lese_bmp085(byval Adres As Byte , Wert As Byte)

I2cstart

I2cwbyte Addr_schreiben

I2cwbyte Adres

I2cstart

I2cwbyte Addr_lesen

I2crbyte Wert , Nack

I2cstop

Waitms 10

End Sub















'*******  Измерение температуры с коррекцией показаний и форматированием строки для экрана ***************



Sub Zamer





   1wreset

   1wwrite &HCC

1wwrite &H44



Waitms 750





  '---------------------------------  ДАТЧИК  1

   1wreset

   1wwrite &H55

   1wverify Dd1(1)

   1wwrite &HBE



  Tt = 1wread(2)

Tt = Tt * 10

Tt = Tt \ 16



 Ss(1) = Str(tt) : Ss(1) = Format(ss(1) , "0.0")



   '---------------------------------  ДАТЧИК  2

   1wreset

   1wwrite &H55

   1wverify Dd1(2)

   1wwrite &HBE



  Tt = 1wread(2)

Tt = Tt * 10

Tt = Tt \ 16



 Ss(2) = Str(tt) : Ss(2) = Format(ss(2) , "0.0")

   '---------------------------------  ДАТЧИК  3

   1wreset

   1wwrite &H55

   1wverify Dd2(3)

   1wwrite &HBE



  Tt = 1wread(2)

Tt = Tt * 10

Tt = Tt \ 16



 Ss(3) = Str(tt) : Ss(3) = Format(ss(3) , "0.0")



End Sub



   '******* Поиск датчиков температуры Ds18B20 ****************



 Sub Find

Dd1(1) = 1wsearchfirst()

waitms 20

Dd2(1) = 1wsearchnext()

waitms 20

Dd3(1) = 1wsearchnext()



       rs=""



 ' *********** Вывод уникальных номеров датчиков Ds18b20 на дисплей 1602



 for n=1 to 8

 rs=rs+hex(dd1(N))

  next

    CLS

    LCD RS





   rs=""

    for n=1 to 8

 rs=rs+hex(dd2(N))

  next

           Lowerline

      LCD RS









End Sub















Sub Get_th(t As Byte , H As Byte)



 Count = 0

 Sensor_data = ""

 Set Dht_io_set

 Reset Dht_put

 Waitms 25



 Set Dht_put

 Waitus 40

 Reset Dht_io_set

 Waitus 40

 If Dht_get = 1 Then

    H11 = 1

    Exit Sub

 End If





  Waitus 80

  If Dht_get = 0 Then

    H11 = 2

    Exit Sub

  End If







  While Dht_get = 1 : Wend



   Do

    While Dht_get = 0 : Wend

    Waitus 30

     If Dht_get = 1 Then

       Sensor_data = Sensor_data + "1"

       While Dht_get = 1 : Wend

       Else

       Sensor_data = Sensor_data + "0"

    End If

    Incr Count

   Loop Until Count = 40



   Set Dht_io_set

   Set Dht_put







   Tmp_str8 = Left(sensor_data , 8)

   H11 = Binval(tmp_str8)



   Tmp_str8 = Mid(sensor_data , 17 , 8)

   T11 = Binval(tmp_str8)



   Tmp_str8 = Right(sensor_data , 8)

   Crc = Binval(tmp_str8)







   Mybyte = T11 + H11

   If Mybyte <> Crc Then

      H11 = 3

   End If



End Sub