211
German / Re: Getriebestufenwechsel Mach3 / CSMIO IP-A
« on: December 10, 2020, 02:46:17 AM »
Servus,
habe Dein Macro ein bisschen überarbeitet und formatiert.
Dabei bin ich von folgenden Signalen ausgegangen:
Output1 -> erster Gang einlegen
Output2 -> zweiter Gang einlegen
Input1 -> erster Gang ist eingelegt
Input2 -> zweiter Gang ist eingelegt
mfg Tom
habe Dein Macro ein bisschen überarbeitet und formatiert.
Dabei bin ich von folgenden Signalen ausgegangen:
Output1 -> erster Gang einlegen
Output2 -> zweiter Gang einlegen
Input1 -> erster Gang ist eingelegt
Input2 -> zweiter Gang ist eingelegt
Code: [Select]
Sub Main()
DoSpinStop() 'TPS nur um sicherzustellen, das die Spindel wirklich aus ist
SpinS = GetRPM()
If SpinS < 200 Then
Call Gear1ON
End If
If SpinS > 201 And spin < 600 Then
Call Gear2ON
End If
End Sub
Sub Gear1ON()
' der erste Gang ist bereits drin, also nichts zu tun
If IsActive(OEMTRIG1) Then
Message "erster Gang bereits eingelegt"
Sleep(200)
Exit Sub
End If
'Ausgang zum schalten der 1ten Gang's aktivieren
ActivateSignal(OUTPUT1)
'auf den Eingang warten
While IsActive(OEMTRIG1) = False
Sleep(10)
Wend
Sleep(50)
Message "erster Gang eingelegt Spindel einschalten"
DeActivateSignal(OUTPUT1) 'Ausgang für 1. Gang ausschalten
DoSpinCW() 'this is what was in the M3 macro
End Sub
Sub Gear2ON()
' der zweite Gang ist bereits drin, also nichts zu tun
If IsActive(OEMTRIG2) Then
Message "zweiter Gang bereits eingelegt"
Sleep(200)
Exit Sub
End If
'Ausgang zum schalten der 2ten Gang's aktivieren
ActivateSignal(OUTPUT2)
'auf den Eingang warten
While IsActive(OEMTRIG2) = False
Sleep(10)
Wend
Sleep(50)
Message "zweiter Gang eingelegt Spindel einschalten"
DeActivateSignal(OUTPUT2) 'Ausgang für 1. Gang ausschalten
DoSpinCW() 'this is what was in the M3 macro
End Sub
mfg Tom