Bodensensor

'*******************
'*   Udo Lorenz    *
'*   06.08.2017    *
'*  mit DUO-LED    *
'*******************
 'Low Fuse (0xE4)
 'High Fuse (0xDF)
 'Lockbits (0xFF)
 'VCC = 3V

'$sim
$regfile = "attiny85.dat"
$crystal = 128000                                           ' Oszillator Frequenz 128 kHz
$hwstack = 80
$swstack = 80
$framesize = 100

Dim Z As Byte , W As Word , Z1 As Byte , Summe As Dword
Summe = 1

Ddrb = &B00011011                                           'b.0,1,3,4  als Ausgang, die restlichen als Eingang (1 = Ausgang, 0 = Eingang)


Config Adc = Single , Prescaler = Auto , Reference = Internal_1.1

'Start Programm

Portb.4 = 1
Portb.3 = 0                                                 'Messspannung einschalten
Start Adc
Waitms 200

 For Z1 = 0 To 9                                            '10 x Messung
  W = Getadc(1)                                             'Portb.2=ADC-Eingang
  Summe = Summe + W
  Next Z1
Stop Adc


Portb.4 = 0                                                 'Messspannung wieder aus
Portb.3 = 1                                                 'Spannung Umpolen
Waitms 200                                                  'Umpolzeit einstellen
Portb.3 = 0                                                 'Spannung komplett aus
W = Summe / 10

 If W < 550 Then                                            'Wert anpassen je nach Feuchte
  Gosub Blinker                                             'Blinker ROT bei Alarm
  Else
  Portb.1 = 1
  Waitms 100                                                '1 * Blinken Grün, "alles Gut!"
  Portb.1 = 0
 End If


  'Start Watchdog
  Wdtcr = &B00101001                                        'Watchdog Config und Einschalten ca. 8 Sekunden
  Config Powermode = Powerdown                              'Powerdown

End

Blinker:

 For Z = 0 To 13
  Toggle Portb.0
  Waitms 80
 Next Z

Return
End