Machsupport Forum

Mach Discussion => VB and the development of wizards => Topic started by: HillBilly on January 08, 2007, 01:06:42 PM

Title: OEM Trigger
Post by: HillBilly on January 08, 2007, 01:06:42 PM

What is the call for OEM Triggers?
I tried Get OEMTrigger (4) with no luck.

Darek

Title: Re: OEM Trigger
Post by: HillBilly on January 08, 2007, 02:55:31 PM

This is what I am trying to do,
Darek

If GetOEMTrigger (6) = 0 Then
   If GetOEMTrigger (7) = 0 Then
      DoOEMButton (191)   'Select Jog Incr 1
EndIf
'
If GetOEMTrigger (6) Then
   If GetOEMTrigger (7) = 0 Then
      DoOEMButton (192)   'Select Jog Incr 2
EndIf
'
If GetOEMTrigger (6) = 0 Then
   If GetOEMTrigger (7) Then
      DoOEMButton (193)   'Select Jog Incr 3
EndIf
'
If GetOEMTrigger (6) Then
   If GetOEMTrigger (7) Then
      DoOEMButton (194)   'Select Jog Incr 4
EndIf

Title: Re: OEM Trigger
Post by: Graham Waterworth on January 08, 2007, 04:50:14 PM

I think the triggers start at number 29

So you maybe have to look at 35 and 36 to get the ones you want.

Graham.

Title: Re: OEM Trigger
Post by: HillBilly on January 09, 2007, 06:52:16 AM

Your right! This is what I ended up with.

Darek

If Not IsActive (34) Then If Not IsActive (35) Then               'Check OEM Triggers 6 & 7
      DoOEMButton (191)                                      'Select Jog Incr 1
End If
'
If IsActive (34) Then If Not IsActive (35) Then                     'Check OEM Triggers 6 & 7
      DoOEMButton (192)                                      'Select Jog Incr 2
End If
'
If Not IsActive (34) Then If IsActive (35) Then                     'Check OEM Triggers 6 & 7 
      DoOEMButton (193)                                      'Select Jog Incr 3
End If
'
If IsActive (34) Then If IsActive (35) Then                           'Check OEM Triggers 6 & 7 
      DoOEMButton (194)                                      'Select Jog Incr 4
End If