Und so wird über die Poti-Stellung die Zeit für Waitms ermittelt.
Zitat
Dim Analogwandler As Integer 'Variable zur Aufnahme des Wertes vom Analogwandler
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'Analogwandler definieren
'Start Adc 'AD-Wandler starten (nach Config automatisch)
Do
Analogwandler = Getadc(1) 'AD-Wandler einlesen. Werte zwischen 0 und 1023
Led_1 = 1
Led_2 = 0
Led_3 = 0
Led_4 = 0
Waitms Analogwandler
Led_1 = 0
Led_2 = 1
Led_3 = 0
Led_4 = 0
Waitms Analogwandler
Led_1 = 0
Led_2 = 0
Led_3 = 1
Led_4 = 0
Waitms Analogwandler
Led_1 = 0
Led_2 = 0
Led_3 = 0
Led_4 = 1
Waitms Analogwandler
Loop
Das ist jetzt aber der errechnete Wert für 0,5 Hz (34286) So recht weiß ich auch nicht warum es so schnell blinkt im Video, laut Berechnung war es der Wert für 2Hz. Aber selbst zu 1,5Hz war kein großer Unterschied zu sehen.
Zitat
Config Timer1 = Timer , Prescale = 64
On Timer1 Timer1_isr
Enable Timer1
Enable Interrupts
Const Timerstartwert = 34286
Timer1 = Timerstartwert
Forensoftware: Burning Board®, entwickelt von WoltLab® GmbH