工程管理计算机应用实验报告.docx

工程管理计算机应用实验报告.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

IFLF3

LF4=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、学会了如何建立一个新的数据库，然后在数据库里面建立主程序，主菜单，新建表，完善数据库的整个结构。

学会了输入数据，对数据进行处理，以及为了简洁方便地看到自己想要的数据，学会了要如何设计一个输出表单和编制一个报表文件的方法。