Math Veriables Please Help. Just starting out 1

beck · Dec 16, 1999

I have written a program that is math intensive. What I want to do is be able to run an interate to a sample situation. The sample would be something like this. Calculate the speed of a vehicle that left 30 feet of skid marks on a road that has a .7 to .85 friction factor. The initial calculation would be the Sqr(30*D*F) The D would be the distance the vehicle skidded and the F would be the friction factor. What I want to do is take the low friction factor of .7 and then in increments of .01 go up to .85 and display the results of that query in the selected series. I would also like to display the f value that was used for each speed result to the right of each result. That way the user could identify what f value was used for each particular speed calculation. It would be something like this. 
34.3 Mph .7 f 
34.6 Mph .71f 
35.0 Mph .72f 
Up to .85f Value which would be the maximum value. 
 
Any assistance would be greatly appreciated. Thank you in advance for your help. Please make the explaination easy as I am still learning. Thank you. <a href=mailto:accrec@intergrafix.net>accrec@intergrafix.net</a> <a href= > </a>

IanAtCidac · Dec 17, 1999

Hi beck 
 
Here is a simple little Sub to get you started 
 
Sub CalcSpeed(sngStart As Single, sngStop As Single, sngStep As Single, sngDistance As Single) 
Dim sngFricFact As Single 
 
Cls 
For sngFricFact = sngStart To sngStop Step sngStep 
Print Format$(Sqr(30 * sngFricFact * sngDistance), "##0.0&quot

& _ 
"MPH <=> " & Format$(sngDistance, "###&quot

& _ 
"ft Distance & " & Format$(sngFricFact, "0.00&quot

& " Friction Factor" 
Next 
End Sub 
 
You would call it as follows (for the numbers used in your example): 
 
CalcSpeed .7,.85,.01,30 
 
or you could pass numeric variables Dim'ed as Single to it, e.g. 
 
CalcSpeed FricStart!, FricEnd!, .01, Distance! 
 
You can improve on this Sub (and make it more usable) by storing the results in an array for later use or by turning it into a function which returns the result of a single calculation. This could then be called from a loop, etc. 
 
Hope this helps 
-Ian

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Math Veriables Please Help. Just starting out 1

beck

Programmer

IanAtCidac

Programmer

Similar threads

Part and Inventory Search

Sponsor