Messages

6551

VB and the development of wizards / Re: Modifing Operator Editable Button Macros

« on: July 13, 2010, 09:20:12 PM »

Glad you got it working, I love it when a plan comes together and chips fly. (;-)

6552

VB and the development of wizards / Re: backtracking a dispenser! need advice!

« on: July 13, 2010, 09:13:24 PM »

HUM would it not be easier to just tell the Gcode to back up the C  when the  line ends?

(;-)

6553

VB and the development of wizards / Re: Modifing Operator Editable Button Macros

« on: July 13, 2010, 08:57:21 PM »

I have not studied it but it at least will run like this:

Sub Main()

Dim ConfirmReady As String
Dim DoXY As String

ConfirmReady = AskTextQuestion("Confirm Touch plate circuit is grounded to bit (y/n).")
If ConfirmReady = "y" Then GoTo 1 Else GoTo 4


1:
Message "You entered " & ConfirmReady & "!"

DoXY = AskTextQuestion("Zero X and Y? (y/n)")
If DoXY = "y" Then GoTo 2 Else GoTo 3


2:
Message( "Auto Zeroing X..." )
If IsSuchSignal (22) Then
code "G31 X-2 F10"
While IsMoving()
Sleep 100
Wend
Call SetDRO( 0, .0625 )
code "G1 X.5"
End If

Message( "Auto Zeroing Y..." )
If IsSuchSignal (22) Then
code "G31 Y-1 F10"
While IsMoving()
Sleep 100
Wend
Call SetDRO( 1, .0625 )
code "G1 Y.5"
End If

3:
Message( "Auto Zeroing Z..." )
If IsSuchSignal (22) Then
code "G31 Z-2 F10"
While IsMoving()
Sleep 100
Wend
Call SetDRO( 2, .059 )
code "G1 Z1"
End If
GoTo 5

4:
Message ("Tool zeroing aborted  Try again")
GoTo 6

5:
Message "Tool zeroing complete."

6:
End Sub
end

6554

VB and the development of wizards / Re: Would like Mach3 to find the next tool number during tool change

« on: July 13, 2010, 08:37:11 PM »

Userlabels  work just fine you should be able to send your string staright to a userlabel.

As to the DRO route you will have to work that out. Isolate what you need and format as a double and it should work fine.

NOW IF you were to rethink your Gcode you could do it the way we did with look ahead toolchangers.

State the T# in advance such as

T10
*

*
*
*
*
*
M6
G43 H10
T9

This way the Tool# is loaded into the hold que in advance of its use AND that number can be directly displayed in a DRO on screen. Then when needed for tool change the M6 transfers the tool into the current tool and then you state the next TOOL in advance. The look ahead tool changers used this to have the next tool standing by and ready to swap. Saved a lot of time in tool changes waiting for the tool to get ready.

AND there is not a need for a VB scheme to do what you want.

Just a thought,(;-)

6555

VB and the development of wizards / Re: Modifing Operator Editable Button Macros

« on: July 13, 2010, 08:20:20 PM »

SUre they work, use them all the time.

(;-)

6556

Show"N"Tell ( What you have made with your CNC machine.) / Re: Cylinder Heads

« on: July 13, 2010, 08:17:02 PM »

Steve I talked with andy and he is interested in helping you understand how CamBam works if you are interested.

Let me know, (;-)

6557

VB and the development of wizards / Re: Would like Mach3 to find the next tool number during tool change

« on: July 12, 2010, 09:31:24 PM »

YOu may want to send the String to a USER Label They act just like the message bar but the message stays put until you change it.

OR you can create a UserDro on the screen and format the String "Number" and place in the Dro by SetUserDro(####)    #### is the dro#

6558

Show"N"Tell ( What you have made with your CNC machine.) / Re: Cylinder Heads

« on: July 11, 2010, 05:45:06 PM »

I beleive that alibre has a CAM modual as well . Might drop them a line. Heck the worst they can say is NOPE.

6559

General Mach Discussion / Re: Mentor2 Spindle Drive - Using 'Speed Achieved'

« on: July 11, 2010, 05:24:42 PM »

This may help when you get to that part in your project. It is a simple routine to test conditions and either continue or stop and message user. I would test your spindle to time it from stop to full RPM to establish a wait time

Sub Main()

Line# = GetDro(16)               'GetCurrent line#
DoSpinCW()                'Start Spindle
Sleep(3000)               'Wait for spindle to spool

If GetOemDro(11) = 1 And Isactive(input2) Then  GoTo 2   'Check inputs if good then else

 Message" Spindle Failed To SPOOL UP"
 GoTo 3

2:
 Message"Spindle Good for M3 start"
   GoTo 4

 3:
 DOButton(1)               'Feedhold
 DoButton(3)               'Stop
 DoButton(2)                 'Rewind
MSGBOX ("Spindle Failed To Spool Up On Line#") &  Line#     'Message to
Goto 4                                                                                                                                                                                                                 

4:           
 End Sub
 End

6560

General Mach Discussion / Re: Mentor2 Spindle Drive - Using 'Speed Achieved'

« on: July 11, 2010, 03:14:59 PM »

Carefull in the Macro that you don't create an endless loop if the VFD does not trip the signal some wait for loops are hard to get out of(;-) you need an escape route if it happens.

The brains are 100 times faster and take up no real CPU time with wait for loops. VB can hogg resources if you are not carefull.

Just a thought, (;-)