Schrittmoter anhalten

**datatom** · 22.05.2012, 11:21

Hallo zusammen,

ich habe den Schrittmotortreiber A4983 http://www.shop.robotikhardware.de/s...roducts_id=237 und den Schrittmotor http://www.sparkfun.com/datasheets/R...2BYG011-25.pdf .

Den Schrittmotor steuere ich mit einem Bascomprogramm.

Allerdings habe ich zwei Probleme:

1. Sobald ich die ganze angeschlossene Elektronik einschalte dreht der Schrittmotor los, obwohl ich den Timer1 gar nicht eingeschaltet habe.

2. Obwohl ich den Timer1 auf 0 setze dreht der Schrittmotor weiter.

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_direction Alias Portc.1

Config Pinc.2 = Output                                      ' Stiftleiste JP 2, Pin 5; PC2
Stepper1_enable Alias Pinc.2

Config Pinc.3 = Output                                      ' Stiftleiste JP 2, Pin 6; PC3
Stepper1_step Alias Pinc.3

Dim I1 As Integer
Dim Sekunden As Integer
Dim Timer1_wert As Long

Echo Off

Led = 0                                                     ' LED einschalten

Stepper1_enable = 1                                         ' Stepper1 off

Timer1_wert = 0

I1 = 0

Sekunden = 0

Do
   Toggle Led
   Waitms 75
   I1 = I1 + 1
Loop Until I1 = 20

Wait 5

Stepper1_direction = 1
Stepper1_enable = 0                                         ' Stepper1 on

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Config Timer1 = Timer , Prescale = 64                       ' Stiftleiste JP 1; Pin 26
Enable Timer1
On Timer1 Timer_irq
Enable Interrupts

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

  Do
      Toggle Led
      Waitms 200

      Sekunden = Sekunden + 200

      If Sekunden = 5000 Then
         Timer1_wert = 64286
         Wait 5
         Sekunden = 0
         Timer1_wert = 0
      End If

  Loop


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End

Timer_irq:
Timer1 = Timer1_wert
Stepper1_step = 0 : Waitus 1 : Stepper1_step = 1
Return