1811
VB and the development of wizards / Re: ATC Geneva wheel for mill
« on: April 05, 2018, 05:52:18 AM »
no you should put this part of code into
main menu -> Operator -> VB Script Editor window
an test the code wirh the green >|| button,
without running any M6 T someting in MDI
it is only a prticular test of this part of code
main menu -> Operator -> VB Script Editor window
an test the code wirh the green >|| button,
without running any M6 T someting in MDI
Code: [Select]
Function CW()'Rotation CW
Dim x As Integer
Dim CTPos As Integer 'Carrousel Tool Position Relative to OldTool Position
CTPos=0
CWPos = 2
ActivateSignal(OUTPUT9)'Turns the AC Motor On cw
Sleep(50)
For x=0 To CWPos
While IsActive(INPUT4)'Wait for INPUT4 is off
Sleep(10)
Wend
While Not IsActive(INPUT4)'Wait for INPUT4 is on
Sleep(10)
Wend
Next x
CTPos=x
DeactivateSignal(OUTPUT9)
it is only a prticular test of this part of code