'portD gibt noch an falscher stelle aus! $regfile = "m8def.dat " $crystal = 1000000 $baud = 2400 Ddrb = &B00111000 Portb = &B00111000 Config Portd.4 = Output Config Portd.5 = Output Config Portd.6 = Output Config Portd.7 = Output Dim A As Long Dim A1 As Long Dim Ganzevolt1 As Long Dim Ganzevolt As Long Dim Kommavolt As Long Dim X As Byte Dim Y As Long Dim Y1 As Long 'Dim Adcwert As Word Config Adc = Single , Prescaler = Auto , Reference = Avcc Const Adcwert = 1000 Do 'Adcwert = Getadc(0) A1 = Adcwert * 200 A = A1 / 1023 Ganzevolt = A / 10 Ganzevolt1 = Ganzevolt * 10 Kommavolt = A - Ganzevolt1 Select Case Ganzevolt Case Is < 10 : X = 0 Case Is >= 10 : X = 1 Case Is >= 20 : X = 2 End Select Y1 = X * 10 Y = Ganzevolt - Y1 Print X ; Y ; "," ; Kommavolt 'X = Makebcd(x) Portd = X Portb.3 = 0 Waitms 10 Portb.3 = 1 'Y = Makebcd(y) Portd = Y Portb.4 = 0 Waitms 10 Portb.4 = 1 'Kommavolt = Makebcd(kommavolt) Portd = Kommavolt Portb.5 = 0 Waitms 10 Portb.5 = 1 Loop