Anfängerprojekt Schrittmotor steuern

**i_make_it** · 05.10.2016, 16:50

Hm, Z-Achse fräst auch gerne mal in den Tisch rein (Erfahrung aus der Lehre).

Als erstes mal einstellbare Stop Nocken und entsprechende Schalter als Öffner.
(zusätzlich zu den Endschaltern in den Endlagen die die Spindel etc. schützen sollen)

Eventuell geht analog zum Hebel an einerer Fräse mit mechanischem Vorschub ein Digitaler Joystik oder ein Tastschalter (ON OFF ON)
Wobei ich nicht weis ob es sowas heute noch gibt.
Das waren Schalter die aus beiden Stellungen zurück in Mittelstellung gefallen sind.
Damit läuft der Vorschub solange man hält.
Oder einfach ein Schalter (ON OFF ON) der fährt dann bis ein Endschalter ausgelöst wird oder er von Hand in Mittelstellung gebracht wird.
Das Poti ist dann für die Geschwindigkeitsvorgabe.
Und die beiden Schaltkontakte für die Richtung und Enable.

**p@ty** · 05.10.2016, 20:28

Danke für dein Infos,

da ich es aber alles erst einmal auf dem Tisch aufbauen möchte vernachlässige ich die End- und Referenzschalter fürs erste.
Auch damit ich und andere den Code - das Ansteuern des Schrittis mit Bascom verstehen und es nicht schon von Anfang an zu überladen wird.

Bin grade dabei mich wieder mit Bascom an zu freunden... Aber lange ist es her...
Hier das Material...

Klicke auf die Grafik für eine größere Ansicht

Name: DSC_0252.jpg
Hits: 34
Größe: 52,1 KB
ID: 32076

Klicke auf die Grafik für eine größere Ansicht

Name: DSC_0253.jpg
Hits: 25
Größe: 56,5 KB
ID: 32077

- - - Aktualisiert - - -

So,
erst mal alles angeschlossen. Sollte klappen.

Klicke auf die Grafik für eine größere Ansicht

Name: DSC_0254.jpg
Hits: 23
Größe: 64,1 KB
ID: 32078

Hier mal ein Code den ich im Netz gefunden habe und ausprobieren wollte da kurz und "Übersichtlich". (Gibt´s aber noch ne Menge Fragezeichen

)

Läuft leider nicht - war ja klar!

Code:

$regfile = "M168def.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 9600



'Programmkonfiguration

                                                             ' r16 laden
!STS MCUCSR, R16                                            ' Zweimal wiederholen
!STS MCUCSR, R16

Config Portc = Output

Dim Anzahl_s As Long                                        'Schritte (zähler)

                                                             'Minus an GND oder frei lassen (läuft ohne.. )
Puls Alias Portc.0                                          'Pul
Richtung Alias Portc.1                                      'Dir
Freigabe Alias Portc.2
Freigabe = 0
                                                             'Ena (es gibt noch die Möglichkeit, die Leistung über PWM zu steuern)


'Programmkonfiguration
Do
                                                            'Schleife oder mit Timer
Puls = 1                                                    'Signal erzeugen

Gosub Schritte                                              'Zählen

Waitus 400                                                  'Impulsbreite

Puls = 0
Waitus 100                                                  'Abstand zwischen Impulsen
Loop
Schritte:

If Anzahl_s > 400 Then
If Richtung = 1 Then
Gosub Links                                                 'Richtung wechseln
Else
Gosub Rechts
End If
Waitms 1
End If

Anzahl_s = Anzahl_s + 1                                     'Schritte addieren
Return

Rechts:                                                     ' Rechts drehen
Richtung = 1                                                'Richtung auf 1 oder 0
Anzahl_s = 0                                                ' Schritte Reset
Waitms 100                                                  'Haltepause/Bremszeit Motor braucht mindestens 5-30 ms
Return

Links:                                                      'Links drehen
Richtung = 0                                                'Richtung auf 1 oder 0
Anzahl_s = 0                                                'Schritte/Bremszeit Reset
Waitms 100
Return

End
'Ende des Programms

**i_make_it** · 06.10.2016, 07:07

Ich habe zwar noch nie Bascom programmiert, aber ich würde im ersten Schritt mal folgenden Code testen.

Code:

$regfile = "M168def.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 9600



'Programmkonfiguration

                                                             ' r16 laden
!STS MCUCSR, R16                                            ' Zweimal wiederholen
!STS MCUCSR, R16

Config Portc = Output

Dim Anzahl_s As Long                                        'Schritte (zähler)

                                                             'Minus an GND oder frei lassen (läuft ohne.. )
