Machsupport Forum

Mach Discussion => VB and the development of wizards => Topic started by: zeeschuim on April 30, 2020, 10:15:07 AM

Title: infrared screen
Post by: zeeschuim on April 30, 2020, 10:15:07 AM

I want to make a makro for a infrared screen.
Only while running a G-code and there is an input from the infrared screen .
The machine will go in reset or stop state.
Where do I have to start?

Title: Re: infrared screen
Post by: zeeschuim on May 02, 2020, 05:31:11 AM

I have now this:
   Sub Main
   
      If  GetOEMLED(1000) Then ' is run
      
         
      
      If IsActive(INPUT1)And (GetLed(116) = true) Then
 
      DoOemButton(1004)      ' 1004 DoOemButton stop
      End If
      
      End If
      
   End Sub 


It is not working, any idea?

Title: Re: infrared screen
Post by: TPS on May 03, 2020, 04:05:26 AM

try this

Code: [Select]

   Sub Main()
      If  GetOEMLED(804) Then ' is run
        If IsActive(INPUT1)And (GetLed(116) = true) Then
          DoOemButton(1004)      ' 1004 DoOemButton stop
        End If
      End If     
   End Sub