'Analogportabfrage bei z.B.: AT90S8535
'Siehe Bild analog1 + anschaltung einer LED an PB0
'wenn Poti(Spannungsteiler) an AREF voll aufgedreht(gegen +5V) ist und die Spannung an PA0 < 1,25V ist, blinkt
'die LED an PB0(in Bild Analog1 nicht zu sehen)
'www.gewitterlicht.de
'--------------------------------------------------------------------------------------------------------------
$regfile = "8535DEF.dat"                        'Daten für AT90S8535 (an jeweiligen Chip anzupassen)
Config Portb = Output                           'Konfiguriere Port PB als Ausgang (für LED)
Config Adc = Single , Prescaler = Auto          'Konfiguriere Analogportabfrageart
Start Adc                                       'Startet die Aalogportabfrage / Anhalten mit "Stop Adc"

Dim W As Word                                   'Lege Variablen "W" 16 Bit an (für einzulesenden 10 Bit-Wert)

Do                                              'Anfang der Schleife
  W = Getadc(0)                                 'Lese A/D Eingang 0 (PA0:AD0) und schreibe ihn in Variable "W"

  If W > 255 Then                               'Wenn "W" > 255 (Binär 0000000011111111 , HEX 00FF , bei AREF=5Volt PA0=1,25Volt)
   Portb.0 = 1                                  'dann setze Portb.0 auf 1
  Else                                          'Wenn nicht (<= 255)
   Portb.0 = Not Portb.0                        'dann setze Portb.0 auf gegenteil von Portb.0 (LED blinkt)
  End If                                        'Ende der Abfrage
  Waitms 300                                    'Warte 300 Millisekunden  (damit das Blinken zu sehen ist)
Loop                                            'Ende der Schleife (Sprung zum Anfang der Schleife)
End                                             'Ende Pogramm