Welcome, Guest. Please login or register.
Did you miss your activation email?
July 24, 2014, 07:19:09 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 »
311  Mach Discussion / Finished Screens / Re: Strange Things with Mach on: June 24, 2007, 02:32:47 PM
wow that is cool! Great advice.
312  Mach Discussion / Screen designer tips and tutorials / Modify Mach on: June 23, 2007, 05:21:27 AM
Great way to modify Mach using either Sothink or Flash you can put together complex screens.
Video is 30mins: http://alphagraphicdesigns.com/Help.htm
313  Mach Discussion / Works in progress / Re: My Simple Screen for Touch on: June 16, 2007, 12:09:12 AM
Greg,
Great screen, simple and to the point. I really like the idea of icons and vibrant colors.
This will work well on small touch screens.
Look forward to seeing the .set file
314  Mach Discussion / Mach Screens / Re: Two State Buttons? on: June 10, 2007, 11:04:56 PM
Greg,

I dont think that there is any otherway to get the "Feedhold" call from Mach till Art reactivates those.
Hopfully in the next update those LED's will be active again.
315  Mach Discussion / Mach Screens / Re: Two State Buttons? on: June 10, 2007, 09:06:04 PM
Greg,

Mach needs an image there for the button to work correctly.

If you notice in "Simple screen" that the LED intermittently works, that is because I had no image for the buttons.

The work around is to load a transparent image.

You can create your own or use the one provide below.
Just drop that in you bitmap folder and load it for your invisible buttons that are over the "LED buttons".

Mach needs something for a place holder for them to work, that is why you have to use a"clear" image over the LED.

Also check that the button is ontop of the LED in Screen 4  Grin
316  Mach Discussion / General Mach Discussion / Re: G4 comand? time delay how to use? on: June 04, 2007, 02:46:59 PM
Wes,
Thanks for the explanation,
"cleans the bottom of a blind hole" I can see how that can be very important.
317  Mach Discussion / General Mach Discussion / Re: G4 comand? time delay how to use? on: June 04, 2007, 02:08:54 PM
Wes,
Cool thanks,
Just wondering what would be the usages to dwell in milliseconds?
What kind of operations use such fine tuning? Just wondering?

318  Mach Discussion / General Mach Discussion / Re: G4 comand? time delay how to use? on: June 04, 2007, 01:53:49 PM
G04 P1000       <------ Wait one second
319  Mach Discussion / General Mach Discussion / Re: G4 comand? time delay how to use? on: June 04, 2007, 01:47:33 PM
Sorry I was thinking dwell  Grin
320  Mach Discussion / Mach Screens / Re: DoButton syntax on: June 04, 2007, 01:31:07 PM
Check the Wiki is has the total list you just grab the OEM number, but here is a list that I have aready, sorry about all the code inbetween, I'm to lazy to remove i and just have the button code  Grin but if you look at the list you'll see the name of the function and the DOOEMButton(*********)
Remeber there is two ways of doing buttons DoOEMButton or DOButton so if the number you found in the wikki isn't working than try the other sntax to call on a button.

I'd do your robot with a Flash screen, there is alot more you can do...let me know if you need any help.

http://www.artsoftcontrols.com/MachCustomizeWiki/index.php?title=Main_Page



Decleare Audio(has to be along side each code) Example:

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

sndPlaySound "Bitmaps\Machwave\MaleVoice\LoadGCode.wav", &H1

DoOEMButton (216)

--------------------------Start of Code-------------------------------------------------------


-----------------------------------------------------------------------------Estop:

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


    sndPlaySound "C:\WINDOWS\Media\Machwave\ResetSwitch.wav", &H1
   
    DoButton (21)
     

-------------------------------------------------------------------------OFFLINE ON LINE:

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(178)
sndPlaySound "C:\WINDOWS\Media\Machwave\Online.wav", &H1

Else
Call SetVar(1, 1)
DoOEMButton(178)
sndPlaySound "C:\WINDOWS\Media\Machwave\Offline.wav", &H1
End If

------------------------------------------------------------------------REFER HOME

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
DoButton( 24 )
    sndPlaySound "C:\WINDOWS\Media\Machwave\Homing.wav", &H1
DoButton( 23 )
    sndPlaySound "C:\WINDOWS\Media\Machwave\Homing.wav", &H1
DoButton( 22 )
    sndPlaySound "C:\WINDOWS\Media\Machwave\Homing.wav", &H1
DoButton( 25 )


-------------------------------------------------------------------------LOAD GCODE

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)

---------------------------------------------------------------------------------Close GCODE

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


    sndPlaySound "C:\WINDOWS\Media\Machwave\CloseGCode", &H1
   
    DoOEMButton (169)


-----------------------------------------------------------------------------------Edit GCODE

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


    sndPlaySound "C:\WINDOWS\Media\Machwave\EditGcode.wav", &H1
   
    DoOEMButton (115)


--------------------------------------------------------------------------------START PROGRAM

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


    sndPlaySound "C:\WINDOWS\Media\Machwave\Play.wav", &H1
   
    DoButton (0)

