Messages

71

VB and the development of wizards / Re: For Loops inside of If Statement Help Please

« on: February 13, 2010, 11:46:14 PM »

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

72

VB and the development of wizards / Re: For Loops inside of If Statement Help Please

« on: February 13, 2010, 11:10:04 AM »

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

VB and the development of wizards / Re: HELP!! I'm about to pull my hair out

« on: February 08, 2010, 08:44:35 AM »

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"