lub w makro m3.m1s coś podobnego

'Zmienne
Dim SpinCW As Integer
Dim curenttime As Single

Const czasZatrzymania = 5
Const czasWbiciaBiegu = 2000

Sub Main

Sleep(1000)

'------------------------------------------------------------------------------------
'pobieranie aktualnych obrotów
SpinCW = GetRPM()
'------------------------------------------------------------------------------------

If SpinCW >261 Then ' zakres obrotow
If Not IsActive(OEMTRIG4) Then ' sprawdza stan krancowki
Call LowGear
End If

SetPulley(1)
While IsMoving
Sleep(10)
Wend
End If

If (SpinCW >97 And SpinCW <260) Then
If Not IsActive(OEMTRIG5) Then
Call HighGear
End If

SetPulley(2)
While IsMoving
Sleep(10)
Wend
End If

If SpinCW <96 Then
If Not IsActive(OEMTRIG6) Then
Call HHighGear
End If

SetPulley(3)
While IsMoving
Sleep(10)
Wend
End If

Call SpinSpindle

End Sub

'------------------------------------------------------------------------------------

Sub LowGear

DoSpinStop() 'wylancza obroty
While IsMoving
Sleep(10)
Wend

Call ZeroSpid ' przechodzi do sprawdzenia czy wrzeciono zatrzymane

Message "WłACZ 1 Bieg MAX Obroty od 261 do 800 obr/min"

curenttime = Timer
While Not (IsActive(OEMTRIG4) And IsActive(OEMTRIG7))

If Timer > czasWbiciaBiegu + curenttime Then 'odlicza czas na potwierdzenie wbicia biegu
SetSpinSpeed(0) 'zeruje zadana poprzednią predkosc wrzeciona
SetSpinSpeed(0)
DoOEMButton(1003) 'wciska stop po przekoroczeniu czasu wbicia biegu
MsgBox"ŁAZISZ JAK TO ku*** PO WSI - A BIEG KTO ZMIENI"
End
End If

Sleep(10)
Wend
End Sub

'------------------------------------------------------------------------------------

Sub HighGear

DoSpinStop()
While IsMoving
Sleep(10)
Wend

Call ZeroSpid

Message "WŁĄCZ 2 Bieg MAX Obroty od 97 do 260 obr/min"

curenttime = Timer
While Not (IsActive(OEMTRIG5) And IsActive(OEMTRIG7))

If Timer > czasWbiciaBiegu + curenttime Then
SetSpinSpeed(0)
SetSpinSpeed(0)
DoOEMButton(1003)
MsgBox"ŁAZISZ JAK TO ku*** PO WSI - A BIEG KTO ZMIENI"
End
End If

Sleep(10)
Wend
End Sub

'------------------------------------------------------------------------------------

Sub HHighGear

DoSpinStop()
While IsMoving
Sleep(10)
Wend

Call ZeroSpid

Message "WŁĄCZ 3 Bieg MAX Obroty od 10 do 96 obr/min"

curenttime = Timer
While Not (IsActive(OEMTRIG6) And IsActive(OEMTRIG7))

If Timer > czasWbiciaBiegu + curenttime Then
SetSpinSpeed(0)
SetSpinSpeed(0)
DoOEMButton(1003)
MsgBox"ŁAZISZ JAK TO ku*** PO WSI - A BIEG KTO ZMIENI"
End
End If

Sleep(10)
Wend
End Sub

'------------------------------------------------------------------------------------

Sub SpinSpindle
Sleep(100)
Message "Włanczam odbroty = " & GetRPM() & ". Obr/min NO I TERA BEDZIE BUM!!!"
SetSpinSpeed( SpinCW )
DoSpinCW()
While IsMoving
Sleep(10)
Wend
End Sub

'------------------------------------------------------------------------------------

Sub ZeroSpid ' do sprawdzenia czy wrzeciono zatrzymane
curenttime = Timer
While GetUserDro(1600) > 0 ' pobiera dane o obrotach

If Timer > czasZatrzymania + curenttime Then 'jesli przekroczy czas
DoOEMButton(1021) ' wywali reset
Sleep(150)
Message"Przekroczono czas zatrzymania wrzeciona"
End
End If

Sleep(10)
Wend
End Sub