VB6编程步骤全部.docx

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

2、按钮，修改合适的外观属性，双击该按钮，输入代码“frmConfig.show vbmodal”5.参数设定编程方法：（1）在module1模块中，定义保存参数的自定义变量Public Type mSetData 自定义数据类型：设置参数，用于保存到磁盘文件中 TH As Single 温度高限 TL As Single 温度低限 RHH As Single 湿度高限 RHL As Single 湿度低限End TypePublic mAlarm As mSetData 用自定义类型mSetData 定义设置参数变量mAlarmPublic sAppPath As String 字符串，存放应用

3、程序所在的路径（2）在module1模块中创建一个初始化过程Init，代码如下Sub Init()sAppPath = E:软件技术基础TR 应用程序路径Open sAppPath & Para.a For Random As #1 Len = Len(mAlarm) 打开随机方式访问文件Get #1, 1, mAlarm 读取文件容到变量中Close #1 关闭文件End Sub 在sub Main 中调用Init 过程Sub main() Init 初始化，读取原设置参数 frmMain.Show vbModal 启动主窗体，有模式窗体End Sub（3）设置frmConfig窗体的界面。

4、 如图所示上述四个文本框的名字，从上到下依次为：txtTempH，txtTempL，txtRHH，txtRHL双击该窗体空白处，在Form_Load事件中输入代码，如下Private Sub Form_Load() 调入旧参数并显示在界面上 Me.txtRHH = mAlarm.RHH Me.txtRHL = mAlarm.RHL Me.txtTempH = mAlarm.TH Me.txtTempL = mAlarm.TLEnd Sub双击该窗体上的“确定”按钮，代码如下：Private Sub cmdOK_Click() 把界面上输入的新参数保存在变量中 mAlarm.TH = Me.tx

5、tTempH mAlarm.TL = Me.txtTempL mAlarm.RHH = Me.txtRHH mAlarm.RHL = Me.txtRHL 变量保存在文件中 Open sAppPath & Para.a For Random As #1 Len = Len(mAlarm) Put #1, 1, mAlarm Close #1 Unload MeEnd Sub6.下位机数据的模拟采集（1）定义变量存放下位机的数据Public Type mData 自定义数据类型：下位机数据，用于保存到磁盘文件中 T(1 To 2) As Single 温度 RH(1 To 2) As Single

6、 湿度End TypePublic mD(1 To 4) As mData 用自定义类型mData定义下位机数据变量（2）在frmMain窗体上放置一个定时器控件，命名为：tmrCaiji，其Ennabled 属性设为True，并设Interval属性为1000，双击定时器，完成代码如下所示：Private Sub tmrCaiji_Timer() 采集定时器，模拟产生下位机的数据 For i = 1 To 4 mD(i).T(1) = 30 + Rnd * 20: mD(i).T(2) = 50 + Rnd * 20 随机数 Rnd在01之间 mD(i).RH(1) = 60 + Rnd *

7、 20: mD(i).RH(2) = 30 + Rnd * 20Next iEnd Sub7.下位机数据更新到界面上，并作报警处理放置一个定时器，命名为：tmrUpdate，其Ennabled 属性设为True，并设Interval属性为1000，双击定时器，完成代码如下所示Private Sub tmrUpdate_Timer() 更新界面定时器 For i = 1 To 4 显示温度，并格式化为显示1位小数 Me.lblTemp1(i) = Format(mD(i).T(1), #0.0): Me.lblTemp2(i) = Format(mD(i).T(2), #0.0) Rnd Me.

8、lblRH1(i) = Format(mD(i).RH(1), #0.0): Me.lblRH2(i) = Format(mD(i).RH(2), #0.0) Next i For i = 1 To 4 If mD(i).T(1) = mAlarm.TH Then 温度高于报警值上限 Me.lblTemp1(i).BackColor = vbRed 背景变红 ElseIf mD(i).T(1) mAlarm.TL Then 温度低于报警值下限 Me.lblTemp1(i).BackColor = vbCyan 背景变青色 Else 温度正常 Me.lblTemp1(i).BackColor =

9、 vbGreen 背景变绿色 End If Next iEnd Sub8.绘制曲线（1）放置按钮“开始绘图”，命名为cmdDraw，输入下列代码：Private Sub cmdDraw_Click()Me.tmrDraw.Enabled = Not Me.tmrDraw.Enabled 每单击一次，切换一次定时器启动/停止命令If Me.tmrDraw.Enabled = True Then Me.cmdDraw.Caption = 暂停绘图 Else Me.cmdDraw.Caption = 开始绘图End Sub（2）在frmMain窗体上放置图片框控件picturebox，设置背景为深蓝

10、，命名为picD，在图片框左侧和下侧放置lablel控件，作为坐标刻度指示。，界面如图所示（3）在frmMain窗体代码窗口创建一个初始化坐标系的过程，如下所示Sub InitDraw(Xmin As Single, Xmax As Single, Ymin As Single, Ymax As Single) 自变量x，函数值y，min-max：围 Me.picD.AutoRedraw = True 自动重绘 Me.picD.Cls 清屏 Me.picD.Scale (Xmin, Ymax)-(Xmax, Ymin) 定义坐标系 （左上角x,左上角y）- （右下角x，右下角y） Me.pic

11、D.DrawWidth = 1 画线宽度为1 画垂直网格 For i = 1 To 6: Me.picD.Line (Xmax - Xmin) / 6 * i + Xmin, Ymin)-(Xmax - Xmin) / 6 * i + Xmin, Ymax), vbWhite: Next i 画水平网格For i = 1 To 10: Me.picD.Line (Xmin, (Ymax - Ymin) / 10 * i + Ymin)-(Xmax, (Ymax - Ymin) / 10 * i + Ymin), vbWhite: Next i Me.picD.CurrentX = Xmin:

