油库上机报告模板参考资料 .docVIP

油库上机报告 题目 油库自流装卸系统 学生姓名 田甜 学　号 1105020104 教学院系 石油与天然气工程学院 专业年级 油气储运工程2011级 指导教师 宋晓琴 职　称 副教授 单　　位 油气储运教研室 辅导教师 职 称 单　　位 完成日期 2014 年 06 月 目录 1．题目来源 某油库的自流装卸系统，如图所示，装油管设置在集油管中部，且两侧鹤管同时装油，两侧鹤管对称布置。油库油料为车用汽油，操作条件下车用汽油的粘度为 0.6×10-6m2/s，鹤管采用Φ108×4的钢管，鹤管计算长度为25m，鹤管间距为12.5m，集油管为Φ273×6，输油管为Φ159×5，输油管计算长度为1500m，油库库容为30000m3，单个罐的容量为3000m3，油罐内径为16m，罐壁高度为15.85，罐出油口与装油鹤管出口之间的高差为30m。 计算鹤分别管数为20和30，液位高度为3m和10m时所对应的各鹤管流量？ （2）操作鹤管数为30，发油量为1500m3，开始发油时液位高度为12m?， 2.框图 YES in/2 YES 还需要另外调用过程算摩阻 3. 程序代码 3．1该程序执行顺序如下： 3．1．1:显示封面窗体,启动 3．1．2:单击“计算”命令按钮,封面窗体消失,显示基本参数设置界面;此时如果单击“退出”命令,则程序结束. 3．1．3:修改各个参数后,单击“计算发油时间”命令按钮,进入计算时间窗体;单击“计算各鹤管流量”命令按钮则进入鹤管界面.单击“返回”按钮,回到启动窗体. 3．1．4:进入计算时间窗体后,再输入各个变量.单击确定后显示发油时间.单击“返回”按钮,回到上一级窗体. 3．1．5:进入鹤管窗体后, 再输入各个变量.单击“输出图形”命令按钮后显示平均流量与液面高度图.单击“返回”按钮,回到该窗体. 3．1．6:在鹤管窗体里,单击“显示各鹤管流量”命令按钮,则显示鹤管数一半的各管流量.单击“返回”按钮,回到该窗体. 3．2封面窗体程序： Private Sub Command1_Click() Form2.Show Form1.Hide End Sub Private Sub Command2_Click() End End Sub 3．3基本参数窗体程序： Private Sub Command1_Click() Form3.Show Form2.Hide End Sub Private Sub Command2_Click() Form4.Show Form2.Hide End Sub Private Sub Command3_Click() Form1.Show Form2.Hide End Sub 3．4时间窗体程序： Private Sub Command1_Click() Cls AutoRedraw = True Dim hf As Single, V() As Single, u() As Single, hf1() As Single Dim hf2() As Single, hf0 As Single, Q1() As Single, Q2() As Single d1 = Val(Form2.Text1.Text): d2 = Val(Form2.Text2.Text): d0 = Val(Form2.Text3.Text) L1 = Val(Form2.Text4.Text): L2 = Val(Form2.Text5.Text): L0 = Val(Form2.Text6.Text) pi = 3.14: t1 = 0.00001: t2 = 0.00001: e = 0.0002: g = 9.8 p = Val(Form2.Text7.Text): H0 = Val(Form2.Text8.Text) n = Val(Form3.Text1.Text): Z0 = Val(Form3.Text2.Text): V0 = Val(Form3.Text3.Text) A1 = (pi * d1 ^ 2) / 4: A2 = (pi * d2 ^ 2) / 4: A0 = (pi * d0 ^ 2) / 4 B1 = L1 / (2 * g * d1): B2 = L2 / (2 * g * d2): B0 = L0 / (2 * g * d0) Z1 = Z0 - (V0 / 201) m = n / 2 Call Module1.liul(Z0) Q00 = Q0