571
VB and the development of wizards / Re: Anyone building wizards for others?
« on: January 15, 2020, 02:06:10 AM »
just install a Screen Editor like machscreen and open an existing wizard and see how it is done.
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.
If (toolnew = 1)then
Code "G0 G53 X105" 'move X-axis
While ismoving()
Sleep 100
Wend
Code "G0 G53 Y"&toolpos1 'move Y-axis
While ismoving()
Sleep 100
Wend
Code "G0 G53 Z105" 'move Z-axis
While ismoving()
Sleep 100
Wend
End If
DoButton( 24 )
While IsMoving
Wend
code"(Z Axis is Referenced)"
code"G4 P.1"
DoButton( 22 )
While IsMoving
Wend
code"(X Axis is Referenced)"
code"G4 P.1"
RefCombination ( 10 )
While IsMoving
Wend
code"(Y Axis is Referenced)"
code"G4 P.1"
While IsMoving
Wend
If(GetOEMLED(23)=false) Then 'This will turn on the softlimits on
DoOEMButton(119)
End If
While IsMoving
Wend
code"(All Axis are Referenced)"
While IsMoving
Wend
code"G4 P.1"
While IsMoving
Wend
Code"(Moving to Home Position)"
Code"G28"
While IsMoving
Wend
DoButton(7)
While IsMoving
Wend
Code"G4 P.1"
While IsMoving
Wend
Code"(X and Y axis are Homed and Zeroed)"