How do I use VB to turn a LED on & off on the screen?

[Darc]

I would like to run a small program, that will also turn on an LED
e.g
CODE "TURN LED ON HERE"
CODE "G90 G55 G21"
CODE "G00 Y100."
CODE "G01 Y110. F100"
CODE "G00 Y300."
CODE "M30"
CODE "TURN LED OFF HERE"

What's the best way to achieve this?

[CNC-Steuerung]

Hi Darc,

first you should define a M-Macro like M100 for Led on and M101 for LED off.
Then can use the whole VB-Script language for your Macros..

M100:

SetUserLED (nnnn, 1)   ' Led on

M101:

SetUserLED (nnnn, 0)    ' Led off


or you can use both in one macro:


M100:

If GetUserLED (nnnn) then       ' UserLED on?
     SetUserLED (nnnn,0)          ' then turn it off
else
     SetUserLED (nnnn, 1)         ' ..or turn it on...
end if


Thats will toggle the status of your LED....

Copy this macro into your folder matching your profile.


Best regards,


Wolfram

[Darc]

Thanks Wolfram, on my screen set I have 15 buttons and an LED for each button/program, how do I set each LED to run for one individual program only?
Does that mean I need to have 15 different M codes?
Also do I just save each M code as follows: M100.m1s,  M101.m1s, M102.m1s, M103.m1s, M104.m1s, etc etc?
Sorry one more thing, with this code you wrote.

SetUserLED (nnnn, 1)   ' Led on
(How do I link this to a particular LED?)

Also on another topic, I've searched the forums and looked in Mach3 but I can't seem to work out how to get a DRO and a button that runs a program to interact.
I think I'm close, I want to have a DRO that you can put a measurement into and when you press a button it will use this measurement in the program, this is what I have.
Create a DRO, I assigned it to DIAMETER OF CURRENT TOOL (which I think is OEM code 105), should I select DIAMETER OF CURRENT TOOL from the drop down or should I enter the OEM code 105?

Create a button and assign VB code to it as follows:

Material = GetOEMDRO (105)
CODE "#1=Material"     ;In theory if 20 is entered into the DRO, Material should =20
CODE "G90 G55 G21 
CODE "G00 Y[#1*2]    ;Rapid to Y40
CODE "G01 Y#1 F100  ;Linear travel to Y20
CODE "G00 Y[#1*2]    ;Rapid back to Y40
CODE "M30"

What am I doing wrong?

[poppabear]

Not sure what you are wanting, but, you could make yourself a Wizard that would post your code for you, by intering your info and moves into DROs.

[cncstep]

Thanks was useful