I keep getting an error message for this function:
Function Gear(RPM As Double, Gear1 As Double)
I'm not sure what's wrong with the function. Error says Block End If.
If RPM >= 7200 And Gear1 = 1 Then Gear = 2 If RPM >= 7200 And Gear1 = 2 Then Gear = 3 If RPM >= 7200 And Gear1 = 3 Then Gear = 4 If RPM >= 7200 And Gear1 = 4 Then Gear = 5 If RPM >= 7200 And Gear1 = 5 Then Gear = 6 If RPM >= 7200 And Gear1 = 6 Then Gear = 6 Else Gear = Gear1 End If End Function
Last edited by Fotis1991; 10-21-2013 at 08:28 AM. Reason: Pls use code tags around your code.
Function Gear(RPM As Double, Gear1 As Double) If RPM >= 7200 And Gear1 = 1 Then Gear = 2 If RPM >= 7200 And Gear1 = 2 Then Gear = 3 If RPM >= 7200 And Gear1 = 3 Then Gear = 4 If RPM >= 7200 And Gear1 = 4 Then Gear = 5 If RPM >= 7200 And Gear1 = 5 Then Gear = 6 If RPM >= 7200 And Gear1 = 6 Then Gear = 6 Else Gear = Gear1 End If End If End If End If End If End If End Function
Last edited by AB33; 10-21-2013 at 08:34 AM.
Thanks, I tried that. Now I just get a zero value for the function. I'm not sure if I defined the inputs wrong or what. RPM is between 3000 and 7200. Gear1 is between 1.45 and 3.20.
You are probably getting this line
Gear = Gear1
Since your gear starts at 1, the else may return 0.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks