Das mit dem Taktgeber wäre eine Alternative. Ich bin im Moment allerdings im Hotel und kann von hier aus nichts bestellen
Ich habe das Programm geändert: PWM habe ich jetzt ausgebaut und anstelle einen Timer definiert.
Allerdings dreht sich nix. Ich habe alle möglichen Kabelpositionen mit den Kabelpaaren ausprobiert.
Folgende Pins habe ich an den Controller angeschlossen:
Dir
Step
Enable
VMOT
GND
2B
2A
1A
1B
VDD
GND
Hier noch einmal das geänderte Programm:
Code:
' Stepper Testprogram
$prog , 255 , &B11011001,
$regfile = "m2560def.dat"
$hwstack = 82 '80
$framesize = 68 ' 64
$swstack = 68 '44
$crystal = 16000000 'Quarzfrequenz
$baud = 19200
Config Pind.5 = Output
Led Alias Portd.5
Config Pinc.0 = Output ' Stiftleiste JP 2; Pin 3; PC0
Stepper1_reset Alias Portc.0
Config Pinc.1 = Output ' Stiftleiste JP 2; Pin 4; PC1
Stepper1_rotational_direction Alias Portc.1
Config Pinc.2 = Output ' Stiftleiste JP 2, Pin 5; PC2
Stepper1_enable Alias Pinc.2
Dim Stepper1_speed As Integer
Dim I1 As Integer
Echo Off
Led = 0 ' LED einschalten
Stepper1_enable = 1 ' Stepper1 off
I1 = 0
Do
Toggle Led
Waitms 75
I1 = I1 + 1
Loop Until I1 = 20
Wait 5
Stepper1_rotational_direction = 1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Do
Toggle Led
Waitms 200
Stepper1_enable = 0 ' Stepper1 on
Config Timer0 = Timer , Prescale = 256 ' Stiftleiste JP 1; Pin 26
Timer0 = 131
Loop
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End
Ist das Programm so in Ordnung?
Vielen Dank.
Lesezeichen