681
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
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
M133 P2500
RPM = Param1()