北京科技大学OPC课程设计.doc

北京科技大学 课程设计（软件设计）报告 班 级： 姓 名： 同组人： 学 号： 指导教师： 日 期： 目录1设计内容 1 2应用程序总体分析与设计 1 3应用程序各功能模块分析与设计 1 3.1连接程序：与服务器相连 1 3.2 加项程序：用于加载数据 2 3.3 退出程序：程序退出 2 3.4 窗体卸载事件处理：断开连接 3 3.5 定时器定时时间处理：数据读取，报警，实时时间显示 3 3.6 SyncRead子程序 5 4程序测试 7 4.1测试过程：两项均正常 7 4.2测试结果：两项均不正常 7 4.3测试结果：一项正常，一项不正常 7 5程序文档 8 5.1使用说明 8 5.2 程序说明 8 6.实验总结和心得 17 1设计内容 制作一个实际的OPC访问程序，能够实现数据的读取，并能在棒图上显示，实现意外情况的报警，显示当前日期、时间。 2应用程序总体分析与设计 要实现设计内容，必须有连接，加项，实时读取，报警等子程序，程序总体流程图如下： 3应用程序各功能模块分析与设计 3.1连接程序：与服务器相连 Private Sub Command1_Click() 调用Connect子程序 Call Connect(OPCJ.SampleServer.1) Label1.Caption = 与服务器连接成功 End Sub 3.2 加项程序：用于加载数据 Private Sub Command2_Click() 调用AddItem子程序 Call AddItem If Not objTestGrp Is Nothing Then If objTestGrp.OPCItems.Count 0 Then 启动定时器 Timer1.Enabled = True Else End If End If End Sub 3.3 退出程序：程序退出 Private Sub Command3_Click() 卸载窗体 Unload Form1 End Sub 3.4 窗体卸载事件处理：断开连接 Private Sub Form_Unload(Cancel As Integer) 调用Disconnect子程序 Call Disconnect End Sub 3.5 定时器定时时间处理：数据读取，报警，实时时间显示 Private Sub Timer1_Timer() Dim vtItemValues() As Variant Dim lErrors() As Long Dim strBuf As String Dim nWidth As Integer Dim nHeight As Integer Dim nDrawHeight As Integer Dim sglScale As Single Dim I As Integer Dim a As Integer Dim b As Integer 同期读取 SyncRead OPCCache, vtItemValues, lErrors 棒图的表示 For I = 1 To 2 数据的格式化 strBuf = Format(vtItemValues(I), ###.000) 表示数据字符串 lbBar(I).Caption = strBuf 计算棒的宽和高 nWidth = Picture1(I).ScaleWidth nHeight = Picture1(I).ScaleHeight sglScale = vtItemValues(I) / 700 nDrawHeight = CInt(nHeight * sglScale) 清除现棒图 Picture1(I).Cls 绘制棒图 Picture1(I).Line (0, nHeight - nDrawHeight)-(nWidth, nHeight), _