Answer Happy

Posted: **Wed May 04, 2022 9:06 am**

: Directions 3 Using Sub Procedure 51 Insert A Module Module 1 5 2 Create A Sub Procedure Called Pipeflow 3 Declare 1 (67.46 KiB) Viewed 37 times

: Directions 3 Using Sub Procedure 51 Insert A Module Module 1 5 2 Create A Sub Procedure Called Pipeflow 3 Declare 2 (59.42 KiB) Viewed 37 times

: Directions 3 Using Sub Procedure 51 Insert A Module Module 1 5 2 Create A Sub Procedure Called Pipeflow 3 Declare 3 (63.96 KiB) Viewed 37 times

Directions: 3 Using Sub Procedure 51. Insert a module (Module 1) 5 2. Create a sub procedure called PipeFlow. 3. Declare the variables using "Dim" B 4. Run the code and check your output in the immediate window. Outputs . Reynolds number • Relative roughness • Friction factor 2 3 Using Function Procedure 4 1. Insert a module (Module 2) 15 2. Declare the variables using "Dim" 16 3. Create the function procedures to calculate the outputs, and call them from the worksheet 17 18 Outputs 19 Reynolds number 20 . Relative roughness • Friction factor Hint: Select the target cell, and use the "fx" icon and the "user defined" category to find your created functions. 0 21 22 23 24
A 31 32 33 v 34 D 35 9 36 E 37 38 39 Re 40 €/D 41 f 42 43 44 45 46 47 48 f = 49 50 51 B Fluid velocity Pipe Diameter Kinematic viscosity Pipe roughness Reynolds number Relative roughness Friction factor EQUATIONS v. D ง 0.25 ((ε/D) [10920 (LP) +5.75)]* 3.7 Re 0.9 Re= INPUTS C OUTPUTS 4.22 m/s 0.017 m 0.0000010035 m²/2 0.000175 m/s D unitless m/m unitless E F G
53 X 63 *** (General) Dim D As Double Dim kin_v As Double Dim Epsilon As Double Sheet1.Range("C33") V= D=Sheet1.Range("C34") kin_v=Sheet1.Range("C35") Epsilon Sheet1.Range("C36") = End Sub MAY 2 E