Puls Alias Portc.0                                          'Pul
Richtung Alias Portc.1                                      'Dir
Freigabe Alias Portc.2
Freigabe = 0
                                                             'Ena (es gibt noch die Möglichkeit, die Leistung über PWM zu steuern)


'Programmkonfiguration
Do
                                                            'Schleife oder mit Timer
  Puls = 1                                                    'Signal erzeugen

  Waitus 400                                                  'Impulsbreite
  Puls = 0
  Waitus 100                                                  'Abstand zwischen Impulsen
Loop

End

Eventuell die Zeiten größer machen und mit einer LED ansehen ob da ein entsprechendes Rechtecksignal an Portc.0 raus kommt. Ansonsten per Osziloskop prüfen.

Im zweiten Schritt dann:

Code:

$regfile = "M168def.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 9600



'Programmkonfiguration

                                                             ' r16 laden
!STS MCUCSR, R16                                            ' Zweimal wiederholen
!STS MCUCSR, R16

Config Portc = Output

Dim Anzahl_s As Long                                        'Schritte (zähler)

                                                             'Minus an GND oder frei lassen (läuft ohne.. )
Puls Alias Portc.0                                          'Pul
Richtung Alias Portc.1                                      'Dir
Freigabe Alias Portc.2
Freigabe = 0
                                                             'Ena (es gibt noch die Möglichkeit, die Leistung über PWM zu steuern)


'Programmkonfiguration
Do
                                                            'Schleife oder mit Timer
  Puls = 1                                                    'Signal erzeugen
  Gosub Schritte                                              'Zählen
  Waitus 400                                                  'Impulsbreite
  Puls = 0
  Waitus 100                                                  'Abstand zwischen Impulsen
Loop

Schritte:
  If Anzahl_s > 400 Then
    
    Anzahl_s = 0
    Waitms 100
  End If
  Anzahl_s = Anzahl_s + 1                                     'Schritte addieren
Return

End

Natürlich mit der korrekten Fassung der DO LOOP Schleife die aus dem ersten Schritt entstehen müsste.
Hier sollte ja nach 400 Pulsen eine Pause entstehen und dann wieder 400 Pulse kommen.
Wenn das klappt. Kann man DIRection und Enable hinzunehmen.
Kommen die Signale alle aus dem Controller, kann man den Motortreiber anschließen.
Dazu dann aber mal bei verschiedenen CNC Threads reinschauen, mit diesem Typ Motortreiber gabs glaube ich schon öfters Probleme. Da kann etwas Nacharbeit erforderlich sein.

**p@ty** · 06.10.2016, 09:15

Hey i_make_it,

danke für dein geprogge - werde ich heute Nachmittag ausprobieren. Morgen hab ich frei da kann
ich schön den ganzen Tag zum testen investieren!

Ein Osziloskop habe ich leider nicht - die Led muss reichen.
Danke für die Tips und deine Unterstützung!

Viele Grüße,
p@

**p@ty** · 06.10.2016, 20:40

Noch ne kleine Frage...

Müssen der Treiber und der Atmega eigentlich gleiches Potenzial / Spannungsversorgung haben?

Hab alles zusammen gerödelt aber der Motor Summt nur leise vor ich hin...

Hab Enable, Direction, und Puls in Bascom erzeugt.
Enable steht auf 0 aber ob ich 0 oder 1 setzte interessiert den Treiber nicht...Motor Summt weiter.

Direction steht auf 0 = Linkslauf / 1 = Rechtslauf

S1 ist ein Taster um den Puls ein / aus zu schalten.

Kontrol- Led für Puls Blinkt bei Tasterdruck lustig alle 50ms. Liegt hier der Fehler?

Zum Testen mal diesen ganz einfachen...

Code:

$regfile = "M168def.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 9600



'Programmkonfiguration

Config Portb.4 = Output
Config Portc.1 = Output
Config Portb.1 = Output

Config Pinc.0 = Input
Config Pind.4 = Input


Puls Alias Portb.1 'Pul
Puls = 0

Richtung Alias Portc.1 'Dir
Richtung = 0

Freigabe Alias Portb.4 'Ena
Freigabe = 0

S1 Alias Pind.4
S1 = 1

'Hauptprogramm

Do

If S1 = 0 Then

Waitms 40
Puls = 0
Waitms 10
Puls = 1

Else

Puls = 0

End If

Loop

End

Vielen Dank für eure Unterstützung!
p@

**i_make_it** · 06.10.2016, 22:02

Eine gemeinsame Masse braucht es schon.
Wenn der GND vom Atmega z.B. 2V niedriger liegt wie der GND vom Motortreiber, wird dieser bei 5V niemals ein High Signal bekommen, da das ja mehr wie 3,7V braucht.