Messages

3971

VB and the development of wizards / Re: Toggle axis jog control?

« on: October 04, 2012, 08:23:56 PM »

Try the MPG#2 numbers then the encoder jog #s.   I do not have a shuttle here to test with(;-(.

(;-) TP

3972

VB and the development of wizards / Re: Toggle axis jog control?

« on: October 04, 2012, 08:08:03 PM »

So it should go as the example BUT I am sure there are other ways it can be done


If GetUserDro(1999) < 5 Then
   SetUserDro(1999,GetUserDro(1999)+1)
   End If
If GetUserDro(1999) >= 5 Then
   SetUserDro(1999,1)
   End If
   
If GetUserDro(1999) = 1 Then
   Message("Selecting X axis for Jogging")
    DoOemButton(185)
   End If
If GetUserDro(1999) = 2 Then
   Message("Selecting Y axis for Jogging")
   DoOemButton(186)
   End If
If GetUserDro(1999) = 3 Then
   Message("Selecting Z axis for Jogging")
    DoOemButton(187)
   End If
If GetUserDro(1999) = 4 Then
   Message("Selecting A axis for Jogging")
    DoOemButton(188)
   End If

End

3973

VB and the development of wizards / Re: Toggle axis jog control?

« on: October 04, 2012, 08:04:45 PM »

OK I cheated and asked (;-) Scott S.

DoOemButton(185)  - 190    X - C

(;-) TP

3974

VB and the development of wizards / Re: Toggle axis jog control?

« on: October 04, 2012, 07:44:46 PM »

Nice looking pendant by the way, (;-)

If all else fails take a break and walk away from it for a while.

I will do some more snooping for ya.

(;-) TP

3975

VB and the development of wizards / Re: Toggle axis jog control?

« on: October 04, 2012, 07:42:16 PM »

For testing I would set the Axis from the device to say Y  then jog to make sure it jogs Y.   Then open the VB editor and run a line of code like

DoOemButton(188)

Then try to jog and see which axis moves. I would try all the code #'s  that involve X and jogging to find out WHICH one they used to switch the axis.

3976

VB and the development of wizards / Re: Toggle axis jog control?

« on: October 04, 2012, 07:36:42 PM »

(;-) AH no,

In that case it would be

If GetUserDro(1999) = 1 Then
   Message("Selecting X axis for Jogging")
   DoOemButton(188)

3977

General Mach Discussion / Re: Need a little macro help

« on: October 04, 2012, 06:38:54 PM »

Just another method, The GetUserDRO(2000) is a safety to get OUT of the loop if needed.  For the macro to work you need to first set the UserDro(2000) to 99 with      SetUserDro(2000,99). I have a saftey button on screen with the exit code "SetUserDro(2000,0)" that allows the loop to exit else you may stay in an endless loop.



ActivateSignal(OutPut5)               
 Do While Not IsActive(Input1) And GetUserDro(2000) = 99
 sleep (10)         
 Loop
ActivateSignal(Output6)
 End
 

Just a thought, TP

3978

VB and the development of wizards / Re: Toggle axis jog control?

« on: October 04, 2012, 06:05:19 PM »

(;-) THAT IS the $100 question as to which function they used to switch axis for the way they did it in the plugin.

We will just have to try a feww things and SEE if we get results. There are functions for MPG jogging and Encoder jogging and I think Joystick joggiing. ONE of them has to work(;-)

I would set up the editor and try each oembutton code to see IF it switches axis.

OR you could ask Art or the Coauthor of the plugin(;-)Easy way,

(;-) TP

3979

VB and the development of wizards / Re: Toggle axis jog control?

« on: October 04, 2012, 05:38:27 PM »

Dave this is a simple example of a macro that can increment through a set of fuinctions. It runs through 4 functions and then repeats from the beginning. At each press of the button it updates the Mach status bar as to the function selected.

You can add in the FUNCTION code that makes it actually run the functions

If GetUserDro(1999) < 5 Then
   SetUserDro(1999,GetUserDro(1999)+1)
   End If
If GetUserDro(1999) >= 5 Then
   SetUserDro(1999,1)
   End If
   
If GetUserDro(1999) = 1 Then
   Message("Selecting X axis for Jogging")
   '(add function code here)   
   End If
If GetUserDro(1999) = 2 Then
   Message("Selecting Y axis for Jogging")
   '(add function code here)
   End If
If GetUserDro(1999) = 3 Then
   Message("Selecting Z axis for Jogging")
   '(add function code here)
   End If
If GetUserDro(1999) = 4 Then
   Message("Selecting A axis for Jogging")
   '(add function code here)
   End If

End

(;-) TP

3980

VB and the development of wizards / Re: Toggle axis jog control?

« on: October 04, 2012, 02:59:03 PM »

Hiya Dave, When you make an axis selection (press Button) does it turn any of the axis leds on the jog flyout panel ? ANy of the MPG axis leds turn on  Trying to figure out how the pendant uses the functions.

Do you have any leds you monitor to see WHICH axis is Active for jogging?

SO IF I do a macro that toggles through the axis can it be applied to a button?

(;-) TP