--------------------------------------------------------------------------------STOP PROGRAM

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


    sndPlaySound "C:\WINDOWS\Media\Machwave\Stop.wav", &H1
   
    DoButton (3)

---------------------------------------------------------------------------------REWIND

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


    sndPlaySound "C:\WINDOWS\MEDIA\Machwave\Rew.wav", &H1

DoButton (2)

--------------------------------------------------------------------------------HOLD PROGRAM

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


    sndPlaySound "C:\WINDOWS\MEDIA\Machwave\Hold.wav", &H1
DoButton (1) 


------------------------------------------------------------------------------REGEN

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
'SetButtonText " Job "
SetParam "Boundry" , 0
 sndPlaySound "C:\WINDOWS\Media\Machwave\JobDisplay.wav", &H1
 Else
SetParam "Boundry" , 1
'SetButtonText "Machine"
sndPlaySound "C:\WINDOWS\Media\Machwave\TableDisplay", &H1
End If
   

-----------------------------------------------------------------------------------CHANGE PAGE

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


    sndPlaySound "C:\WINDOWS\Media\Machwave\ClicksoundScreen 2.wav", &H1
DoOEMButton (1)

----------------------------------------------------------------------------------ZERO ALL AXIS

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


    sndPlaySound "C:\WINDOWS\Media\Machwave\ZeroAllAxis.wav", &H1
   
DoButton (Cool
DoButton (9)
DoButton (10)


-------------------------------------------------------------------MACHINE/SOFTWEAR POSITIONING

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(256)
sndPlaySound "C:\WINDOWS\Media\Machwave\MachineCoordinetsOn.wav", &H1

Else
Call SetVar(1, 1)
DoOEMButton(256)
sndPlaySound "C:\WINDOWS\Media\Machwave\MachineCoordinetsOff.wav", &H1
End If


------------------------------------------------------------------------------JOG MODE

DoOEMButton (245)


-----------------------------------------------------------------LAUCH PROGRA< (ONSCREEN KEYBOARD)

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


    sndPlaySound "C:\WINDOWS\Media\Machwave\LaunchKeyboard.wav", &H1
   
Dim stAppName As String

    Dim filePath As String

 

    stAppName = "C:\Program Files\Click-N-Type\Click-N-Type.exe"

    Call Shell(stAppName,1)

---------------------------------------------------------------------------------JOG ON/OFF

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\Machwave\JogModeOff.wav", &H1

Else
Call SetVar(1, 1)
DoOEMButton(103)
sndPlaySound "C:\WINDOWS\Media\Machwave\JogModeOn.wav", &H1
End If


----------------------------------------------------------------------------------INCREASE FEED

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


    sndPlaySound "C:\WINDOWS\Media\Machwave\FeedMore.wav", &H1
DoOEMButton (108)

------------------------------------------------------------------------------------DECREASE FEED

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


    sndPlaySound "C:\WINDOWS\Media\Machwave\FeedLess.wav", &H1
DoOEMButton (109)
 

-------------------------------------------------------------------------------------SOFTLIMITS

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(119)
sndPlaySound "C:\WINDOWS\Media\Machwave\SoftwearLimitsOff.wav", &H1

Else
Call SetVar(1, 1)
DoOEMButton(119)
sndPlaySound "C:\WINDOWS\Media\Machwave\SoftwearLimitsOn.wav", &H1
End If


------------------------------------------------------------------------------RAPID ACTIVE/DEACTIVE

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(287)
sndPlaySound "C:\WINDOWS\Media\Machwave\RapidActive.wav", &H1

Else
Call SetVar(1, 1)
DoOEMButton(287)
sndPlaySound "C:\WINDOWS\Media\Machwave\RapidDeactivated.wav", &H1
End If


------------------------------------------------------------------------------AUTO LIMIT OVERRIDE

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(149)
sndPlaySound "C:\WINDOWS\Media\Machwave\AutoLimitOverRide.wav", &H1

Else
Call SetVar(1, 1)
DoOEMButton(149)
sndPlaySound "C:\WINDOWS\Media\Machwave\AutoLimitOverRideOff.wav", &H1
End If
   

---------------------------------------------------------------------------------TOOLCHANGER ON/OFF

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(168)
sndPlaySound "C:\WINDOWS\Media\Machwave\ToolChangedeActive.wav", &H1

Else
Call SetVar(1, 1)
DoOEMButton(168)
sndPlaySound "C:\WINDOWS\Media\Machwave\ToolChangeActive.wav", &H1
End If
     
--------------------------------------------------------------------------------MANUAL OVERRIDE

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(150)
sndPlaySound "C:\WINDOWS\Media\Machwave\ManualOverRide.wav", &H1

Else
Call SetVar(1, 1)
DoOEMButton(150)
sndPlaySound "C:\WINDOWS\Media\Machwave\ManualOverRideOff.wav", &H1
End If


-Check out http://AlphagraphicDesigns.com
for more Graphics and screens
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.19 | SMF © 2013, Simple Machines Valid XHTML 1.0! Valid CSS!