VB6编程步骤-全部.doc

《VB6编程步骤-全部.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、.VB6编程步骤题目要求1.新建工程，在工程中新建2个窗体和1个模块，窗体命名为frmMain和frmConfig，添加Excel操作专用模块。2.执行菜单命令“工具-选项-编辑器格式”，设置标准文本的字体格式为自己喜欢的格式，执行菜单命令“工具-选项-编辑器”，“要求变量声明”前打勾3.设置工程1的属性，修改启动对象为SubMain，在module1中添加SubMain过程，并输入代码：frmMain.ShowvbModal。在frmMain上添加一个退出按钮，设置其合适的大小和字体，双击该按钮，输入“UnloadMe”。4.在

2、frmMain窗体上放置“参数设定”按钮，修改合适的外观属性，双击该按钮，输入代码“frmConfig.showvbmodal”5.参数设定编程方法：（1）在module1模块中，定义保存参数的自定义变量PublicTypemSetData'自定义数据类型：设置参数，用于保存到磁盘文件中THAsSingle'温度高限TLAsSingle'温度低限RHHAsSingle'湿度高限RHLAsSingle'湿度低限EndTypePublicmAlarmAsmSetData'用自定义类型mSetData定义设置参数变量mAlarmPubl

3、icsAppPathAsString'字符串，存放应用程序所在的路径（2）在module1模块中创建一个初始化过程Init，代码如下SubInit()sAppPath="E:软件技术基础TR"'应用程序路径OpensAppPath&"Para.a"ForRandomAs#1Len=Len(mAlarm)'打开随机方式访问文件Get#1,1,mAlarm'读取文件内容到变量中Close#1'关闭文件EndSub范文..在subMain中调用Init过程Submain()Init'初始化，读取原设置参数frmMain.Showv

4、bModal'启动主窗体，有模式窗体EndSub（1）设置frmConfig窗体的界面。如图所示上述四个文本框的名字，从上到下依次为：txtTempH，txtTempL，txtRHH，txtRHL双击该窗体空白处，在Form_Load事件中输入代码，如下PrivateSubForm_Load()'调入旧参数并显示在界面上Me.txtRHH=mAlarm.RHHMe.txtRHL=mAlarm.RHLMe.txtTempH=mAlarm.THMe.txtTempL=mAlarm.TLEndSub双击该窗体上的“确定”按钮，代码如下：

5、PrivateSubcmdOK_Click()'把界面上输入的新参数保存在变量中mAlarm.TH=Me.txtTempHmAlarm.TL=Me.txtTempLmAlarm.RHH=Me.txtRHHmAlarm.RHL=Me.txtRHL'变量保存在文件中OpensAppPath&"Para.a"ForRandomAs#1Len=Len(mAlarm)Put#1,1,mAlarmClose#1UnloadMeEndSub1.下位机数据的模拟采集（1）定义变量存放下位机的数据PublicTypemData'自定义数据类型：下

6、位机数据，用于保存到磁盘文件中T(1To2)AsSingle'温度RH(1To2)AsSingle'湿度EndType范文..PublicmD(1To4)AsmData'用自定义类型mData定义下位机数据变量（1）在frmMain窗体上放置一个定时器控件，命名为：tmrCaiji，其Ennabled属性设为True，并设Interval属性为1000，双击定时器，完成代码如下所示：PrivateSubtmrCaiji_Timer()'采集定时器，模拟产生下位机的数据Fori=1To4mD(i).T(1)=30+Rnd*20:mD

7、(i).T(2)=50+Rnd*20'随机数Rnd在0~1之间mD(i).RH(1)=60+Rnd*20:mD(i).RH(2)=30+Rnd*20NextiEndSub1.下位机数据更新到界面上，并作报警处理放置一个定时器，命名为：tmrUpdate，其Ennabled属性设为True，并设Interval属性为1000，双击定时器，完成代码如下所示PrivateSubtmrUpdate_Timer()'更新界面定时器Fori=1To4'显示温度，并格式化为显示1位小数Me.lblTemp1(i)=Format(mD(i).T(

8、1),"#0.0"):Me.lblTemp2(i)=Format(mD(i).T(2),"#0.0")RndMe.lblRH1(i)=Format(mD(i).RH(1),"#0.0"):Me.lblRH2(i)=Format(mD(i).RH(2