Schrittmotorprogrammierung mit Bascom

[Gunnar.Wild]

Hallo zusammen

ich will einen Schrittmotor mit Bascom programmieren und ihn mit dem AVR Board ansteuern. Hat jemand eine Idee bzw Beispielprogramm? Ich habe 2 Taster zur Verfügung und er sollte langsam hochlaufen und dann wieder langsamer werden. Dies soll er solange machen bis ich taste. Dann soll er stehen bleiben. Hab schon angefangen aber häng gerade bei der Zeit fest.

Schon mal schönen Dank für Eure Hilfe!

Gruß

[Martin.]

ich hab nen bipolaren Schrittmotor über L293D so angesteuert:

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1600000


Dim A As Byte

Config Pina.0 = Input
Config Pina.2 = Input

Porta.0 = 1
Porta.2 = 1

Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.3 = Output

Portc.0 = 1
Portc.1 = 1
Portc.2 = 1
Portc.3 = 1


A = 0

Do
   If Pina.0 = 0 Then
      Waitms 300
      If A < 4 Then
         A = A + 1
      Else
         A = 1
      End If
   End If

   If Pina.2 = 0 Then
      Waitms 300
      If A > 1 Then
         A = A - 1
      Else
         A = 4
      End If
   End If

   If A = 1 Then
      Gosub Macheschritt1
   End If
   If A = 2 Then
      Gosub Macheschritt2
   End If
   If A = 3 Then
      Gosub Macheschritt3
   End If
   If A = 4 Then
      Gosub Macheschritt4
   End If
Loop


Declare Sub Macheschritt1
Declare Sub Macheschritt2
Declare Sub Macheschritt3
Declare Sub Macheschritt4

Sub Macheschritt1
      Portc.0 = 0
      Portc.1 = 1
      Portc.2 = 0
      Portc.3 = 1
      Waitms 20
End Sub

Sub Macheschritt2
      Portc.0 = 0
      Portc.1 = 1
      Portc.2 = 1
      Portc.3 = 0
      Waitms 20
End Sub

Sub Macheschritt3
      Portc.0 = 1
      Portc.1 = 0
      Portc.2 = 1
      Portc.3 = 0
      Waitms 20
End Sub

Sub Macheschritt4
      Portc.0 = 1
      Portc.1 = 0
      Portc.2 = 0
      Portc.3 = 1
      Waitms 20                                             '
End Sub


End

Weis nicht ob die Verzögerungen notwenig sind. Ich glaub so könntest du auch das langsam Hochfahren lösen. Über zwei Taster hab ich ihn einen Schritt nach links bzw. rechts machen lassen.

[Gunnar.Wild]

Erst mal danke für die schnelle Hilfe.

Sieht schon sehr gut aus. Problem bei mir ist nur das die Drehzahl langsam steigert bis zu einem Endwert und danach soll er selbständig stoppen und wieder von alleine langsam hochfahren, bis ich einen Taster drücke.
Vieleicht fällt dir ja hierzu noch was ein.
Ich denk da irgendwie an einen Timerder ständig die Werte erhöht oder so. Oder eine Art Schieberegister der den Wert in kleinen Schritten erhöht.

Gruß \/

[stefan_Z]

FOR / NEXT Schleife?

[Gunnar.Wild]

for/next Schleife? wie soll ich die anwenden? Kannst du mir ein Beispiel schicken?

Gruß