1801
VB and the development of wizards / Re: VB / LUA evaluation- no license key
« on: April 05, 2018, 08:03:16 AM »
Mach3 will run VB in demo.
post your code, and we will see.
post your code, and we will see.
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.
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)