-         

Ergebnis 1 bis 2 von 2

Thema: Schrittmoter anhalten

  1. #1
    Erfahrener Benutzer Fleißiges Mitglied
    Registriert seit
    22.09.2009
    Beiträge
    164

    Schrittmoter anhalten

    Anzeige

    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
    Es wäre nett, wenn mir jemand bei meinen beiden Problemen einen Tipp geben könnte.

    Vielen Dank im Voraus.

    Grüße

    datatom

  2. #2
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    01.10.2009
    Beiträge
    437
    1) Der läuft ab dem Config Timer1
    2) Stop Timer1

Ähnliche Themen

  1. Antworten: 6
    Letzter Beitrag: 28.11.2011, 17:01
  2. LED-Würfel mit taster anhalten
    Von pelikano im Forum C - Programmierung (GCC u.a.)
    Antworten: 0
    Letzter Beitrag: 01.06.2008, 11:44
  3. schrittmoter analog ansteuern
    Von schwimmer im Forum Allgemeines zum Thema Roboter / Modellbau
    Antworten: 1
    Letzter Beitrag: 04.01.2008, 11:09
  4. Bewegung anhalten
    Von Stratege993 im Forum Robby RP6
    Antworten: 16
    Letzter Beitrag: 26.12.2007, 13:08

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •