Spindle speed?

[Eazy]

Is there a way to input cutter speed as a meters/minute value rather than rpm?

 

in Advance.

[crazy^millman]

Not that I am aware of. And I think you mean Inchs per mintue to Meters per minute. The RPM is in referecne to Spindle Speed where as Meters/minute deals with travel distance. You could make a VB calulactor to input the vaule and then give you what you want. Here is a script of what I am thinking:

code:

---

'////////////////////////////////////////////////////////////////////////////////

'//

'// Author: Ron Branch aka Crazy Millman

'// Date: 07/02/2004 07:40 AM

'// File Name: Inch Per Min Cal

'//

'// Description: Inch Conversion for Surface Speed

'//

 

'///////////////// My Global Variables //////////

Dim R, D, X, Y

 

' -- Start Script

Call Main()

 

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Main()

R = 0

D = 0

X = 0

Y = 0

If askNumber("Enter the RPM" ,0 ,20000, R) Then

If askNumber("Enter the Diameter of Cutter in MM", 0, 2000, D) Then

X = 3.1416 * D * R

Y = X / 1000

ShowString "The surface Speed: " & vbCrLf & vbCrLf & Round(Y, 4) & vbCrLf & vbCrLf & "Meter/Min"

End If

End If

End Sub

---

Edit Guys For Soem strange Reason english does not work with decimals for the size of endmill. 1" or 2" work just fine. I tried the CInt(Y) and I also tried the CLng(Y) and neither would give me a vaule other than 0. Maybe Mick or Matt or one of the other Vb guy can show where I am going wrong. End Edit

 

Then for English:

code:

---

'////////////////////////////////////////////////////////////////////////////////

'//

'// Author: Ron Branch aka Crazy Millman

'// Date: 07/02/2004 07:40 AM

'// File Name: Meter Per Min Cal

'//

'// Description: Metric Conversion for Surface Speed

'//

 

'///////////////// My Global Variables //////////

Dim R, D, X, Y

 

' -- Start Script

Call Main()

 

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Main()

R = 0

D = 0

X = 0

Y = 0

If askNumber("Enter the RPM" ,0 ,20000, R) Then

If askNumber("Enter the Diameter of Cutter in Inches", 0, 2000, D) Then

X = 3.1416 * D * R

Y = X / 12

ShowString "The surface Speed: " & vbCrLf & vbCrLf & Round(Y, 4) & vbCrLf & vbCrLf & "Inches/Min"

End If

End If

End Sub

---

You can create all type of the little quick thing and even make a script that has 10 or 20 things in it to choose from the just hav one toolbar button to call it from. It would take some work for me to do but think one of the VB guys could problay whip something out in the 20 minutes it took for me to post this response.

[crazy^millman]

Well Looks like I got my description mixed around for each script and was going to change that but to late sorry about that guys.

[crazy^millman]

Ok guys I Figured out what I was doing wrong. I am going ot explain my mistake so maybe other learn from it. I was using the askNumber for both questions thisi fine for Metric becuase that are almost always whole numbers for the Surface speed Calucations. With the inch and anything smaller than 1" or anything with a decimnal the askNumber will not work. If you use the askVaule then you can use a decimnal for a vule and get the desired results for your caluctions. I am sure alot of the VB guys alreayd know this but I am learning so had to learn it the hard way which never hurts my feelings. Well here is the new Script and Hope you like:

code:

---

'////////////////////////////////////////////////////////////////////////////////

'//

'// Author: Ron Branch aka Crazy Millman

'// Date: 05/14/2004 08:54 AM

'// File Name: Inch Surface Speed

'//

'// Description: Inch Conversion for Surface Speed

'//

 

'///////////////// My Global Variables //////////

Dim R, D, X, Y

 

' -- Start Script

Call Main()

 

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Main()

R = 0

D = 0

X = 0

Y = 0

If askNumber("Enter the (RPM)" ,0. , 20000., R) Then

If askValue("Enter the Diameter of Cutter in (Inches)",0 , 10., D) Then

X = 3.14159 * D * R

Y = (X / 12)

ShowString "The Surface Speed Is " & vbCrLf & Round(Y,2) & vbCrLf & "Inches"

End If

End If

End Sub

---

[crazy^millman]

Sorry Guys but I am learning alot about VB. Here is a Combo Script to do Metric and Standard Surface Speed. I know these are basic to most VB guys but I am an idoit when it coem to stuff so If I can help a couple fo you to understand it better why my simple examples then glad to do so.

 

code:

---

'////////////////////////////////////////////////////////////////////////////////

'//

'// Author: Ron Branch aka Crazy Millman

'// Date: 05/15/2004 09:00 AM

'// File Name: Combo Conversion

'//

'// Description: Inch/Metric Conversion for Surface Speed

'//

'//

'///////////////// My Global Variables //////////

Dim R, D, X, Y, RM, DM, XM, YM, QA

 

' -- Start Script

askNumber"Do you want Surface Speed in Inch=1 or Metric=2", 1 ,2 , QA

If QA = 1 Then Call Inch

If QA = 2 Then Call Metric

 

 

 

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Inch()

R = 0

D = 0

X = 0

Y = 0

If askNumber("Enter the (RPM)" ,0. , 20000., R) Then

If askValue("Enter the Diameter of Cutter in (Inches)",0 , 10., D) Then

X = 3.14159 * D * R

Y = (X / 12)

ShowString "The Surface Speed Is " & vbCrLf & Round(Y) & vbCrLf & "Inches/Min"

End If

End If

End Sub

 

Sub Metric()

RM = 0

DM = 0

XM = 0

YM = 0

If askNumber("Enter the (RPM)" ,0. , 20000., RM) Then

If askValue("Enter the Diameter of Cutter in (MM)",0 , 400., DM) Then

XM = 3.14159 * DM * RM

YM = (XM / 1000)

ShowString "The Surface Speed Is " & vbCrLf & Round(YM) & vbCrLf & "Meter/Min"

End If

End If

End Sub

---

Hope you enjoy I sure am.