'************************Widerstandstester by Paul Baumann
$regfile = "m8def.dat"                                      'ATmega8-Deklarationen
$crystal = 1000000                                          'interner Takt

Ddrd = &B11111111                                           'PD7...PD0=0: PortD-Pins auf Ausgang

Admux = &B00000000                                          'Bits7+6=00: Aref ist extern versorgt
                                                             'Bit 5 = 0 Auflösung 10 Bit                                                            
                                                            'Bits3...0=0000: Pin ADC0 wählen

Adcsra = &B11100010                                         'Bit7=1:AdcOn,Bit6=1:Start,Bit5=1:Freilaufend
                                                            'Bits2+1+0=010: AdcClock=AvrClock/4
'----------------------------------------------------------

Dim Auffang As Word
Dim Ausgabe As Word
Dim A As Byte


'________________________________________Lampentest



Portd = 1                                                   '1 auf Port B ausgeben
For A = 1 To 8                                              'Für die 8 Ausgänge
  Waitms 500                                                '0,5 Sekunden warten

  Rotate Portd , Left                                       'Bits nach links schieben


Next A




'_______________________________________Hauptprogramm



Do                                                          'Hauptschleife

    Auffang = Adcd                                          'ADCD enthält ADCH und ADCL

    Ausgabe = Auffang

   Select Case Ausgabe
    Case 0 To 5 : Portd = &B00000001                        '< 100 Ohm
    Case 5 To 49 : Portd = &B00000010                       '< 1Kilo
    Case 49 To 339 : Portd = &B00000100                     '<  10 Kilo
    Case 339 To 852 : Portd = &B00001000                    '< 100 Kilo
    Case 852 To 1003 : Portd = &B00010000                   '< 1 Mega
    Case 1003 To 1021 : Portd = &B00100000                  '< 10 Mega
    Case Is > 1022 : Portd = &B001000000                    '>10 Mega
   End Select



Loop