$regfile = "m8def.dat" $crystal = 1000000 $baud = 9600 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.1 , Db6 = Portb.0 , Db7 = Portd.7 , E = Portd.6 , Rs = Portd.5 Config Lcd = 16 * 2 Waitms 100 Cursor Off Config Portd = Output Config Portb = Output Config Portc.4 = Output Led1 Alias Portc.4 Config Portc.5 = Output Led2 Alias Portc.5 Config Timer1 = Timer , Prescale = 8 Enable Timer1 On Timer1 Isr_von_timer1 Enable Interrupts Timer1 = 55000 Config Adc = Single , Prescaler = Auto Start Adc Dim Ad0 As Word Dim Ad1 As Word Dim Ad2 As Word Dim St0 As Single Dim St1 As Single Dim St2 As Single Dim Vref As Single Dim Sp0 As Single Dim Spa0 As String * 10 Dim Sp1 As Single Dim Spa As Single Dim Spa1 As String * 10 Dim Spa2 As String * 10 Dim Min0 As Single Min0 = 10 Dim Min1 As Single Min1 = 10 Dim Minimum0 As String * 10 Dim Minimum1 As String * 10 Do St0 = 3.2116 'spannungsteiler faktor St1 = 3.212 'spannungsteiler faktor St2 = 3.2216 Vref = 3.28 / 1024 Ad0 = Getadc(0) Sp0 = Ad0 * Vref Sp0 = Sp0 * St0 Spa0 = Fusing(sp0 , "#.##") Ad1 = Getadc(1) Sp1 = Ad1 * Vref Sp1 = Sp1 * St1 Spa1 = Fusing(sp1 , "#.##") Ad2 = Getadc(3) Spa = Ad2 * Vref Spa = Spa * St2 Spa2 = Fusing(spa , "#.##") If Sp0 > 1 Then Locate 1 , 1 Lcd "1: V" Locate 1 , 3 Lcd Spa0 Else Locate 1 , 1 Lcd "1:KAA" End If If Sp1 > 1 Then Locate 1 , 9 Lcd "2: V" Locate 1 , 11 Lcd Spa1 Else Locate 1 , Lcd "2:KAA" End If Locate 2 , 1 Lcd "Ausgang: V" Locate 2 , 10 Lcd Spa2 Waitms 500 Cls Loop End Isr_von_timer1: Timer1 = 55000 'Toggle Led1 'Toggle Led2 If Sp0 < 4 Then Toggle Led1 Else Led1 = 0 End If If Sp1 < 4 Then Toggle Led2 Else Led2 = 0 end if Return