$regfile = "m8def.dat" $crystal = 4000000 'PortB als Aüsgänge Config Portb.0 = Output 'LED1 Config Portb.1 = Output 'LED2 Config Portb.2 = Output 'LED3 Config Portb.3 = Output 'LED4 Config Portb.4 = Output 'LED5 'PinC als Eingang Config Pinc.0 = Input '25K Poti Portb.0 = 1 Portb.1 = 1 Portb.2 = 1 Portb.3 = 1 Portb.4 = 1 Dim W As Word Dim Volt As Single Const Ref = 5 / 1024 Config Adc = Single , Prescaler = Auto Start Adc Do W = Getadc(0) Volt = W * Ref If Volt > 1 Then Portb.0 = 0 If Volt > 2 Then Portb.1 = 0 If Volt > 3 Then Portb.2 = 0 If Volt > 4 Then Portb.3 = 0 If Volt > 5 Then Portb.4 = 0 loop