Hi,
Danke für die Hilfe! Nun gehts...
Leider geht, das Programm selbst immer noch nicht wie ich wollte... es hat jetzt zwar nichts mit dem Getadc zu tun, aber ich poste es dochmal hier:
Mein Ziel wäre es nun, dass sobald die Spannung am ADC1 unter 8 Volt sinkt, eine LED am Porta.0 leuchtet...Code:$regfile = "m32def.dat" $crystal = 16000000 Config Porta.0 = Output Config Adc = Single , Prescaler = Auto , Refernce = Internal Start Adc Declare Sub _betriebsspannung(). Const Ref = 5 / 1023 Dim Volt As Single Dim Betriebsspannung as Single Main: Do Call _betriebsspannung() Porta.0 = 0 While Volt < 8 Porta.0 = 1 waitms 500 Wend Loop End Sub _betriebsspannung Local W as Word W = Getadc(1) Betriebsspannung = W * Ref Betriebsspannung = Betriebsspannung * 5.2941 Volt = Betriebsspannung End Sub
Muss ich da Hardware mässig noch was machen, damit die Spannung erkennen werden kann?
Liebe Grüsse!
Lesezeichen