Art,
Thank you for taking time to responding
If any thing rings a bell, great!!! otherwise I'll figure it out.
-When I have unchecked "RunMacro Pump" I do not get the error.
-I have Adobe, Macromedia, Microsoft Office, MYSQL... loaded on my computer that might be trying to attach to the Macro?
-No " Macropump" code will responed,
but when loading it to my other computer everthing works fine.
-My Dwell LED will be lite after opening Mach 3 on both computers,
but I know it's not active and will go to its off state after going and coming back to another page.
-If I try to add code to the E-Stop it will not work or acts strangle
If you have any time here are the 3 simple codes I'm using to call on wave files:
This is on the Macropump:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Estop
If GetLED (0) Then
sndPlaySound "C:\WINDOWS\Media\Machwave\Emergencystop.wav"
End If
'Dwell
If GetOEMLED (813) Then
sndPlaySound "C:\WINDOWS\Media\Machwave\DewllingMode.wav"
End If
'Toolchange
If GetOEMLED (806) Then
sndPlaySound "C:\WINDOWS\Media\Machwave\ToolChangeActive.wav"
End If
'X +imit 828
If GetOEMLED (829) Then
sndPlaySound "C:\WINDOWS\Media\Machwave\XLimit.wav"
End If
'Y-Limit 831
If GetOEMLED (832) Then
sndPlaySound "C:\WINDOWS\Media\Machwave\YLimit.wav"
End If
'Z-Limit 835
If GetOEMLED (834) Then
sndPlaySound "C:\WINDOWS\Media\Machwave\ZLimit.wav"
End IfThis is the code for sigle button wave state:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
sndPlaySound "C:\WINDOWS\Media\Machwave\LoadGCode", &H1
DoOEMButton (216)This is on the two state button:
value = GetVar(1)
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
If value= 1 Then
Call SetVar(1, 0)
DoOEMButton(103)
sndPlaySound "C:\WINDOWS\MEDIA\ding.wav", &H1
Else
Call SetVar(1, 1)
DoOEMButton(103)
sndPlaySound "C:\WINDOWS\MEDIA\tada.wav", &H1
End If