Alex20q90
24.12.2005, 12:28
Hallo,
Frohe Weihnachten erstmal!
ich bekomms nicht gebacken :
$regfile = "2313def.dat" 'AT90S2313
$crystal = 2000000 'Quarz 8MHz
Ddrb.0 = 1
Motor1v Alias Portb.0
Enable Interrupts
Dim I As Integer
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up
'Config Pind.5 = Output
'to set the PWM registers, just assign a value to the compare A and B registers
Compare1a = 128
'Compare1b = 200
Reset Motor1v
I = 0
Do
'Or for better reading :
Pwm1a = I
'Pwm1b = 200
Incr I
Waitms 100
Loop
End
Ich hab schon einiges versucht den Motor den Speed zu regeln, aber er dreht immer gleich schnell.
Habe als Anschaltung das Beispiel im RN-Wissen.Archiv genommen.
Beide enabled an PD.5 (PWM)
Motor 1 A = PB.0
Motor 1 B = PB.1
Motor 2 A = PB.2
Motor 2 B = PB.3
Der Incr I hab ich mal eingebuat um zu schaun ob die Drehzahlregelung läuft ! Aber der Motor dreht immer gleich schnell :(
Wo hab ich den Fehler
Frohe Weihnachten erstmal!
ich bekomms nicht gebacken :
$regfile = "2313def.dat" 'AT90S2313
$crystal = 2000000 'Quarz 8MHz
Ddrb.0 = 1
Motor1v Alias Portb.0
Enable Interrupts
Dim I As Integer
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up
'Config Pind.5 = Output
'to set the PWM registers, just assign a value to the compare A and B registers
Compare1a = 128
'Compare1b = 200
Reset Motor1v
I = 0
Do
'Or for better reading :
Pwm1a = I
'Pwm1b = 200
Incr I
Waitms 100
Loop
End
Ich hab schon einiges versucht den Motor den Speed zu regeln, aber er dreht immer gleich schnell.
Habe als Anschaltung das Beispiel im RN-Wissen.Archiv genommen.
Beide enabled an PD.5 (PWM)
Motor 1 A = PB.0
Motor 1 B = PB.1
Motor 2 A = PB.2
Motor 2 B = PB.3
Der Incr I hab ich mal eingebuat um zu schaun ob die Drehzahlregelung läuft ! Aber der Motor dreht immer gleich schnell :(
Wo hab ich den Fehler