...soo alle befehle funktionieren wunderbar..ist ja noch in der testphase alles.
wie kann ich jetzt den befehel VORWÄRTS z.b. 3 mal wiederholen?
hab das gelsen mit der for next schleife.. probiert.. aber ghet net..
was ist falsch?bzw wie muss ich das angehen?
Code:
'Schrittmotor-Interface für die C-Control
'-----Unipolare-Ansteuerung------
'------Für AEG SO26/48------------
'Definition der Schrittmotor-Ansteuerung des Fahrwerkes
Define Motorport Byteport [1] 'Motor A und B
'Phasen und Portbelegung der Motoren A und B
Define MotA1 Port[1] 'Motor A - Phase 1
Define MotA2 Port[2] 'Motor A - Phase 2
Define MotA3 Port[3] 'Motor A - Phase 3
Define MotA4 Port[4] 'Motor A - Phase 4
Define MotB1 Port[5] 'Motor B - Phase 1
Define MotB2 Port[6] 'Motor B - Phase 2
Define MotB3 Port[7] 'Motor B - Phase 3
Define MotB4 Port[8] 'Motor B - Phase 4
'Definition der Variablen für die Schrittmotor-Ansteuerung
Define VarMF 2 'Motor Frequenze
define schritt word[1]
define SolPos word[2]
define IstPos word[3]
#Main
Bewegungen
Goto Main
#Hauptprogramm
Return
#Bewegungen 'Bewegungen der Motoren
VORWÄRTS
'RUECKWÄRTS
'VORWAERTSRECHTS
'VORWAERTSLINKS
'RUECKWÄRTSRECHTS
'RUECKWÄRTSLINKS
'TURNRECHTS
'TURNLINKS
Goto Main
'-----------------------SCHRITTMOTOR FUNKTIONEN-------------------------------------
#VORWÄRTS
schritt = schritt - 1
Looktab SchrittVor , schritt AND 3 , motorport
pause VarMF
goto Main
#RUECKWÄRTS
schritt = schritt + 1
Looktab SchrittVor , schritt AND 3 , motorport
pause VarMF
goto Main
#VORWAERTSRECHTS
schritt = schritt - 1
Looktab SchrittRECHTS , schritt AND 3 , motorport
pause VarMF
goto Main
#RUECKWÄRTSRECHTS
schritt = schritt + 1
Looktab SchrittRECHTS , schritt AND 3 , motorport
pause VarMF
goto Main
#VORWAERTSLINKS
schritt = schritt + 1
Looktab SchrittLINKS , schritt AND 3 , motorport
pause VarMF
goto Main
#RUECKWÄRTSLINKS
schritt = schritt - 1
Looktab SchrittRECHTS , schritt AND 3 , motorport
pause VarMF
goto Main
#TURNRECHTS
schritt = schritt - 1
Looktab SchrittTURNR , schritt AND 3 , motorport
pause VarMF
goto Main
#TURNLINKS
schritt = schritt + 1
Looktab SchrittTURNR , schritt AND 3 , motorport
pause VarMF
goto Main
'----------------------------------------------------------------------------
'----------------------------------------------------------------------------
'Schrittmotor-Tabelle für den Vollschritt
Table SchrittVOR 'Motor A und Motor B Vorwärts
68 136 17 34
Tabend
Table SchrittRECHTS 'Motor A Vorwärts Motor B Stop
1 2 4 8 'Stopbefehl für Motor B fehlt d.h. bitmuster ändern
Tabend
Table SchrittLINKS 'Motor A Stop Motor B Vorwärts
32 16 128 64 'Stopbefehl für Motor A fehlt d.h. bitmuster ändern
Tabend
Table SchrittTURNR 'Motor A Vorwärts Motor B Rückwärts
66 129 24 36
Tabend
'----------------------------------------------------------------------------
Lesezeichen