Welcome, Guest. Please login or register.
Did you miss your activation email?
May 28, 2012, 01:55:26 PM

Login with username, password and session length
Search:     Advanced search
* Home Help Search Calendar Links Login Register
+  Machsupport Forum
|-+  Mach Discussion
| |-+  VB and the development of wizards
| | |-+  E-stop VB script
Pages: « 1 2   Go Down
Print
Author Topic: E-stop VB script  (Read 3039 times)
0 Members and 2 Guests are viewing this topic.
Brian Barker
Administrator
*
Offline Offline

Posts: 3,383



View Profile
« Reply #10 on: June 06, 2006, 07:10:09 PM »

Try getLED(0) this is the reset LED Smiley
Logged

Fixing problems one post at a time Wink

www.newfangledsolutions.com
www.machsupport.com
zealous
Active Member

Offline Offline

Posts: 486



View Profile WWW
« Reply #11 on: June 06, 2006, 08:19:30 PM »

Thank you to Brian Baker,Graham Waterworth and Liquidseek.com for your your help and codes. Grin

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 Grin


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:

* Estop wave code.zip (0.54 KB - downloaded 129 times.)
« Last Edit: June 06, 2006, 08:21:04 PM by zealouse » Logged

Regards, Jason Blake

www.Fusioncnc.com
Pages: « 1 2   Go Up
Print
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.16 | SMF © 2011, Simple Machines Valid XHTML 1.0! Valid CSS!