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 36 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 36 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 36 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
Join a community of subject matter experts. Register for FREE to view solutions, replies, and use search function. Request answer by replying!