Hello Guest it is April 16, 2024, 12:51:14 AM

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

71
BTW: I just noticed the "_" to resolve the Compile Error syntax error...but haven't looked at if what code you have will work  ;D So go with whatever Dave has for you :)

72
Acualy your code is fine... you have a
Code: [Select]
_"FLAME OUT WARNING which means you are putting it on the next line ;)
Take out the
Code: [Select]
_ and it will be right.

73
General Mach Discussion / Re: reverse run
« on: February 13, 2010, 11:00:00 AM »
After the Feed hold issue a Stop command and it should work fine

74
Could you also try to use
Code: [Select]
Sleep(250) rather then
Code: [Select]
Code  "G4 P0.25" 'Pause for Dro to update.

75
General Mach Discussion / Re: m30 question
« on: February 04, 2010, 09:33:52 AM »
You would need to use: M1030.m1s to detect a M30 call.  ;)

76
General Mach Discussion / Re: Interfacing Mach3 with my App
« on: January 23, 2010, 03:25:58 AM »
Code: [Select]
DoOEMButton(706)

77
VB and the development of wizards / Re: MacroPump Doesnt Run
« on: January 17, 2010, 09:47:43 PM »
Great to hear!
I wasn't sure that was what you wanted, but you can make changes and maybe have it force it back to MM mode or something :)

78
VB and the development of wizards / Re: MacroPump Doesnt Run
« on: January 17, 2010, 05:34:59 PM »
I give the user 2 seconds to change it to MM after the estop is hit or it estops the sytem again.

Code: [Select]
Dim Inch_mode As Boolean
Dim Estopped As Boolean

Estopped = GetOEMLED(800)
Inch_mode = GetOEMLED(801)

If(Inch_mode)Then

'Is the sytem estopped already
If Not(Estopped)Then
'Estop system
DoOEMButton(1021)

End If

While(GetOEMLED(800))
MESSAGE "Went Into Inch Mode:"&i
sleep(250)
Wend

'Give the user time to change to mm?
Sleep(2000)

End If

79
VB and the development of wizards / Re: MacroPump Doesnt Run
« on: January 17, 2010, 01:50:06 PM »
Hi Phil,

Let me get a better idea of sequence of events.

If the machine goes into Inch mode, no matter what it is doing Estop(reset) the system, send a message about being in Inch mode and wait for a "reset" before removing the message?
Are you using the VB popup message display or the Mach label message display?
Jason

80
VB and the development of wizards / Re: MacroPump Doesnt Run
« on: January 16, 2010, 05:47:17 PM »
Great,

You can put a sleep in there to clear the message.

Code: [Select]
Dim Inch_LED_boolean As Boolean
Inch_LED_boolean = GetOEMLED(801)
If(Inch_LED_boolean = True)Then
MESSAGE " Went Into Inch Mode"
Sleep(2000)'2 seconds
MESSAGE ""
End If


...you might want to use a userlabel or ticker as well as well.

In Screen4 you'll want to drop a Userlabel or ticker:

Code: [Select]
SetUserLabel 12, "You must enter a whole number of holes"
SetTicker 205, "This is a very long error message because you seem to have done something very silly"