Hello Guest it is March 28, 2024, 04:30:29 PM

Author Topic: macropump & LCD  (Read 7546 times)

0 Members and 1 Guest are viewing this topic.

macropump & LCD
« on: December 17, 2010, 11:45:04 AM »
Hello all,

I'm using the macropump script to display information on my LCD screen on my pendant.

Does anyone know if it's possible to make the axis letter blink when it's selected?

The line of code below show the Z axis userlabel. If I could either make the letter blink or just appear when selected it would be great!

SetUserLabel (103,"Z" & Format (GetDro(2), "+000.0000;-000.0000"))

Am I trying to ask the impossible, any thoughts?  ???

regards

Gary

Offline poppabear

*
  • *
  •  2,235 2,235
  • Briceville, TN, USA
    • View Profile
Re: macropump & LCD
« Reply #1 on: December 17, 2010, 07:17:42 PM »
hmmm try this:
'macropump.m1s

BlinkControl = GetUserDRO(1700) 'every 5 counts (1/2 seconds) it shows or hides the "Z"

if BlinkControl >= 0 and BlinkControl < 5 then
SetUserLabel (103,"Z" & Format (GetDro(2), "+000.0000;-000.0000"))
BlinkControl = BlinkControl + 1
SetUserDRO(1700, BlinkControl)
end if

if BlinkControl >= 5 and BlinkControl < 10 then
SetUserLabel (103," " & Format (GetDro(2), "+000.0000;-000.0000"))
'NOTE the "Z" has been replaced with a space character " "
BlinkControl = BlinkControl + 1
SetUserDRO(1700, BlinkControl)
end if

if BlinkControl > 9 then
SetUserDRO(1700, 0)
end if

'scott
fun times
Re: macropump & LCD
« Reply #2 on: December 21, 2010, 06:09:19 PM »
Thanks Scott, that's given me something to work with! :)

One other thing you might be able to give me some advise on if you would'nt mind?

I would like to be able to display what jog mode I'm in via my LCD, as already have what Axis and Jog increments are active on screen.

"If GetOEMLED(117) = 1 then" will get me Velocity active and I then get stuck on how to display the text "Velocity" on the LCD.

What other code would be needed to display diferent text depending what Jog mode I'm in?

I hope this makes sense! ???

Regards

Gary

Offline poppabear

*
  • *
  •  2,235 2,235
  • Briceville, TN, USA
    • View Profile
Re: macropump & LCD
« Reply #3 on: December 22, 2010, 10:06:04 AM »
Look at Peter Holmanns modio pendant, he shows how he talks to his LCD via macro pump........

scott
fun times
Re: macropump & LCD
« Reply #4 on: December 22, 2010, 07:16:32 PM »
Many thanks for pointing me in the right direction Scott, I'm up and running! ;D
Re: macropump & LCD
« Reply #5 on: March 08, 2011, 07:05:30 AM »
How can i get some another dat  to lcd 4x20 like that

X position;     X,Y,Z or A  for JOG
Y position;      X1, X10, X100   Multiplier
Z  position;     XX.000 SPINDLE SPEED
A  position;     ESTOP/OK


Or

X  position; Y  position;  (in one line)
Z  position; A  position;  (in one line)

Can you give me an exsample of VB code to do that?

Thank you.
regards,
Milan
Re: macropump & LCD
« Reply #6 on: April 03, 2011, 06:48:00 AM »
G'day Milan

Has any helped you out with VB code.?

Cheers

wayneb
Re: macropump & LCD
« Reply #7 on: April 06, 2011, 05:34:31 PM »
Thanks for asking, but no, not yet. :'(
Re: macropump & LCD
« Reply #8 on: April 15, 2011, 04:40:44 PM »
hmmm try this:
'macropump.m1s

BlinkControl = GetUserDRO(1700) 'every 5 counts (1/2 seconds) it shows or hides the "Z"

if BlinkControl >= 0 and BlinkControl < 5 then
SetUserLabel (103,"Z" & Format (GetDro(2), "+000.0000;-000.0000"))
BlinkControl = BlinkControl + 1
SetUserDRO(1700, BlinkControl)
end if

if BlinkControl >= 5 and BlinkControl < 10 then
SetUserLabel (103," " & Format (GetDro(2), "+000.0000;-000.0000"))
'NOTE the "Z" has been replaced with a space character " "
BlinkControl = BlinkControl + 1
SetUserDRO(1700, BlinkControl)
end if

if BlinkControl > 9 then
SetUserDRO(1700, 0)
end if

'scott

Pretty clever Scott, having the macropump frequency do the timing. I like it!

Tony