建设工程交易费计算器的编程

1建设工程交易费计算器的编程安阳市工程建设招投标服务中心张志红[内容提要]本文针对以往建设工程交易费计算繁琐、容易出错的缺点，采用VisualBasic6.0程序设计语言编制了建设工程交易费计算器，使交易费的计算实现了人机对话和可视化运算，提高了交易费计算过程中准确率和工作效率。[关键词]建设工程交易程序设计一、概述根据河南省物价部门对安阳市建设工程招投标交易费收费标准的批复，目前安阳市建设工程交易费的计算是以工程造价为基础，分为300万元以下，301-1000万元，1001-3000万元，3001-6000万元，6000万元以上五个范围段，对应不同的费率，采取累计相加的计算方法。在实际计算时，计算人员需要先确定工程造价范围，然后套用不同费率进行累加计算，再按照3∶7的比例分别计算出建设单位和施工单位支付的交易费用。以某建设工程中标价4235万元为例，需要支付的交易费为：300×15+700×12+2000×8+1235×5＝34075元，然后再分别计算建设单位和施工单位支付的交易费用。34075×30%＝10522.5元，234075×70%＝24552.5元这种计算方法，要求计算人员熟记不同工程造价范围的费率，同时由于输入数据多，在计算时需要多次核对，稍不注意就容易出错。为解决上述问题，笔者在实际工作中运用VisualBasic6.0程序设计语言编制了建设工程交易费计算器。该程序采取人机对话形式，计算快捷、准确，提高了工作效率；计算时只需一次输入工程造价，运算结果一目了然．避免了人为计算错误的发生。经实践验证，效果良好。二、程序功能该程序具有以下功能：1、采用人机对话形式，任意输入工程造价即可计算出交易费，同时计算出建设单位和施工单位支付的交易费。2、具有重复输入计算功能。3、在没有输入工程造价或输入造价数值为零、负数时，按“计算”时，屏幕提示“输入错误，退出计算。”4、计算结束按“结束”键，自动退出。三、程序编制1、设计程序界面打开visualbasic6.0。选择“文件”菜单上的“新建工程”选项，建立新工程。在新建窗体中加入一个图片框控件，8个标签控件，4个文本控件及3个命令按钮，如图1所示的设计界面放置控件位置。3（图1）2、设置对象属性设置Form1的属性为建设工程交易费计算器”，Command1，Command1，Command1，的属性分别为“计算”、“重写”和“退出”，其他属性设置（如图2）所示。控件名属性名设置属性值Fram1Caption“建设工程交易费计算器”Lable1Caption“请输入工程造价”Lable2Caption“万元”Lable3Caption“工程交易费”Lable4Caption“元”Lable5Caption“建设单位支付”Lable6Caption“元”4Lable7Caption“施工单位支付”Lable8Caption“元”Text1Text（删除原有内容）Text2Text（删除原有内容）Text3Text（删除原有内容）Text4Text（删除原有内容）Command1Caption“计算”Command2Caption“重写”Command3Caption“退出”（图2）3、编写程序代码程序界面设计完成后，下面就该编写代码了。第一步：双击“计算”按钮，输入如下代码DimcAsSinglec=Val(Text1.Text)Ifc0Andc=300ThenText2.Text=c*15Text3.Text=Text2.Text*0.3Text4.Text=Text2.Text*0.7ElseIfc300Andc=1000ThenText2.Text=300*15+(c-300)*12Text3.Text=Text2.Text*0.3Text4.Text=Text2.Text*0.7ElseIfc1000Andc=3000ThenText2.Text=300*15+700*12+(c-1000)*85Text3.Text=Text2.Text*0.3Text4.Text=Text2.Text*0.7ElseIfc3000Andc=6000ThenText2.Text=300*15+700*12+2000*8+(c-3000)*5Text3.Text=Text2.Text*0.3Text4.Text=Text2.Text*0.7ElseIfc6000ThenText2.Text=300*15+700*12+2000*8+3000*5+(c-6000)*2Text3.Text=Text2.Text*0.3Text4.Text=Text2.Text*0.7ElseMsgBox输入错误，退出计算。EndEndIf第二步双击“重写”按钮，输入如下代码Text1.Text=Text2.Text=Text3.Text=Text4.Text=第三步双击“退出”按钮，双击“退出”按钮，输入“End”即可。以上程序在中文版VB6.0和WindowsXP中调试通过。6四、建设工程交易费计算器的运行（图3）在文本框输入工程造价4235万元，单击“计算”按钮，交易费、建设单位和施工单位支付的交易费用同时在屏幕界面上显示出来（图3），与普通计算方法结果一致，运算准确率和得到效率显著提高。