Schrittmotor für Nachführung zur Astrofotografie

[dussel07]

Wenn man nur mit Wait und ohne Timer arbeitet bekommt man den Wert nur ansatzweise.
1000000/206 = 4854,3689µs
1000000/4854 = 206,0157 Impulse pro Sekunde
Keine Ahnung ob die Genauigkeit reicht??
Besser und eleganter wäre sicher eine Lösung mit einem Timer! Da hat es ein geniales Tool zur Timerberechnung im Downloadbereich - mir fällt leider der Name nicht ein?? (vieleicht ja einem Anderen??)

$regfile = "m8def.dat"
$crystal = 1000000 'ohne verändern der Fusebits $crystal = 1000000


'Ausgang Richtung an PD3
Richtung Alias Portd.3
Config Richtung = Output

'Ausgang Geschwindigkeit an PD4
Tackt Alias Portd.4
Config Tackt = Output

'TASTER1 an PD0
Taster1 Alias Pind.0
Config Taster1 = Input
Portd.0 = 1 'PullUp-Widerstand einschalten

'TASTER2 an PD1
Taster2 Alias Pind.1
Config Taster2 = Input
Portd.1 = 1 'PullUp-Widerstand einschalten

Dim A As Byte


Do
Toggle Tackt
Waitus 4854
Loop

End