Hello Guest it is March 29, 2024, 06:01:11 AM

Author Topic: E-stop VB script  (Read 13338 times)

0 Members and 1 Guest are viewing this topic.

Re: E-stop VB script
« Reply #10 on: June 06, 2006, 08:10:09 PM »
Try getLED(0) this is the reset LED :)
Fixing problems one post at a time ;)

www.newfangledsolutions.com
www.machsupport.com

Offline zealous

*
  •  489 489
  • HI!
    • View Profile
    • Artsoft Solutions
Re: E-stop VB script
« Reply #11 on: June 06, 2006, 09:19:30 PM »
Thank you to Brian Baker,Graham Waterworth and Liquidseek.com for your your help and codes. ;D

I think I got it now.

I would have been done a few hours ago but I found that my Mach 3 install is a little bit off. I'm getting a "Run loop Macro the.." with a "OK" or "Cancel" prompt that was effecting the way Mach 3 is handling the code.

Since this was giving me problems the "getLED(0) and some other codes where not working properly.

Tried the code on my machine computer and works flawlessly. Let me know if you have any problems.

Any suggestion on the Mach 3 problem I'm having, I've reinstalled but the same screen keeps popping up before Mach starts?

One more quick question can we have a wave file play when Mach starts and ends?

Thanks for your Patience and talents ;D


Here is the final code:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

 
If GetLED (0) Then

sndPlaySound "C:\WINDOWS\MEDIA\tada.wav"
End If

If GetLed (19) Then

sndPlaySound "C:\WINDOWS\MEDIA\tada.wav"
End If
   
   
or download the .M1s:
« Last Edit: June 06, 2006, 09:21:04 PM by zealouse »