Hello Guest it is July 18, 2019, 07:44:08 AM

Author Topic: Wizard and VB Script questions (Brian Barker)  (Read 14588 times)

0 Members and 1 Guest are viewing this topic.

Re: Wizard and VB Script questions (Brian Barker)
« Reply #10 on: January 14, 2006, 12:54:44 PM »
Sure just use the same userlable.

Hope that helps
Brian
Fixing problems one post at a time ;)

www.newfangledsolutions.com
www.machsupport.com
Re: Wizard and VB Script questions (Brian Barker)
« Reply #11 on: January 14, 2006, 01:00:22 PM »
Me again

The save button . Where do you normaly put this. At the start page or at the end page.

Thanks
Deon
If A is a success in life, then A equals X plus Y plus Z.
                               Work is X: Y is play and Z is keeping
                                                             your mouth shut.
Re: Wizard and VB Script questions (Brian Barker)
« Reply #12 on: January 14, 2006, 01:15:58 PM »
End page :)

Fixing problems one post at a time ;)

www.newfangledsolutions.com
www.machsupport.com
Re: Wizard and VB Script questions (Brian Barker)
« Reply #13 on: January 14, 2006, 09:26:45 PM »
How are you doing with the Save file thing??? Did it work as you had hoped?
Fixing problems one post at a time ;)

www.newfangledsolutions.com
www.machsupport.com
Re: Wizard and VB Script questions (Brian Barker)
« Reply #14 on: January 19, 2006, 04:23:07 PM »
Hi Brian

Finally it looks like my logging problems solved. My firewall and cookies seem to have been the problem. Well back to our thread....
Yes the file save works very nice.

The following is a thread I posted on the Yahoo group. I haven't got a answer yet, so I will post it here as well.

I'm busy doing a wizard that consist of about nine (9) pages.
My current setup equals Mac 3 Lathe ver 00.46. Diameter mode.

On page three (3) I do a facing cut. I have a ticker set to warn of
a toolcrash........

If XStart < = StockDia then
setTicker 20, "******WARNING*****"
Exit Sub
End If

setTicker 20, ""

Diacheck = 1
If IsDiameter() = 1 Then
XEnd = XEnd / 2
XStart = XStart / 2
DiaCheck = 2
End If

When stepping into the program with VBScipt editor and moving the cursor over the following ,This is the value being displayed
XStart Value = 51 StockDia = 48
Diacheck = 2

On this page everything works fine without any VB errors.

On page 5 I've got a similar setup for a OD Cut.

I've got the same ticker setup with the same values, but on this page I get the ticker warning. In trying to solve this problem I ran
this script over and over in the VB Script Editor. I found that the value for diacheck gets displayed as 1 and then all X Values are
halved. This readings is intermediate, but I always get the same
ticker warning.

This is what brought up the Art Code 9991 error.

During the whole testing process nothing on my side gets altered or changed .All Mach3 setup values stay the same.It looks like the Diameter mode gets changed on the inside of Mach or something.

Hope you can help me with this.
 
One other thing........Will it be possible to pop up a warning box where the user can choose to carry on or abort instead of the ticker that just aborts the process. A scenario comes to mind for internal turning where you can turn inside the chuck body past the safe zone for external turning.

Thanks for all your help.
Regards
Deon
If A is a success in life, then A equals X plus Y plus Z.
                               Work is X: Y is play and Z is keeping
                                                             your mouth shut.
Re: Wizard and VB Script questions (Brian Barker)
« Reply #15 on: January 19, 2006, 05:39:21 PM »
If you are gettting an Art code I am going to have to have Art look at that... This is how I do the error checking in many of the scripts that I write, so if you could send me the code I will test it and see if there is some thing odd in it.

I can help you with a dialog box for the error, I will post it latter:)
Fixing problems one post at a time ;)

www.newfangledsolutions.com
www.machsupport.com
Re: Wizard and VB Script questions (Brian Barker)
« Reply #16 on: January 20, 2006, 01:37:28 AM »
Hi Brian

I mailed you the Script.

Thanks
Deon
If A is a success in life, then A equals X plus Y plus Z.
                               Work is X: Y is play and Z is keeping
                                                             your mouth shut.
Re: Wizard and VB Script questions (Brian Barker)
« Reply #17 on: January 20, 2006, 05:13:24 AM »
Hi Brian

I've just tried something very weird. I took my laptop and made a fresh Mach3 install. I made sure Diameter mode was set and all other values is Zero in the DRO's. I restarted and opened VBScipt editor and copied the VB file from my other PC( Just the Script.doc page #5, not the  complete Wizard) into VBScript editor.

Now My guess is that if I step into the program all values should be 0. Right!!!      Well not quit ...........Everything shows 0 except for FaceEnd(UserDRO1084) value 57 and of coarse Diacheck value 1.

Diacheck should show 2............ It looks like the values are getting trapped in the script.........

What do you think.
If A is a success in life, then A equals X plus Y plus Z.
                               Work is X: Y is play and Z is keeping
                                                             your mouth shut.
Re: Wizard and VB Script questions (Brian Barker)
« Reply #18 on: January 20, 2006, 06:37:32 AM »
Why are you checking for Dia mode? This can't change as you are running the lathe. I will have a look at your code and see if I can figure out what you are up to :)
Fixing problems one post at a time ;)

www.newfangledsolutions.com
www.machsupport.com
Re: Wizard and VB Script questions (Brian Barker)
« Reply #19 on: January 20, 2006, 06:58:22 AM »
I changed the < to > because the logic was not following the Error message... Other than that it is running very we here.

 If XStart >= StockDia Then
    setTicker 20, "************** Check XStart is Smaller than Stock Diameter  *************"
 Exit Sub
End If

If ZStart >= FaceEnd Then
    setTicker 20, "************** Check ZStart is Smaller than Face Surface *************"
Exit Sub
End If
Fixing problems one post at a time ;)

www.newfangledsolutions.com
www.machsupport.com