hallo,

könnte mir bitte noch wer sagen wie ich das programm umschreiben kann das 206 impulse pro sekunde ankommen?

$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
Waitms 100
A = A + 1
If A = 200 Then
Toggle Richtung
A = 0
End If
Loop

End


im prinziep müsste ja nur das

Do
Toggle Tackt
Waitms 100
A = A + 1
If A = 200 Then
Toggle Richtung
A = 0
End If
Loop

geändert werden in:

Do
Toggle Tackt
Waitms ??
Loop

Danke