Schritte im CTC Modus

[Thomas H. (datatom)]

Hallo zusammen,

ich habe ein Bascomprogramm geschrieben, womit ich einen Schrittmotor 
drehen lasse. Der Timer läuft im CTC-Modus. Wie kann ich jetzt die 
Drehung des Schrittmotors auf einzelne Schritte begrenzen? Ich finde 
jetzt keine Stelle wo ich einen Zähler einbauen kann. Auf dem 
Schrittmotor ist ein Getriebe montiert und so wäre bei 1025 ganzen 
Schritten ein Winkel von 180° erreicht. Wie kann ich die Schritte auf 
1025 begrenzen?

Hie das Programm:

' Stepper Testprogram

$prog , 255 , &B11011001,
$regfile = "m2560def.dat"
$hwstack = 82                                               '80
$framesize = 68                                             ' 64
$swstack = 68                                               '44


$crystal = 16000000                                         'Quarzfrequenz
$baud = 19200

Config Pinb.5 = Output                                      ' Pin PB5 für Timer1/ OC1A im CTC-Modus


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

Config Pinb.7 = Output
Takt Alias Pinb.7

Dim I1 As Integer
Dim Takt_hz As Long

Echo Off

Led = 0                                                     ' LED einschalten


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

Wait 5

Stepper1_direction = 0                                      ' Stepper1_direction = off (0 Volt); Stiftleiste JP 2; Pin 4; PC1
Stepper1_enable = 0                                         ' Stepper1_enable    = off (0 Volt); Stiftleiste JP 2, Pin 5; PC2

Tccr1a = &B01000000                                         ' Pin PB5 auf OC1A umschalten. I/ O sind damit ausgeschaltet
Tccr1b = &B00001101                                         ' Bit 3 = CTC Modus; Bit 0-2 = Prescaler 1024

Compare1a = 30

  Do
  Loop

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

Vielen Dank für die Hilfe.

Grüße

datatom

[Michael (Gast)]

Thomas Holländer schrieb:
> Wie kann ich die Schritte auf 1025 begrenzen?
Indem du in einem Interrupt die Schritte mitzählst und nach den 1025 
Schritten den Timer abschaltest.

[Thomas H. (datatom)]

Danke für den Tip.

I1 = 0

On Timer1 Timer1_i
Tccr1a = &B01000000                                         ' Pin PB5 auf OC1A umschalten. I/ O sind damit ausgeschaltet
Tccr1b = &B00001101                                         ' Bit 3 = CTC Modus; Bit 0-2 = Prescaler 1024
Enable Interrupts

Compare1a = 30

  Do
      Toggle Led
      Wait 5


'''''''''' Ändern der Drehrichtung '''''''''''
      Compare1a = 0
      Waitus 150
      Stepper1_direction = 1                                ' Stiftleiste JP 2; Pin 4; PC1
      Compare1a = 30

  Loop

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

Timer1_i:

I1 = I1 + 1

If I1 = 1025 Then

   Compare1a = 0

End If

Return

So sollte es mit dem Interrupt klappen, oder? Kann jetzt den 
Mikrocontroller nicht anschließen.

[CTC (Gast)]

Auf die Schnelle:

Thomas Holländer schrieb:
> On Timer1 Timer1_i

ist der Overflow Interrupt.

Es sollte "On Compare1a Timer1_i" heißen.

[Spess53 (Gast)]

Hi

>If I1 = 1025 Then
>   Compare1a = 0
>End If

Damit schaltest du den Timer nicht ab, sondern stellst die höchst 
mögliche Frequenz ein. Zum Abschalten entweder den Prescaler auf Noll 
setzen oder den Timer vom Port trennen.

MfG Spess

[CTC (Gast)]

Achja, und ein Enable Compare1a muß auch noch rein.

[Thomas H. (datatom)]

Irgendwas klappt nicht. Der Interrupt wird nicht erreicht.

Hier noch einmal mein Programm:

 

 ' Stepper Testprogram

$prog , 255 , &B11011001,
$regfile = "m2560def.dat"
$hwstack = 82                                               '80
$framesize = 68                                             ' 64
$swstack = 68                                               '44


$crystal = 16000000                                         'Quarzfrequenz
$baud = 19200

Config Pinb.5 = Output                                      ' Pin PB5 für Timer1/ OC1A im CTC-Modus


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

Config Pinb.7 = Output
Takt Alias Pinb.7

Dim I1 As Integer
Dim I2 As Integer
Dim Takt_hz As Long

Echo Off

Led = 0                                                     ' LED einschalten


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

Wait 5

Stepper1_direction = 0                                      ' Stepper1_direction = off (0 Volt); Stiftleiste JP 2; Pin 4; PC1
Stepper1_enable = 0                                         ' Stepper1_enable    = off (0 Volt); Stiftleiste JP 2, Pin 5; PC2

I1 = 1
I2 = 50

On Compare1a Timer1_i
Tccr1a = &B01000000                                         ' Pin PB5 auf OC1A umschalten. I/ O sind damit ausgeschaltet
Tccr1b = &B00001101                                         ' Bit 3 = CTC Modus; Bit 0-2 = Prescaler 1024
Enable Compare1a

Compare1a = 30

  Do
      Toggle Led
      Waitms I2


'''''''''' Ändern der Drehrichtung '''''''''''
  '    Tccr1b = &B00001000                                   ' Timer/ Counter stopped, no clock source
  '    Waitus 150
  '    Stepper1_direction = 1
  '    Tccr1b = &B00001101                                   ' Stiftleiste JP 2; Pin 4; PC1


  Loop

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

Timer1_i:

I2 = 500

I1 = I1 + 1

If I1 = 10 Then

   Tccr1b = &B00001000                                      ' Timer/ Counter stopped, no clock source

End If

Return

Der Schrittmotor bleibt nicht stehen und das LED blinkt auch nicht 
langsamer:-(

[CTC (Gast)]

Thomas Holländer schrieb:
> Irgendwas klappt nicht. Der Interrupt wird nicht erreicht.

Jetzt fehlt wieder ein Befehl zu den den Interrupts, den es in einer 
frühren Programmversion gab.

[Thomas H. (datatom)]

Ich schätze mal das fehlt:

Enable Interrupts

Kanns heute Abend erst testen.

Aber das müsste es sein, oder?

[Nostalgie (Gast)]

Thomas Holländer schrieb:
> Aber das müsste es sein, oder?

Früher (tm) hätt' man, statt zu rätseln, den Code im Simulator laufen 
lassen und geguckt ob nach der Initialisierung die betreffende 
Interrupts freigegeben sind. Dann hätte man den Timer vielleicht mal 
kurz vorn Überlauf gesetzt, um im Singlestep zu gucken, ob der Sprung in 
die ISR erfolgt.

[CTC (Gast)]

Thomas Holländer schrieb:
> Ich schätze mal das fehlt:
> Enable Interrupts
> .
> Aber das müsste es sein, oder?

:-) Jap, das meinte ich.