Case Statement
Case Statement
(OP)
Currently, having problems with a case statement. Case 265 and Case 229 are not sending out the correct values. Do I need a Case to statement to correct this? Any and all help will be appreciated.
Sub LandDrill(ToolDiameter, Flutes, TolPlus, TolMinus, FluteStyle)
Select Case FluteStyle
Case 204
Select Case ToolDiameter
Case Is < 0.2499
TolPlus = 0.5 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
Case Else
TolPlus = 0.55 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
End Select
Case 212
Select Case ToolDiameter
Case Is < 0.2499
TolPlus = 0.5 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
Case Else
TolPlus = 0.55 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
End Select
Case 265
TolPlus = 0.66 * ToolDiameter
TolMinus = 0.74 * ToolDiameter
Case 229
TolPlus = 0.15 * ToolDiameter
TolMinus = 0.2 * ToolDiameter
Case Else
TolPlus = 0.55 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
End Select
End Sub
Sub LandDrill(ToolDiameter, Flutes, TolPlus, TolMinus, FluteStyle)
Select Case FluteStyle
Case 204
Select Case ToolDiameter
Case Is < 0.2499
TolPlus = 0.5 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
Case Else
TolPlus = 0.55 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
End Select
Case 212
Select Case ToolDiameter
Case Is < 0.2499
TolPlus = 0.5 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
Case Else
TolPlus = 0.55 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
End Select
Case 265
TolPlus = 0.66 * ToolDiameter
TolMinus = 0.74 * ToolDiameter
Case 229
TolPlus = 0.15 * ToolDiameter
TolMinus = 0.2 * ToolDiameter
Case Else
TolPlus = 0.55 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
End Select
End Sub





RE: Case Statement
RE: Case Statement
RE: Case Statement
Perhaps you should ensure that the FluteStyle argument is either of type Integer or of type Long.
RE: Case Statement
Two things I would try: put the case numbers in ascending order and eliminate the nested select case statements. I can't guarantee this will help, it's just what I'd try.
CODE
Select Case FluteStyle
Case 204
If ToolDiameter < 0.2499
TolPlus = 0.5 * ToolDiameter
Else
TolPlus = 0.55 * ToolDiameter
End If
TolMinus = 0.6 * ToolDiameter
Case 212
If ToolDiameter < 0.2499
TolPlus = 0.5 * ToolDiameter
Else
TolPlus = 0.55 * ToolDiameter
End If
TolMinus = 0.6 * ToolDiameter
Case 229
TolPlus = 0.15 * ToolDiameter
TolMinus = 0.2 * ToolDiameter
Case 265
TolPlus = 0.66 * ToolDiameter
TolMinus = 0.74 * ToolDiameter
Case Else
TolPlus = 0.55 * ToolDiameter
TolMinus = 0.6 * ToolDiameter
End Select
End Sub
RE: Case Statement
Good Luck
johnwm
________________________________________________________
To get the best from these forums read FAQ731-376 before posting
UK steam enthusiasts: www.essexsteam.co.uk
RE: Case Statement
RE: Case Statement