Machsupport Forum

Mach Discussion => VB and the development of wizards => Topic started by: bigk on June 03, 2016, 05:00:07 AM

Title: Change Workoffset.
Post by: bigk on June 03, 2016, 05:00:07 AM
Hi is it pauseble to check for input2 only when the program is finish with input1.

it should be when input1 is active work offset 10 should be used and after program stop if input2 is active work offset 11 should be used and start program and so on.

If isActive (OEMtrig1) Then
   message "Start Program"
   DoOEMButton(1002) 'Reset Gkode
   Sleep(100)
   If IsActive(Input1) Then
   message "OFFSET 10"
   SetOEMDRO(46,10)
   'Code"G59 P10"
   Sleep(100)
   DoOEMButton(1000) 'Start program
   While IsMoving()
   Wend
   End If
   Sleep(100)
   If IsActive(Input2) Then
   message "OFFSET 11"
   SetOEMDRO(46,11)
   'Code"G59 P11"
   Sleep(100)
   DoOEMButton(1000) 'Start program
   While IsMoving()
   Wend
   End If
   Sleep(100)
   If IsActive(Input3) Then
   message "OFFSET 12"
   SetOEMDRO(46,12)
   'Code"G59 P12"
   Sleep(100)
   DoOEMButton(1000) 'Start program
   While IsMoving()
   Wend
   End If
   Sleep(100)
   If IsActive(Input4) Then
   message "OFFSET 13"
   SetOEMDRO(46,13)
   'Code"G59 P13"
   Sleep(100)
   DoOEMButton(1000) 'Start program
   While IsMoving()
   Wend
   End If
   message ""
End If