Messages

151

Flash Screens / Re: New Member, wannabe Flash Developer

« on: January 20, 2009, 07:54:21 AM »

Good,
I wanted to finish up "*Remote connection" on the components and I am very close to finish it...but I felt it would be best to make them avalible while I finish it up.
*Remote allows multiple "Floating" windows of mach open at once...meaning you could have every button,LED and DRO floating around your desktop on multiple monitors if you wanted.

Here is the beta let me know how it works...the final release will have hundreds of graphics to choose from and also create or import your own.

Here is the download and info:
http://www.machsupport.com/forum/index.php/topic,10291.new.html#new

152

Flash Screens / Mach Components AGD

« on: January 20, 2009, 07:49:03 AM »

Here is the beta release of the Mach Compontnets 1.0

Please post back feed back here or send me an email: support@alphagraphicdesigns.com

If you use them please help support future development by buying Pack2 from Alphagraphicdesigns.com.

Once they are available for purchase there will be a number of enhancements and additions.

**The beta version can only be used for hobbies and cannot be resold or distributed and are intended for evaluation purposes.

Video on how they work:

The video is here:
http://alphagraphicdesigns.com/help/Quantum/MachComponents1.0.1.wmv

Components (FLA):
http://alphagraphicdesigns.com/Download/MachCompontnes_beta_1.0.zip

Please also check out a fully developed screen from Mach Motion (components in action ):
http://alphagraphicdesigns.com/machmotion/test/MM_demo.html

153

General Mach Discussion / Re: Please Wait...Generating Path

« on: January 18, 2009, 07:00:38 PM »

I didn’t see you mention anything about "RUN FROM HERE" in your post but it was brought up.
To possibly help out I can tell you two way I am able to recreate your issue:

- You cannot "Regen" a toolpath after issuing a "Run From Here" till after the machine moves in to position (know issue).

- Always put "If (Isloading() = false Then" in your macros or Mach will read them while loading a file or a "RUN from Here".
There is now an option in the "Gen config" to ignore Mcodes while loading..but it best to have this in you Macros or any VB to make sure

154

VB and the development of wizards / Re: Mach Script Interpreter Bugs

« on: January 15, 2009, 05:22:05 PM »

I agree, it has been taken out!

Request it back in on the Yahoo forum as well.
I prefer using PRINT in certain situations when access is need to Mach.

Otherwise you have to use the MSGBOX and yes this doesn’t allow you access to Mach will this dialog its up, that is why in certain situations I do not like using it.

155

Works in progress / Re: Greek Concept on mach3 user interface!

« on: January 14, 2009, 07:12:36 AM »

Hi,
Send me the PSD file (with layers) and I will make it a working screen in Mach even with gauges
Flash will import the PSD file...actually anything Adobe makes can now be transferred between all of their programs.

There is nothing you can't do using Mach and Flash 

156

VB and the development of wizards / Re: can any one chech this code

« on: January 02, 2009, 03:19:55 PM »

It looks like Math.atan2 is not supported in VB6

So that will not work! Maybe some one else has a better way to do it.

157

VB and the development of wizards / Re: can any one chech this code

« on: January 02, 2009, 02:28:13 PM »

Funny I just got done writing code for this but in Flash

http://alphagraphicdesigns.com/HQ_Updates/examples/2point_Rotation.html

Try this in VB:

Code: [Select]

Private Const PI As Double = 3.14159265358979

pt1_X = 50
pt1_Y = 0

pt2_X = 0
pt2_Y = -50

dy = pt2_y - pt1_y
dx = pt2_x - pt1_x

MsgBox "X:" & dx & " Y:" & dy

Degree = (Atn(dy,dx)) * 180/PI

MsgBox Degree

158

VB and the development of wizards / Re: My first Script - 6 Axis Teach fine tune help

« on: January 02, 2009, 01:01:42 AM »

I don’t believe there is a way, you'll have to use the VB Input Box.

Good job with the code!

159

General Mach Discussion / Re: Mach XML Reader

« on: December 19, 2008, 08:54:28 PM »

Hey BEnny,

Yeah the XML's are the profile for Mach, they can be found most of the time in: C:\Mach3\MachMill.xml.

You can rename them and have different setups for your machine, maybe one for Lathe and another for MIll.

They also hold the location of the screen you've loaded as well they hold all of the stored setting and changes made.

Yes in this XML reader you can edit values and save them that is the big reason that I developed it...also it takes my quad core computer a good minute to open a XML in Note pad to make changes and then it looks like a mess.

Actually I had no idea on how many different setting there are in Mach, since they are organized  in this XML reader it is easy to find and see all Mach's available functions.

Try to drag one of your XML's into the reader you'll be amazed at all these hidden function Mach has

160

General Mach Discussion / Re: Booting streight into Mach

« on: December 02, 2008, 12:29:57 AM »

Thanks for the nice comments anything for my fellow CNC friends!

Here is the code...this will do what you want.

You can turn on/off the "taskbar" and "Desktop icons", if you turn off the "Desktop Icons" it will disable the "right click on desktop" as well.
The only other thing I can think of is to "disable short cut keys". You could disable short cut keys and leave 1 combo open so you have acess to regain control.

You can run this code on" boot up" as a "VBS" or/and in Mach on a button or/and from a Macro even, just change the: ShowTask = True and ShowIcons= True:

Code: [Select]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private Const GW_CHILD = 5
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Dim lngHandle As Long
Dim lngStartButton As Long
lngHandle = FindWindow("Shell_TrayWnd", "") 
Dim hWnd_DesktopIcons As Long
hWnd_DesktopIcons = GetWindow( FindWindow("Progman", "Program Manager"), GW_CHILD)
lngHandle = FindWindow("Shell_TrayWnd", "")
   
   
'////Show Taskbar////////
   ShowTask = True
'////Show/hide Icons////
   ShowIcons= True
   
    If  ShowTask Then
        ShowWindow lngHandle, 5
    Else
        ShowWindow lngHandle, 0
    End If
       
    If ShowIcons Then
        ShowWindow hWnd_DesktopIcons, SW_SHOW
    Else
        ShowWindow hWnd_DesktopIcons, SW_HIDE
    End If
Jason Blake