MacroPump Doesnt Run

[M250cnc]

I have it named MacroPump.1ms

I have the use macro pump box ticked on the Config General Config page

It runs correctly if i open it with the Mach VB script editor

Anyone have any ideas what's wrong ?

Phil

[zealous]

Make sure it is the same folder as your profile name:

If you load "myprofile" it will be in:
C:\Mach3\macros\myprofile\macropump.m1s

Also you have to restart Mach after checking the macropump box.

[M250cnc]

Thanks Jason

It is in the profile folder, & Mach has been restarted.

Is there any other way of checking that its working other than what it is supposed to do ?

Phil

[zealous]

Put this in the Macropump to check:

Code:

i=i+1
message "Macro Running #"&i

 it will show you in Mach’s statues line how many times the macro has ran.

[M250cnc]

Thanks Jason,

It does run.

It just doesn't like my macro, there are only 4 lines. 

If(GetLED(801)=1)Then
DOOEMBUTTON (1021)
MESSAGE " Went Into Inch Mode"
end if

No laughing.

Phil

[zealous]

You'll need to use "GetOEMLED"... but more important use "True/False":

Code:

Dim Inch_LED_boolean As Boolean
Dim Inch_LED_interger As Integer

Inch_LED_boolean = GetOEMLED(801)
Inch_LED_interger = GetOEMLED(801)

MsgBox "boolan "&Inch_LED_boolean
MsgBox "Number "&Inch_LED_interger

'Number way
If(Inch_LED_interger = -1)Then
MsgBox "Number lookup"
End If

'Boolean way
If(Inch_LED_boolean = True)Then
MsgBox "boolean lookup"
End If

'Boolean way with out  ==
If(Inch_LED_boolean)Then
End If

'Boolean way with out  ==
If Not(Inch_LED_boolean)Then
End If

[M250cnc]

Jason,

Thanks i got the macropump to work, but now it resets itself and just leaves my message i want it to stay in reset mode.

Obviously VB scripting is not an area where i excel, do i need an else somehow 

Phil

[zealous]

Great,

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

Code:

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:

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"

[M250cnc]

Hi Jason,

Thanks for your patience in helping this dummy.

I want the message to stay i just want the event once its happened to leave the machine disabled until i reset the machine.

Is that possible.?

Phil

[zealous]

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