Musst den entsprechenden Kanal für den ADC einstellen und dann den ADC-Wert für 4Volt herausfinden.Code:Config Adc = Single , Prescaler = Auto Start Adc Dim W As Word W = Getadc(<ADC an dem spannung rein kommt (1,2,3,4,5,6,7,8...>) If W > xxx Gosub 2 End If Loop End
jon
Lesezeichen