form5.frm

一个VB开的调用组态王OPC SERVER的客户端程序代码,包括说明书

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form5 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "帮助主题"
   ClientHeight    =   6645
   ClientLeft      =   4065
   ClientTop       =   2070
   ClientWidth     =   7110
   Icon            =   "Form5.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6645
   ScaleWidth      =   7110
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      Caption         =   "退  出"
      Height          =   375
      Left            =   6120
      TabIndex        =   1
      Top             =   6240
      Width           =   855
   End
   Begin RichTextLib.RichTextBox RichTextBox1 
      Height          =   6255
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7095
      _ExtentX        =   12515
      _ExtentY        =   11033
      _Version        =   393217
      BackColor       =   12640511
      Enabled         =   -1  'True
      ScrollBars      =   2
      MousePointer    =   1
      TextRTF         =   $"Form5.frx":0742
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Form5
End Sub

Private Sub Form_Load()
Dim ss1 As String
Dim ss2 As String
Dim ss3 As String
Dim ss4, ss5, ss6 As String

ss1 = "  1、使用时，用户需要先启动与组态王的连接，可以控制与哪台计算机的组态王进行连接。" + Chr(13) + Chr(10) + "  2、用户可以对项目名直接输入，变量名称+“.”+域名称。也可以通过选择列表中的项来选择。如变量名为“汽包压力”，如果用户需要读取它的值，用户合成项目名称是“汽包压力.Value”，Value是变量的数值域。" + Chr(13) + Chr(10)
ss2 = "  3、当用户选择或输入了项目名后，将其加入到数据采集表中。然后程序自动采集数据，用户也可对读写型的变量进行写操作。" + Chr(13) + Chr(10)
ss3 = "  4、用户可以修改数据采集的频率。" + Chr(13) + Chr(10) + "  5、程序退出之前，请务必先断开与服务器的连接。" + Chr(13) + Chr(10)
ss4 = "  6、***************错误码表***************" + Chr(13) + Chr(10) + "     0    成功" + Chr(13) + Chr(10) + "    -1    OPC SERVER已经被非法关闭" + Chr(13) + Chr(10) + "    -2    找不到OPC SERVER的ID" + Chr(13) + Chr(10) + "    -3    连接OPC SERVER不成功" + Chr(13) + Chr(10)
ss5 = "    -4    枚举ITEMS错误" + Chr(13) + Chr(10) + "    -5    OPC SERVER没有定义ITEMS" + Chr(13) + Chr(10) + "    -6    内存分配错误" + Chr(13) + Chr(10) + "    -7    在向列中加入ITEMS时出现错误" + Chr(13) + Chr(10) + "    -9    读ITEMS时出现错误" + Chr(13) + Chr(10) + "    -10   不能识别的数据类型" + Chr(13) + Chr(10)
ss6 = "    -11   读ITEMS的质量戳时出现错误" + Chr(13) + Chr(10) + "    -12   向ITEMS中写入数据时出现错误" + Chr(13) + Chr(10) + "    -13   用户添加变量的变量名错误" + Chr(13) + Chr(10) + "    -14   用户读取的变量序号越界" + Chr(13) + Chr(10) + " " + Chr(13) + Chr(10) + "        蔡利平"
RichTextBox1.Text = ss1 + ss2 + ss3 + ss4 + ss5 + ss6

End Sub

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
Command1.SetFocus
End Sub

Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Command1.SetFocus
End Sub