VB编程实现关键路线法在工程项目管理中的优化决策

VB编程实现关键路线法在工程项目管理中的优化决策2006年6月第27卷第3期基建优化OPI伽ZA0NOFCAPITALa蝴Uc【IoNJun.2006V01.27No.3VB编程实现关键路线法在工程项目管理中的优化决策熊辉(长安大学信息工程学院,西安710064)摘要:介绍通过对关键路线算法的VB编程,实现工程项目的优化管理决策,使用此种软件,可以方便地为工程项目管理者在制定项目控制目标时,按照项目建设的内在规律对项目建设的全过程进行有效的计划,组织,协调和控制.关键词:;关键路线法;工程项目管理;优化设计中图分类号:T-U12文献标识码:A文章编号:100077l7I20o6)03002203OptimizeCalculationSystemMakingUseofVBwithCriticalPathMethodinTheProjectManagementXIONGHui(InformationEngineeringInstitute.CdmnganUniversity.n710064,China)Abstract:ThisarticleintroducestheprogrammingofVBwithCriticalPathMetlxxltoachieveoptimizecalculationsysteminprojectmanagernent.Whenconstructionprojectmanesdecidetheprojectcontrolg0,ritI1theuseofthissoftware,theycanplan,organize,o0ordinateandcontroltheprojectaccordingtoitsinternalregularpatternefficiently.Keywords:VimalBic;criticalpathmetlxxl;constructionprojectmanagement;optimizedecision网络计划技术是进行生产组织与管理的一种现代科学决策方法,其中最常用的是关键路线法(cPM).在网络计划图中,从始点到终点之间一般有若干条路线,其中至少有一条路线为总时差等于零的若干线段所组成,称为关键路线.关键路线是网络图中最长的路线,位于关键路线上的工序称为关键工序.关键工序没有机动时间,其完成的快慢直接影响整个工程项目的计划工期,即它决定着建设项目的总工期.下面是关键路线算法的数学模型,也是本文利用VB算法语言进行编程的数学基础.时间参数计算时间参数计算包括的主要内容如下:Df厂一工序的作业持续时间;E节点的最早时间;L节点的最迟时间;ES一工序的最早开始时间;EJ工序的最早结束时间;LSomi工序的最迟开始时间;工工序的最迟结束时间;工序的总时差;FFf工序的自由时差;L曲一网络计划总工期,及关键路线工期.主要参数计算:1)最早结束时(EFii)EFij=ES0Do式中最早开始时间(ES以如下几点进行:(1)当工序是网络系统的最初始点的工序时,不论有一项或多项工序,ES=0;(2)该工序之前只有一项紧前工序时,则本项工序NftgKfatN(ESo)等于紧前工序的最早结束时间(E).即ES=矾f(七<i<)(3)该项作业有多项平行的紧前工序,该工序的最早开始时间等于各项紧前工序中最大的那一个最早结束时间.即收稿日期:20060316作者简介:熊g(1972一).男,湖南浏阳人.硕士.工程师,研究方向:计算机应用.2006No.3熊辉:VB编程实现关键路线法在工程项目管理中的优化决策23ESo=I11a)【EFkj式中:是<i<,志<i一1,i一2,2)最迟开始时间(;)LSij=一DO对式中最迟结束时间(L)的确定,依如下几点:(1)当该工序只有一项紧后工序时,它的最迟结束时间(L)等于它的紧后工序的最迟开始时间.即=Ls(i<<忌)(2)当该项工序有多项平行的紧后工序时,其最迟结束时间(;),等于该项紧后工序中那个最小值的最迟开始时间(Ls).=minLs艟式中:i<<忌,忌=+1,+2(3)当某工序是整体网络中最终那个结点的紧前工序时,其该工序的最迟结束时间()等于整体网络中若干路线通过最终工序结点那个最早完成时间中的最大值,即整体网络的完成时间.L=ma)【EFik式中:忌为网络的最终结点,忌=+1.3)总时差()总时差,即可以利用(调整)的时间,总机动时间,即最早开始时间到最迟开始时间之间这段时间.=一ESo=崛一EFo总时差()是确定关键工序和非关键工序的依据:当丁Fi=0时,称该工序(i一工序)为关键工序;当了Fi>0时,称该工作(i一工序)为非关键工序.4)自由时差(矾)为该作业最早开始时N(ESo)与其后工序的最早开始时间(ESik)之间的这段时间.=ESikEFo(i<<自由时差的意义在于,利用自由时差变动该工序的开始时间或是增加本工序的持续时间而不影响其紧后工序的开始时间.5)关键路线工期(总工期L)关键路线时间等于由网络系统始点至终点各关键作业的延续时间之和.假定关键工序(i)的延续时间为D,则L=22,Di式中关键工序的线段(i)个数为个,i=1,2,.根据上述算法,通过VB编程可以制作成相应软件,直接为工程项目管理者使用.下面是作者编制的源程序:OptionExplicitDimfile.pathAsStringPrivateSubCputeClick()If(TextNode.Text)=0OrVal(Textgongxu.Text)=0OrText.File_Path.Text=C:MsgBox请检查节点数,工序数及文件路径的正确性,ErrorExitSubEndIfDimN,RAsIntegerDimL,D,K,X,M,P,Q,B,H,WAsIntegerN=Val(Text.Node.Text)R=(Text.gongxu.Text)N=N一1:R=R一1DimI(),J(),A(),S(),T(),F(),Z()ReDimI(R),J(R),A(R),S(N),T(N),F(N),Z(R)Openfile.pathForInputAs#1ForL=0ToRInput#1,I(L),J(L),A(L)NextLForK=0ToRL=RK:D=S(I(K)一1)+A(K)IfD>S(J(K)一1)ThenS(J(K)一1)=DD=T(J(L)一1)+A(L)IfD>T(I(L)一1)ThenT(I(L)一1)=DNextKForK=0ToNT(K)=S(N)一T(K)NextKPrint:Print:Print:Print.Print:Print:Print:Print:PrintPrintTab(7);运行结果:PrintTab(7);String$(77,61)PrintTab(7);始点;Tab(13);终点;Tab基建优化第27卷(19);时间;Tab(27);E;Tab(33);E;(39);Tab(45);Tab(51);FRForK:0T0Rs(o)=0X=I(K)一1M=J(K)一1B=A(K)+S(X)Z(K)=T(M)一BPrintTab(6);I(K);Tab(12);J(K);Tab(18);A(K);Tab(26);S(X);Tab(32);B;Tab(38);T(M)一A(K);Tab(44);T(M)iTab(50);T(M)一BNextKPrintTab(7);String$(77,45)PrintTab(7);键路线是:PrintTab(7);I(1);ForK:0ToRIfZ(K)<>0ThenG0T0golPrint一:PrintJ(K);gol:NextKPrintPrintTab(7);String$(77,61)EndSubPrivateSubCommandOpenFileClick()设置标志CommonDialog1.Flags=cdl0FNHideReadOnly设置过滤器CommonDialog1.Filter=AllFiles(.)I.IDataFiles&(.dat)I.datITextFiles(.txt)I.txt指定缺省的过滤器CommonDialog1.Filterlndex=2显示打开对话框CommonDialog1.ShowOpenfile.path=CommonDialog1.FileNameText.FilePath.Text=filepathEndSubPrivateSubCommandlCliek()DimmexitAsStringmexit=MsgBox(确实想退出吗?,vbQuestion+vbYesNo,退出)Ifmexit=vbYesThenUnloadMemain.ShowEndIfEndSub在工程项目优化管理中,对工期,成本和质量进行全面系统地分析,并进行综合均衡化,对于提高工程建设项目的综合效益具有很重要的意义.通过上述关键路线算法的VB编程,使用此开发出的软件,可以方便地为工程项目管理者在制定项目控制目标时,按照项目建设的内在规律对项目建设的全过程进行有效的计划,组织,协调和控制,实现工程项目的优化管理决策.本软件人机界面友好,操作简便.用户可使用任意文本编辑器制作数据文件XX.DAT()Q(为文件名,由用户自定).数据文件的数据输入顺序为:每个工序起始节点(编号),每个工序终止节点(编号),工序的作业持续时间,并按节点编号由小到大依次输入上述数据.程序运行时,只要通过人机对话,正确输入节点数,工序数与数据文件路径名,即可得到直观的计算结果.