Welcome, Guest. Please login or register.
Did you miss your activation email?
December 04, 2016, 09:15:05 AM

Login with username, password and session length
Search:     Advanced search
* Home Help Search Calendar Links Login Register
  Show Posts
Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 »
431  Mach Discussion / General Mach Discussion / Re: Design & Machining Software on: June 09, 2006, 10:59:15 PM
Here are some very good programs made by very talented people.
James Booth is one of my favorites. Grin Macho talented!!!


I would highly recommend using Rhino!!!!!!!!!!!!!! This program now offers CAD and CAM very good price and program Grin

Rhino
http://www.rhino3d.com/index.htm

V-Carve

http://www.vectorart3d.com/VCarve/

Free 2d/3d CAM and other stuff

http://www.vectorart3d.com/

Models
http://www.carve3d.com/


432  Mach Discussion / General Mach Discussion / Re: Which version of Mach3 should I buy? on: June 09, 2006, 10:43:42 PM
MJR,

Here is the newest version of Mach 3:

Mach3 Release 1.84.001  (Release Lockdown)  http://www.artofcnc.ca/DownLoads.htm 

When you pay for the license you can use any software on the download page you want. You can have Mach 2 and Mach 3 and run both if you'd like. This company lets you have your cake and eat it to Grin
433  Mach Discussion / General Mach Discussion / Re: RunLoop Macro Error on: June 08, 2006, 10:45:37 PM
Art,

Thank you for taking time to responding Grin
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 Huh


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 If





This 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
434  Mach Discussion / VB and the development of wizards / Re: Two state button on: June 08, 2006, 10:13:10 PM
Thank you Mr.Baker that works great Grin

While reading the PDF I had come across "GetVar" .
I thought I might be able to  declare a value and give it an on/off statement.
Your codes sweet!!! and a little sexy Cheesy
I'm putting together some pretty cool sound sets for Mach. I'll post them when there ready.

435  Mach Discussion / VB and the development of wizards / Two state button on: June 08, 2006, 04:48:49 AM
Try to figure out how to call on two states of a button to call on two diffrent wave files.

I got creative and used some of the Display button code, it works but also effects the state of the display screen.
Was wondering how a programer would do this Huh Tried a few diffrent ways to go about it, but I'm still learning coding.
I tried changing "Boundry" but the code skips over and only plays one of the sound waves for each button state.

Here is the code if you have any idea.

value = GetParam("Boundry")

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

 If value= 1 Then
 SetParam "Boundry" , 0
 DoOEMButton(103)
 sndPlaySound "C:\WINDOWS\MEDIA\ding.wav", &H1
 
 Else
 SetParam "Boundry" , 1
 DoOEMButton(103)
 sndPlaySound "C:\WINDOWS\MEDIA\tada.wav", &H1
 End If
436  Mach Discussion / General Mach Discussion / RunLoop Macro Error on: June 07, 2006, 02:24:24 PM

I'm getting a pop up screen while Mach3 starts asking for a "OK" "Cancel" screen with Runloop Macro thre...
I've installed and reinstalled Mach 3 many times and still get this message.

 At first it didn't bother anything till I started to use Macro's and writing some VB script's. Some of my scripts will not respond on the computer with this error, my other computer does not have the error and work no problem.

I have Mach3 only installed on my D: drive(not C:)

Any ideas. Thanks
437  Mach Discussion / VB and the development of wizards / Re: E-stop VB script 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:
438  Mach Discussion / VB and the development of wizards / Re: E-stop VB script on: June 06, 2006, 06:49:14 PM
Getting closer,

This code will work with the "physical Estop" but is not working with the Mach3 E-stop.
So when I engage my physical E-stop I get a sound responce, when I unengaged the sound stops like it should behave, but if the Mach 3 E-stop is still blinking or if I hit the softwear e-stop it will not give a sound responce.

What I think is I'm reaching the OEM code for the physical E-stop but not the virtual one. Huh

Here is the code:

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


'Public Declare Function GetOEMLED (ledOEMCode As Integer) As Boolean
 
If GetOEMLed (19) Then

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

'Else GetOEMLed (67) = 0
'sndPlaySound "C:\WINDOWS\MEDIA\tada.wav", &H1
'End If       
 

439  Mach Discussion / VB and the development of wizards / Re: E-stop VB script on: June 06, 2006, 03:17:32 PM
Okay now I'm getting some where,
I can use the Macropump.m1s
with:

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
sndPlaySound "C:\WINDOWS\MEDIA\ding.wav", &H1

but I'm getting a compiler error when I add:

If(GetLED(0))Then

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
sndPlaySound "C:\WINDOWS\MEDIA\ding.wav", &H1
end if


Is the (getLED(0)) declared by Mach3 or do I need to declare it?

I haven't seen the video, I'd like to Grin
440  Mach Discussion / VB and the development of wizards / Re: E-stop VB script on: June 06, 2006, 01:56:00 PM
Does Mach load all macro's on start up? or how do I load a macro?

Would the Macro listen for the getLed(0) and play a wave file? so all the code would be place in the .M1s?
 or can I place VB code on LED's/Dro's?

Thanks for the help Mr.Barker
Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 »
Powered by MySQL Powered by PHP Powered by SMF 1.1.20 | SMF © 2013, Simple Machines Valid XHTML 1.0! Valid CSS!