工程管理计算机应用实验报告.docx
《工程管理计算机应用实验报告.docx》由会员分享,可在线阅读,更多相关《工程管理计算机应用实验报告.docx(12页珍藏版)》请在冰豆网上搜索。
工程管理计算机应用实验报告
CHANGSHAUNIVERSITYOFSCIENCE&TECHNOLOGY
上机报告
(一)
题目:
单代号搭接网络时间参数的计算与关键线路的确定
学生姓名:
学号:
班级:
学院:
交通运输工程学院
专业:
工程管理
指导教师:
高幸
2016年10月
一、上机目的:
1、理解、掌握单代号搭接网络在计算机中的存贮方法;
2、掌握计算单代号搭接网络时间参数的算法思想;
3、学会编制与调试较复杂的应用程序。
二、上机内容与步骤
(一)上机内容
长永高速公路第九标段某装配式砼板桥网络图
其中:
D1=0;D2=17;D3=18;D4=1;D5=3;D6=4;D7=1;D8=3;D9=2;D10=2;D11=18;D12=17;D13=28;D14=2;D15=3;D16=0。
FTS=14
FTS=10
FTS=7
FTS=20FTS=28
FTS=7
(二)上机步骤:
1、建立工作关系数据(D1KN.DBF)、工作资源消耗数据库(D2KN.DBF)及工作时间参数输出结果数据库文件(D3KN.DBF),如下所示;
(1)D1KN表设计:
(2)D2KN表设计:
(3)D3KN表设计:
2、编制最早开始时间与最早完成时间计算程序;
运行程序1后,D3KN的结果如下所示:
3、编制最迟开始时间与最迟完成时间计算程序;
运行后,D3KN结果如下所示:
4、编制确定关键线路的程序
在程序窗口输入程序代码
三、有关说明及源程序清单
1、编制最早开始时间与最早完成时间计算程序清单:
SETTALKOFF
ACCEPT"请输入工作约束关系数据库文件名称:
"toK1
ACCEPT"请输入工作资源消耗数据库文件名称:
"toK2
ACCEPT"请输入工作时间参数输出数据库文件名称:
"toK3
INPUT"请输入开始工作的最早开始时间:
"toES
EF=ES
SELE1
USE&K1
SELE3
USE&K3
REPLFOR节点号=1最早开始WITHES最早结束WITHEF
SELE2
USE&K2
GOBOTTOM
I1=节点号
N1=2
DOWHILEN1<=I1
SELE2
GON1
D2=持续时间
SELE1
GOTOP
I2=0
DOWHILE.NOT.EOF()
IF终点号=N1
IFN1>=3
N2=起点号
SELE3
GON2
ES=最早开始
EF=最早结束
SELE1
ENDIF
ES1=ES+STS
ES2=EF+FTS
I2=I2+1
ES3=MAX(ES1,ES2)
IFI2=1
ES4=ES3
ELSE
IFES3>ES4
ES4=ES3
ENDIF
ENDIF
ENDIF
SKIP
ENDDO
ES=ES4
EF=ES+D2
SELE3
GON1
REPLACE最早开始WITHES,最早结束WITHEF
N1=N1+1
ENDDO
SETTALKON
2、编制最迟开始时间与最迟完成时间计算程序清单:
SETTALKOFF
ACCEPT"请输入工作约束关系数据库文件名称:
"toK1
ACCEPT"请输入工作资源消耗数据库文件名称:
"toK2
ACCEPT"请输入工作时间参数输出数据库文件名称:
"toK3
INPUT"请输入终点号工作的最迟结束时间:
"toLF
LS=LF
SELE1
USE&K1
SELE3
USE&K3
REPLFOR节点号=16最迟开始WITHLS,最迟结束WITHLF
N1=15
DOWHILEN1>=1
SELE2
use&K2
GON1
D2=持续时间
SELE1
GOtop
I2=0
DOWHILE.NOT.EOF()
IF起点号=N1
IFN1<=14
N2=终点号
SELE3
GON2
LS=最迟开始
LF=最迟结束
SELE1
ENDIF
LF1=LS-FTS
LF2=LS-STS+D2
I2=I2+1
LF3=Min(LF1,LF2)
IFI2=1
LF4=LF3
ELSE
IFLF3LF4=LF3
ENDIF
ENDIF
ENDIF
SKIP
ENDDO
LF=LF4
LS=LF-D2
SELE3
GON1
REPL最迟开始WITHLS,最迟结束WITHLF
N1=N1-1
ENDDO
REPLACEALL总时差WITH最迟结束-最早结束
SETTALKON
3、编制确定关键线路程序清单:
SETTALKOFF
ACCEPT"请输入工作时间参数输出数据库文件名称:
"toK3
SELE3
USE&K3
GOTOP
DIMEA(16)
K=1
DOWHILE.NOT.EOF()
IF总时差=0
A(K)=节点号
K=K+1
ENDIF
SKIP
ENDDO
M=K-1
L=1
?
"此网络图的关键线路为:
"
DOWHILEL<=M
IFL=M
?
?
STR(A(L),2)
ELSE
?
?
STR(A(L),2)+"-->"
ENDIF
L=L+1
ENDDO
SETTALKON
四、上机体会与建议
1、这次上机实验操作,无疑是增加了对自己的锻炼,大部分是自己在宿舍摸索完成的,由于自己本身对该软件不是很熟练,所以做起来的时候稍微有点吃力。
2、学会了如何建立一个新的数据库,然后在数据库里面建立主程序,主菜单,新建表,完善数据库的整个结构。
学会了输入数据,对数据进行处理,以及为了简洁方便地看到自己想要的数据,学会了要如何设计一个输出表单和编制一个报表文件的方法。