Hello Guest it is March 28, 2024, 07:59:53 PM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - zealous

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
Finished Screens / Re: Strange Things with Mach
« on: June 24, 2007, 03:32:47 PM »
wow that is cool! Great advice.

312
Screen designer tips and tutorials / Modify Mach
« on: June 23, 2007, 06: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
Works in progress / Re: My Simple Screen for Touch
« on: June 16, 2007, 01: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 Screens / Re: Two State Buttons?
« on: June 11, 2007, 12:04:56 AM »
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 Screens / Re: Two State Buttons?
« on: June 10, 2007, 10: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  ;D

316
General Mach Discussion / Re: G4 comand? time delay how to use?
« on: June 04, 2007, 03: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
General Mach Discussion / Re: G4 comand? time delay how to use?
« on: June 04, 2007, 03: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
General Mach Discussion / Re: G4 comand? time delay how to use?
« on: June 04, 2007, 02:53:49 PM »
G04 P1000       <------ Wait one second

319
General Mach Discussion / Re: G4 comand? time delay how to use?
« on: June 04, 2007, 02:47:33 PM »
Sorry I was thinking dwell  ;D

320
Mach Screens / Re: DoButton syntax
« on: June 04, 2007, 02: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  ;D 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 (8)
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 »