Bodensensor UART

'*******************
'*   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 6,4 MHz/8
$hwstack = 80
$swstack = 80
$framesize = 100

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

Ddrb = &B00011000                                           'PortB 3,4  als Ausgang, die restlichen als Eingang (1 = Ausgang, 0 = Eingang)

'Config Pinb.2 = Input                                       ' Eingang für ADC

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

Open "COMB.0:300,8,N,1" For Output As #1

'Start Programm


Do
Portb.4 = 1                                                 'Messspannung einschalten
Start Adc
Waitms 200
Summe = 0
W = 0

 For Z1 = 0 To 9                                            '10 x Messung
  W = Getadc(1)
  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

Print #1 , "ADC : " ; W                                     'UART Ausgabe

Loop
End