ASAP! POST USING VBA CODE!!!

The head loss in a pipe is given by the formula:

$H_{\text{l}\text{o}\text{s}\text{s}}=\frac{fL{V}^2}{2gD},$

Where $L$ is the length of the pipe, $V$ is the velocity in the pipe, $g$ is the acceleration of gravity

$(32f\frac{t}{s^2}),D$ is the diameter and $f$ is the friction factor. The friction factor for laminar flow $($Re

$2300)$ is given by:

$f=\frac{64}{Re}$

The friction factor for turbulent flow $(Re>4000)$ is given by the following explicit

approximation $($Haaland equation$)$:

$\frac{1}{\sqrt[\phantom{2}]{f}}=-1\mathrm{.}8lo{g}_{10}[\frac{6\mathrm{.}9}{Re}+(\frac{\frac{}{D}}{3\mathrm{.}7}{)}^{1\mathrm{.}11}]$

Where $Re$ is the Reynolds number, $$ is the roughness and $D$ is the diameter of the pipe. Develop

a visual basic program, using a FUNCTION $($do not use Subroutines$),$ to calculate the

friction factor and total head loss for two pipes. The parameters for the two pipes are given

below.

a$)$ Pipe $1$:$Re=45,000,\frac{}{D}=0\mathrm{.}055,D=1\mathrm{.}2ft,V=3\mathrm{.}6f\frac{t}{s}$;$L=1200ft.$

b$)$ Pipe $2$: $Re=1,500,\frac{}{D}=0\mathrm{.}0,D=0\mathrm{.}65ft,V=0\mathrm{.}35f\frac{t}{s},L=11000ft$

Set up your spreadsheet as follows:

Hint $1$: In VBA, "log$()"$ will compute natural log$.$ Refer to the following formula as you

develop your code that utilizes $lo{g}_{10}$ :

$lo{g}_{10}(x)=0\mathrm{.}43429ln(x)=$ Application. WorksheetFunction. Log$100$

Hint $2$: Since the friction factor $(f)$ calculation is simple if $Re2300(f=\frac{64}{R}e,$ you don't

need to make a function for it$.$ Therefore, you are only required to create a function to calculate

fif $Re>4000.$

Hint $3$: To calculate both columns with one button, insert the calculations and printing codes

inside a for loop $($that starts after variables declarations$).$ You can use the following code as

a guideline.