12、Me.picD.CurrentY = Ymin 光标回原点 Me.picD.DrawWidth = 2 画线宽度为2End Sub（4）放置一个定时器，命名为：tmrDraw，其Ennabled 属性设为false，并设Interval属性为100，双击定时器，完成代码如下所示Private Sub tmrDraw_Timer( ) 绘制曲线定时器Static T As Integer 定义静态变量T = T + 1 累加If T = 60 Then 到60次 T = 0 回到0 Call InitDraw(0, 60, 0, 100) 重新初始化坐标系End IfMe.picD.Line -

13、(T, mD(1).T(1), vbYellow 画线，由上次光标位置画到指定坐标，光标也更新End Sub（5）双击frmMain 窗体，在其Load事件中调用初始化坐标系的过程，如下：Private Sub Form_Load() Call InitDraw(0, 60, 0, 100) 初始化坐标系End Sub9.数据记录（1）在frmMain窗体上放置两个按钮“开始记录”和停止记录，命名为cmdStart和cmdStop，放置一个定时器命名为tmrRecord，其定时间隔设为1000（2）在程序所在文件夹建一个Excel文件，另存为97-2003兼容模式，名为“数据模板.xls”如图

14、所示：（3）在frmMain代码窗口创建如下过程Sub OpenExcel() Dim sFileName As String 文件名 sFileName = sAppPath & & Month(Now) & - & Day(Now) & - & Hour(Time) & - & Minute(Time) & - & Second(Time) “月-日-时-分-秒”作文件名 Call GetExcel 获取可用的Excel文件 sXLSName = sFileName & .xls: sModelName = sAppPath & 数据模板.xls If Dir(sXLSName) Then

15、 Kill sXLSName 如果欲保存的Excel文件已存在，则先删除 Set xlApp = GetObject(sModelName) 打开模扳文件 xlApp.Parent.Windows(1).Visible = True 使父窗体可见 Set xlSheet = xlApp.Application.Worksheets(1) 当前工作簿的第一页End Sub（4）为“开始记录”按钮添加代码：Private Sub cmdStart_Click() OpenExcel 打开Excel文件 xlSheet.Cells(1, 5) = Month(Now) & 月 & Day(Now)

16、& 日采集的数据 xlSheet.Cells(2, 1) = 序号: xlSheet.Cells(2, 2) = 时间 For i = 1 To 8: xlSheet.Cells(2, i + 2) = i & #温度: xlSheet.Cells(2, i + 2 + 8) = i & #湿度: Next i Me.tmrRecord.Enabled = True 开始记录 Me.cmdStop.Enabled = True: Me.cmdStart.Enabled = False 使能“停止记录”按钮，禁止“开始记录”按钮End Sub（5）为“停止记录”按钮添加代码：Private Su

17、b cmdStop_Click() Me.tmrRecord.Enabled = False 停止记录数据 xlSheet.SaveAs sXLSName Excel 表格另存 xlApp.Application.Quit 退出Excel Me.cmdExit.Enabled = True 保存完Excel后才能退出系统 Me.cmdStart.Enabled = True: Me.cmdStop.Enabled = False 使能“开始记录”按钮，禁止“停止记录”按钮End Sub（6）为定时器tmrRecord按钮添加代码：Private Sub tmrRecord_Timer() 数据

18、记录定时器，定时保存到Excel表格 Static k As Long k = k + 1 If (k Mod 5) = 0 Then 定时器中断5次（即5秒）执行一次 SaveToExcel 数据记录到Excel文件 End IfEnd Sub（7）在frmMain代码窗口创建SaveToExcel过程，如下所示：Private Sub SaveToExcel() Static k As Long K为行号 k = k + 1 If k 32767 Then k = 0 Excel 最大行不能超过32768 xlSheet.Cells(k + 2, 1) = Time: xlSheet.Ce

19、lls(k + 2, 2) = k 表头 xlSheet.Cells(k + 2, 3) = Format(mD(1).T(1), #0.0) & : xlSheet.Cells(k + 2, 4) = Format(mD(1).T(2), #0.0) & xlSheet.Cells(k + 2, 5) = Format(mD(2).T(1), #0.0) & : xlSheet.Cells(k + 2, 6) = Format(mD(2).T(2), #0.0) & xlSheet.Cells(k + 2, 7) = Format(mD(3).T(1), #0.0) & : xlSheet.

20、Cells(k + 2, 8) = Format(mD(3).T(2), #0.0) & xlSheet.Cells(k + 2, 9) = Format(mD(4).T(1), #0.0) & : xlSheet.Cells(k + 2, 10) = Format(mD(4).T(2), #0.0) & xlSheet.Cells(k + 2, 11) = Format(mD(1).RH(1), #0) & %: xlSheet.Cells(k + 2, 12) = Format(mD(1).RH(2), #0) & %xlSheet.Cells(k + 2, 13) = Format(mD

21、(2).RH(1), #0) & %: xlSheet.Cells(k + 2, 14) = Format(mD(2).RH(2), #0) & %xlSheet.Cells(k + 2, 15) = Format(mD(3).RH(1), #0) & %: xlSheet.Cells(k + 2, 16) = Format(mD(3).RH(2), #0) & %xlSheet.Cells(k + 2, 17) = Format(mD(4).RH(1), #0) & %: xlSheet.Cells(k + 2, 18) = Format(mD(4).RH(2), #0) & % End S

22、ub10.使用ADO访问数据库（1）创建数据库(DB) 使用“可视化数据管理器”创建一个数据库文件：执行菜单命令“外接程序可视化数据管理器”，在打开的对话框中执行如下菜单命令，数据库文件命名为“数据”，保存 在数据库窗口中，点右键，选“新建表”，表名称为“数据表”，按如下表格添加字段名称类型大小必要的顺序位置缺省值序号Long40时间Date/time8100:00:01温度1Single420温度2Single420温度3Single420温度4Single420湿度1Single420湿度2Single420湿度3Single420湿度4Single420添加完后，点击“生成表” 双击“数

23、据表”，点“添加”，输入数据，每输入完一条记录就点击“更新” ，如果出现下列错误提示，点“否”输入45行数据即可，关闭“可视化数据管理器”（2）创建数据库访问程序 在frmMain窗体上放置一个按钮，外形：，名称：cmdDB 新建一个窗体，按下表设置属性属性名名称CaptionWidthHeightMaxButtonMinButton属性值frmDB数据访问窗口150009000FalseFalse 在frmDB窗体下方放置两个按钮 外形: ，分别命名为cmdQuery和cmdQuit 。 在frmDB窗体上，执行菜单命令“工程/部件”,按下图选择ADO控件（ActiveX Data Obje

24、cts）和DataGrid控件。点击“确定”，可以看到左侧的工具箱多了两个工具图标： 在frmDB窗体上放置一个DataGrid控件，设置其宽度（Width）为14000，高度（Height）为7000，其背景色（BackColor）为黄色。右键单击该控件，选“属性”，打开其属性窗口，设置下列其字体属性 切换到frmDB的代码窗口，定义访问数据库必须的变量：Dimn As New Connection, Rst As New ADODB.Recordset 生成数据库连接字符串：在frmDB窗体上放置一个ADO控件,右键单击它，如下图选ADODC属性 打开ADO控件的属性页：点“生成”，得到下

25、图，如图中所示选第二项点“下一步”，得到下图点击图中位置，找到数据库文件“数据.mdb”，如下图点“测试连接”，显示，点确定，复制属性页第一页中“使用连接字符串”下面文本框中的容。 删除frmDB窗体上的ADO控件，双击“查询”按钮，输入如下代码Private Sub cmdQuery_Click() 连接数据库并实现所要求的查询 n.CursorLocation = adUseClient n.Open Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=E:软件技术基础TR数据.mdb 此处粘贴刚

26、刚生成的连接字符串 Rst.Open select 序号,时间,温度1,湿度1,from 数据 where 温度130 ,n, adOpenStatic, adLockBatchOptimistic, adCmdText Rst.Open select * from 数据表,n, adOpenStatic, adLockBatchOptimistic, adCmdText Debug.Print Rst.RecordCount 若无满足要求的记录,则提前退出 If Rst.RecordCount b(j) Then Dim t As Single t = b(i): b(i) = b(j):

27、b(j) = t 交换 End If Next j Next i Dim sum As Single, n As Integer: sum = 0 sum为求和数，n为最终留下的数据个数 For i = L + TrimN To U - TrimN: sum = sum + b(i): Next i 中间数求和 n = U - L - 2 * TrimN + 1 留下的数据个数 If n = 0 Then MidLvBo = 0 Else MidLvBo = sum / n 异常处理End Function（2）在frmMain窗体空白处放置按钮，命名为cmdLvBo，双击它，添加下面的代码：Private Sub cmdLvBo_Click() Dim x(1 To 6) As Single, TrimN As Integer, y As Single For i = 1 To 6 x(i) = CSng(InputBox(请输入6个数据，当前是第