软件课程设计报告

1、科技大学课程设计（软件设计）报告a:班学号：指导教师：日期：年月日目录1 设计容 12 应用程序总体分析与设计 13 应用程序各功能模块分析与设计 23.1 连接服务器 23.2 加项 33.3 读取数据 53.4 显示与隐藏 73.5 暂停与继续 93.6 报表与记录 104 程序测试 114.1 测试过程 114.1.1 连接测试 114.1.2 显示与隐藏测试 114.1.3 暂停按钮 114.1.4 数据保存 124.2 测试结果 124.2.1 连接结果 124.2.2 显示与隐藏结果 124.2.3 暂停显示 134.2.4 数据保存结果 135 程序文档 145.1 使用说明 1

2、45.2 程序说明 146 学习收获 261设计容OPC(OLE for Process Contro又称为过程控制的对象连接与嵌入技术。它是它的出现为基于Windows的应用程序和现场过程控制应用建立了桥梁。在过去，为了存取现场 设备的数据信息，每一个应用软件开发商都需要编写专用的接口函数。由于现场设备的种类繁多，且产品的不断升级，往往给用户和软件开发商带来了巨大的工作负担。通常 这样也不能满足工作的实际需要，系统集成商和开发商急切需要一种具有高效性、可靠性、开放性、可互操作性的即插即用的设备驱动程序。在这种情况下，OPC标准应运而生。OPC标准以微软公司的OLE技术为基础，它的制定是通过提

3、供一套标准的OLE/COM接口完成的，在OPC技术中使用的是 OLE 2技术，OLE标准允许多台微机之间交换文档、 图形等对象。OPC的出现大大缩短了软件开发的时间。本次课程设计就是要求使用VB设计一个简单的客户端程序，这个程序能读取本机服务器上面的数据，并以直观的柱形图显示出 来。另外，还应该添加一些别的功能。2应用程序总体分析与设计为了能连接服务器，首先在 PC机运行模拟的服务器。然后，在 VB6.0环境下，创 建各种用于显示数据和控制的控件。给每一个控件添加事件响应函数。程序运行的流程如下：连接服务器添加ItemI读取数据显示与保存3 应用程序各功能模块分析与设计3.1 连接服务器首先使

4、用new关键字创建一个OPC对象，然后调用Connect方法连接到服务器 然后书写连接按钮的响应函数。Private Sub BtnConnnect_Click()' 调用 Connect 子程序Call Connect("OPCJ.SampleServer.1")End SubSub Connect(strProgID As String, Optional strNode As String)If objServer Is Nothing Then'建立一个OPC服务器对象Set objServer = New OPCServerEnd IfIf obj

5、Server.ServerState = OPCDisconnected Then'连接OPC服务器objServer.Connect strProgID, strNodeEnd IfIf objGroups Is Nothing Then'建立一个OPC组集合Set objGroups = objServer.OPCGroupsEnd IfIf objTestGrp Is Nothing Then'添加一个OPC组Set objTestGrp = objGroups.Add("TestGrp")End IfEnd Sub3.2 加项对OPC服务器进

6、行访问前，必须先在 OPC组里添加要访问的 OPC标签。这里添加 OPC标签的标识符和数目是固定的，但是实际的OPC应用程序往往要按照用户的指定或读取组态文件取得和处理需要添加OPC标签。Sub AddItem()Dim strItemIDs(2) As StringDim lClientHandles(2) As LongDim lErrors() As LongDim I As IntegerIf objTestGrp Is Nothing ThenExit SubEnd IfIf Not objItems Is Nothing ThenIf objItems.Count > 0 T

7、henExit SubEnd IfEnd If' 设置组活动状态objTestGrp.IsActive = True' 取消组非同期通知objTestGrp.IsSubscribed = FalseSet objItems = objTestGrp.OPCItems' 生成标签的项标识符strItemIDs(1) = " 反应罐温度 .Value"strItemIDs(2) = " 反应罐液位 .Value" lClientHandles(1) = 1 lClientHandles(2) = 2'添加OPC项Call ob

8、jItems.AddItems(2, strItemIDs, _ lClientHandles, lServerHandles, lErrors) End SubPrivate Sub btnAddItem_Click()' 调用 AddItem 子程序Call AddItemIf Not objTestGrp Is Nothing ThenIf objTestGrp.OPCItems.Count > 0 Then' 启动定时器TmUpdate.Enabled = TrueElseEnd IfEnd Sub3.3 读取数据 为了实时显示数据，还要设置一个定时中断类型的服务

9、函数，然后没间隔一段时间 去向服务器读取一下数据。定时器会在加载项的时候启动。Private Sub tmUpdate_Timer()Dim vtItemValues() As VariantDim lErrors() As LongDim strBuf As StringDim nWidth As IntegerDim nHeight As IntegerDim nDrawHeight As IntegerDim sglScale As SingleDim I As Integer' 同期读取SyncRead OPCCache, vtItemValues, lErrors'

10、棒图的表示For I = 1 To 4' 数据的格式化If PauseFlag(I) = 0 ThenstrBuf = Format(vtItemValues(I), "#.000")' 表示数据字符串lbBar(I).Caption = strBuf' 计算棒的宽和高nWidth = PicBar(I).ScaleWidth nHeight = PicBar(I).ScaleHeightsglScale = vtItemValues(I) / 100 nDrawHeight = CInt(nHeight * sglScale)' 清除现棒图

11、PicBar(I).Cls' 绘制棒图'If vtItemValues(I) < 20 Or vtItemValues(I) > 90 Then'PicBar(I).Line (0, nHeight - nDrawHeight)-(nWidth, nHeight), RGB(255, 0,0), BF' Else' PicBar(I).Line (0, nHeight - nDrawHeight)-(nWidth, nHeight), RGB(0, 255, 0), BF' End IfPicBar(I).Line (0, nHeig

12、ht - nDrawHeight)-(nWidth, nHeight), RGB(vtItemValues(I) * 2.55, 255 - vtItemValues(I) * 2.55, 0), BFEnd IfNextIf FileFlag = 1 ThenPrint #FileNo, Date; Time, Str(vtItemValues(1), Str(vtItemValues(1), Str(vtItemValues(1), Str(vtItemValues(1)End If3.4 显示与隐藏 为了方便显示与隐藏其中某些项，这里给一个柱形图配置一个复选框，当复选框选 中的时候，该项

13、目便隐藏起来。取消复选框，该项目又会显示出来。这样子的功能对于 只需要观察某些数据的时候，很是方便。具体实现方式如下：Private Sub Check1_Click()If Check1.Value = 1 ThenPicBar(1).Visible = FalselbBar(1).Visible = FalseLabel1.Visible = FalseElsePicBar(1).Visible = TruelbBar(1).Visible = TrueLabel1.Visible = TrueEnd IfEnd SubPrivate Sub Check2_Click()If Check2

14、.Value = 1 ThenPicBar(2).Visible = FalselbBar(2).Visible = FalseLabel2.Visible = FalseElsePicBar(2).Visible = TruelbBar(2).Visible = TrueLabel2.Visible = TrueEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 ThenPicBar(3).Visible = FalselbBar(3).Visible = FalseLabel3.Visible = FalseElsePicBar(3).

15、Visible = TruelbBar(3).Visible = TrueLabel3.Visible = TrueEnd IfEnd SubPrivate Sub Check4_Click()If Check4.Value = 1 ThenPicBar(4).Visible = FalselbBar(4).Visible = FalseLabel4.Visible = FalseElsePicBar(4).Visible = TruelbBar(4).Visible = TrueLabel4.Visible = True3.5 暂停与继续在实际生产环境中， 遇到一些特殊情况需要暂停以观察数据

16、，以防止被后面新的数据刷新。所以四个柱形图又都配置了一个暂停复选框，当复选框选中的时候，柱形图暂 停更新，当取消复选框，柱形图继续更新。实现代码如下：Private Sub Check5_Click()If Check5.Value = 1 ThenPauseFlag(4) = 1ElsePauseFlag(4) = 0End IfEnd SubPrivate Sub Check6_Click()If Check6.Value = 1 ThenPauseFlag(1) = 1ElsePauseFlag(1) = 0End IfEnd SubPrivate Sub Check7_Click()I

17、f Check7.Value =1 ThenPauseFlag(2)= 1ElsePauseFlag(2) = 0End SubPrivate Sub Check8_Click()If Check8.Value = 1 ThenPauseFlag(3) = 1ElsePauseFlag(3) = 0End IfEnd Sub其中的PauseFlag是个全局变量用于指示该柱形图的数据是不是暂停了，如果是, 在程序刷新的过程中则不对其刷新。3.6 报表与记录 工业生产中，保留历史数据是必须的。为了分析一些特殊情况下的原因，必须要知 道相关的数据，所以保留历史数据是很重要的部分。数据量大的时候可以使

18、用数据库， 但是小数据量可以使用文件保存数据的方式。这里，使用文件的方式记录读取的数据。Private Sub Check9_Click()FileFlag = Check9.ValueIf FileFlag = 1 ThenFileNo = FreeFile()Open "C:UsersChengDesktopshunjun" & Str(Year(Now) & " 年" &Str(Month(Now) & "月"& Str(Day(Now) & "日.txt" F

19、or Append As FileNoElseClose FileNo当保存文件复选框选中的时候，打开今天所对应的文件，当取消选中的时候，关闭 打开的文件。如果文件打开，相应的变量的状态会更改以指示当前需要向文件中写入数 据，所以定时中断的时候，会向文件中写入数据。If FileFlag = 1 The nPrint #FileNo, Date; Time, Str(vtltemValues(1), Str(vtltemValues(1),Str(vtltemValues(1), Str(vtItemValues(1)End If4程序测试4.1测试过程软件的测试主要包含连接测试，显示与隐藏测

20、试，暂停测试和数据记录测试连接测试打开程序，点击运行。然后分别点击连接和加项按钮退出课程设计组长：程咂均组员，周星宇石雅楠图4-1连接测试显示与隐藏测试在程序运行状态下，选中隐藏复选框。图4-2显示与隐藏暂停按钮取消所有隐藏复选框，然后选中部分暂停按钮。如下图所示图4-3暂停数据保存选中保存数据复选框，记录当前时间，过30秒取消选中图4-4保存数据4.2测试结果连接结果100为了更方便的显示结果，显示的颜色会随着数据的变化而变化，数据越接近于 柱形图的颜色就越接近于红色。数据越接近于0,柱形图颜色越接近于绿色。图4-5数据显示测试显示与隐藏结果勾选前两个隐藏复选框后，发现相关的容隐藏了图4-6

21、显示与隐藏暂停显示勾选暂停显示后，相应的柱形图不再同旁边的数据一起刷新了图4-7暂停显示数据保存结果当勾选保存数据复选框后，数据便被写入当天的文本文件。下图中左边一列记录的 日期和时间，右边记录的是四个变量的数据。匚】丿匕ZL.T.i：4.DEE-ZET1-C-E=-2E7.MxE37i'H- J；i?l 11if 1N H叫 Ij19 LI/J2L71T；K弓 E5：aT7H)Z£：邮 HUM?35L3?Tl-i：e£3詞乔充rej'L/i/2sjit：!? 2FWI2USE? £4列吧】川zi.：H：r&1.| Jl.HKMf200J

22、'IZIJTlK'il raK1.7OM36L TME-i兀I d 忙ZliilTzll2UTII29. 447113141734：jai.-j.iL'n21 .1 L2am彌3.30 Ktmi# 3/1-|4,!11jn.4Ja：T=® ：£T®12. H2Tfi12询笳£Sui1血10餅小IQ】加ZL：T：Z21巧皿】氐54 3Q1?ZLJTSEI.QMiQ孩QU：2DLJ : /12E1JTl：4Z3.GKIT52D.GiaT9si saws討IJ 爲毗2LJT-S2.T(|L理伽】32咖心血a T：at.SjiuuriT2

23、 5- fiiiirT35, ji'ifiiT:叫內】门三UdTcff帥團2T.防氏計.窗201虫七月二2LvlT;S?j.5W2C誰呦弹0 <6Htd】.T佈耙禅E* ：知】xHLQ-13/12Zllll ：X«rj.scaz?30.54WM 1-3 3GT? N-ni,!KZLilTlAw.QMiar兀妙：3?. NKITZD1J.1:/LZZl-lTiZ：35L应>4氐弗l 6fllE=-i-M- .ah2LJTrSKITWM/ M.71 T .M14 fT'T4聊匸茎泗仙止3.：TrX47. M»T21nl：MK>zi：it：vnz

24、-f.ienfiZ umZCilJ?LZZLlITlZS丑mg5ELZZC4I屉 Z3C4二? 14 .KZL.3Tl»TT.aars-ET-EIT：尿 C37：宝九山口打ZkzlT=«i虫1.34&适g£LK!iS6Cl M&S£?irn/' /frj. Hfrl-:图4-8数据保存5 程序文档5.1 使用说明双击shunjun文件夹中的“工程1.exe”，程序开始执行。连接-加项，数据就能正 常显示了。隐藏，暂停和保存数据复选框分别控制的是隐藏柱形图，柱形图暂停更新和 保存文件。5.2 程序说明Option Base 1Opt

25、ion Explicit'建立OPC对象-声明变量Dim WithEvents objServer As OPCServerDim objGroups As OPCGroupsDim WithEvents objTestGrp As OPCGroupDim objItems As OPCItemsDim lServerHandles() As LongDim PauseFlag(1 To 4) As IntegerDim FileFlag As IntegerDim FileNoPrivate Sub BtnConnnect_Click()' 调用 Connect 子程序Cal

26、l Connect("OPCJ.SampleServer.1")End SubPrivate Sub btnAddItem_Click()' 调用 AddItem 子程序Call AddItemIf Not objTestGrp Is Nothing ThenIf objTestGrp.OPCItems.Count > 0 Then' 启动定时器TmUpdate.Enabled = TrueElseEnd IfEnd IfEnd SubPrivate Sub btnQuit_Click()' 卸载窗体Unload FmMainEnd SubPr

27、ivate Sub Check1_Click()If Check1.Value = 1 ThenPicBar(1).Visible = FalselbBar(1).Visible = FalseLabel1.Visible = FalseElsePicBar(1).Visible = TruelbBar(1).Visible = TrueLabel1.Visible = TrueEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenPicBar(2).Visible = FalselbBar(2).Visible = Fa

28、lseLabel2.Visible = FalseElsePicBar(2).Visible = TruelbBar(2).Visible = TrueLabel2.Visible = TrueEnd IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 ThenPicBar(3).Visible = FalselbBar(3).Visible = FalseLabel3.Visible = FalseElsePicBar(3).Visible = TruelbBar(3).Visible = TrueLabel3.Visible = T

29、rueEnd IfEnd SubPrivate Sub Check4_Click()If Check4.Value = 1 ThenPicBar(4).Visible = FalselbBar(4).Visible = FalseLabel4.Visible = FalseElsePicBar(4).Visible = TruelbBar(4).Visible = TrueLabel4.Visible = TrueEnd IfEnd SubPrivate Sub Check5_Click()If Check5.Value = 1 ThenPauseFlag(4) = 1ElsePauseFla

30、g(4) = 0End SubPrivate Sub Check6_Click()If Check6.Value = 1 ThenPauseFlag(1) = 1ElsePauseFlag(1) = 0End IfEnd SubPrivate Sub Check7_Click()If Check7.Value = 1 ThenPauseFlag(2) = 1ElsePauseFlag(2) = 0End IfEnd SubPrivate Sub Check8_Click()If Check8.Value = 1 ThenPauseFlag(3) = 1ElsePauseFlag(3) = 0E

31、nd SubPrivate Sub Check9_Click()FileFlag = Check9.ValueIf FileFlag = 1 ThenFileNo = FreeFile()Open "C:UsersChengDesktopshunjun" & Str(Year(Now) & " 年" &Str(Month(Now) & "月"& Str(Day(Now) & "日.txt" For Append As FileNoElseClose FileNoEnd

32、 IfEnd SubPrivate Sub Form_Load()TmUpdate.Enabled = FalseTmUpdate.Interval = 1000End SubSub Connect(strProgID As String, Optional strNode As String)If objServer Is Nothing Then'建立一个OPC服务器对象Set objServer = New OPCServerIf objServer.ServerState = OPCDisconnected Then'连接OPC服务器objServer.Connect

33、strProgID, strNodeEnd IfIf objGroups Is Nothing Then'建立一个OPC组集合Set objGroups = objServer.OPCGroupsEnd IfIf objTestGrp Is Nothing Then'添加一个OPC组Set objTestGrp = objGroups.Add("TestGrp")End IfEnd SubSub AddItem()Dim strItemIDs(4) As StringDim lClientHandles(4) As LongDim lErrors() As

34、LongDim I As IntegerIf objTestGrp Is Nothing ThenExit SubEnd IfIf Not objItems Is Nothing ThenIf objItems.Count > 0 ThenExit SubEnd IfEnd If' 设置组活动状态 objTestGrp.IsActive = True' 取消组非同期通知 objTestGrp.IsSubscribed = False' 建立 OPC 项集合Set objItems = objTestGrp.OPCItems' 生成标签的项标识符strIte

35、mIDs(4) = "TAG4"strItemIDs(1) = "TAG1"strItemIDs(2) = "TAG2"strItemIDs(3) = "TAG3" lClientHandles(4) = 4 lClientHandles(1) = 1 lClientHandles(2) = 2 lClientHandles(3) = 3添加OPC项Call objItems.AddItems(4, strItemIDs, _ lClientHandles, lServerHandles, lErrors)End

36、SubSub Disconnect()Dim lErrors() As LongIf Not objItems Is Nothing ThenIf objItems.Count > 0 Then'清除OPC项objItems.Remove 4, lServerHandles, lErrorsEnd IfSet objItems = NothingEnd IfIf Not objTestGrp Is Nothing Then'清除OPC组objGroups.Remove "TestGrp"Set objTestGrp = NothingEnd IfIf

37、Not objGroups Is Nothing ThenSet objGroups = NothingEnd IfIf Not objServer Is Nothing ThenIf objServer.ServerState <> OPCDisconnected Then'断开OPC服务器.objServer.DisconnectEnd IfSet objServer = NothingEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)' 调用 Disconnect 子程序Call DisconnectClose FileNoEnd SubPrivate Sub tmUpdate_Timer()Dim vtItemValues() As VariantDim lErrors() As LongDim strBuf As StringDim nWidth As IntegerDim nHeight As IntegerDim nDrawHeight As IntegerDim sglScale As SingleDim I As IntegerSyncRead OPCCache, vtItemValues, lErrors' 棒图的表示For I =