Hello Guest it is December 22, 2024, 01:22:56 AM

Author Topic: Msgbox function...  (Read 14329 times)

0 Members and 1 Guest are viewing this topic.

Offline Davek0974

*
  •  2,606 2,606
Re: Msgbox function...
« Reply #30 on: January 29, 2016, 04:27:37 PM »
I thought you had used a #var that was linked to a  DRO ?

I thought i did?
In a previous thread i was told the DRO was 1045/15045 and in my IHS i use #15045 and it reads the DRO correctly but setvar(1045) or stellar(15045) does not update the DRO??

Little confused ;)

Offline BR549

*
  •  6,965 6,965
Re: Msgbox function...
« Reply #31 on: January 29, 2016, 04:36:21 PM »
I think you mixed up teh Dro and teh Var #

#15045  = Dro 1045

You did a setvar(1045) it should have been setvar(15045, *********x)


OK HOLD on you cannot set a Var# that high from a SetVar() call. You have do do it like this. It is a Mach3 QUIRK/Bug/Defect

Code" #15045 = .095"       

OR

Code" #15045 = " & ".095"
« Last Edit: January 29, 2016, 04:42:22 PM by BR549 »

Offline Davek0974

*
  •  2,606 2,606
Re: Msgbox function...
« Reply #32 on: January 29, 2016, 04:52:39 PM »
Ok, that seems happier, DRO is updating now :)

M6Start is now....

Dim Msg, Style, Title

Style = 0 + 64 + 0
Title = "Torch Consumables Change"

SetCurrentTool(GetSelectedTool())

If GetCurrentTool = 1 Then
   SetVar(1045,GetToolParam(1,2))
   Code" #15045 = " & GetToolParam(1,2)
   Msg = GetToolDesc(1) & "  Offset = " & GetToolParam(1,2) & "mm"
   MsgBox Msg, Style, Title
End If 

If GetCurrentTool = 2 Then
   SetVar(1045,GetToolParam(2,2))
   Code" #15045 = " & GetToolParam(2,2)
   Msg = GetToolDesc(2) & "  Offset = " & GetToolParam(2,2) & "mm"
   MsgBox Msg, Style, Title
End If

Hopefully that will all work as required :)

Plus I gained TWO new buttons - 30A and 45A torch settings :) :)

I might adjust the code a little to position the gantry at the front of the table etc so i can reach the torch, will see how it works on the real machine.

Once again thanks for the excellent help.

Offline BR549

*
  •  6,965 6,965
Re: Msgbox function...
« Reply #33 on: January 29, 2016, 04:56:53 PM »
EEEEK more buttons and there is that MsgBox sneaking back in   >:D

You are doing a very good job (;-) TP

Offline Davek0974

*
  •  2,606 2,606
Re: Msgbox function...
« Reply #34 on: January 29, 2016, 05:05:24 PM »
Ha, thanks, would have taken me many weeks on my own ;)

The msgbox is perfect as it needs me to acknowledge its message, plus the message text box on my screen is stupidly small and almost unreadable.

I could make it bigger but i'm low on screen real-estate 'cos of all the buttons ;)

It is very small on this screenset though.

Once I've sussed out sheet cam and tool change codes the buttons might even disappear.

Offline BR549

*
  •  6,965 6,965
Re: Msgbox function...
« Reply #35 on: January 29, 2016, 06:48:53 PM »
I cleaned out a LOT of screen gizmos for teh working plasma screen. That gave me room for the important things like a BIG message bar for teh OPs.

(;-) TP

Offline Davek0974

*
  •  2,606 2,606
Re: Msgbox function...
« Reply #36 on: January 30, 2016, 04:13:24 AM »
Yeah, it needs doing, I need to sort out the background image though as its all fancy-dancy boxes, tints and words which means you cant shift stuff around easily in MachScreen. The text is all pixellated too so looks poop really, I prefer labels that I can shift around etc. Maybe ditch the image altogether and just go with a plain colour. I've attached the background for illustration - the message bar is tiny ;)

You will be glad to know I have only got one button now which toggles between tool1 - 45A nozzle and tool2 - 30A nozzle, there are no other combinations so no problem there.

I will try it all out today on the live machine and see how it plays.
« Last Edit: January 30, 2016, 04:17:58 AM by Davek0974 »

Offline Davek0974

*
  •  2,606 2,606
Re: Msgbox function...
« Reply #37 on: January 30, 2016, 09:43:54 AM »
Ok I tested it out today and I have to say I'm impressed :)

The tooltable method is way better than my idea and I don't mind admitting that, thanks again TP :)

Changing consumables is now just a matter of fitting the parts and pressing a button and away we go

The only thing that can upset this the nozzles changing size and knowing Hypertherm's quality i doubt that will happen, oh and breaking the switch of course but that would be my fault ;)

Job Done.

Offline BR549

*
  •  6,965 6,965
Re: Msgbox function...
« Reply #38 on: January 30, 2016, 10:37:18 AM »
HIYA Dave, you are makiing us proud  :D

NOW have you figured out your new Auto restart button yet ???  It allows you to restart after a torch out or a stop to check teh torch. Then restart back where you stopped.



(;-) TP

Offline Davek0974

*
  •  2,606 2,606
Re: Msgbox function...
« Reply #39 on: January 30, 2016, 10:44:17 AM »
Ha, no thats not something I have thought of yet ;)

I tend to use optional M01 stops between cuts on fiddly stuff, so the chances of a forced stop due to a tip-up are low, I never leave the table running on its own as most of my stuff is arty-farty. I can't remember the last flame-out I had, it did happen once but i managed a rescue by re-running the part with the torch off and manually flicking it on when it got near the point when it died :)

Naturally I have a button on screen to flip the optional M01 stop feature on and off ;)