form4.frm

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

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Form4 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "写变量对话框"
   ClientHeight    =   1620
   ClientLeft      =   5100
   ClientTop       =   3825
   ClientWidth     =   3900
   Icon            =   "Form4.frx":0000
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1620
   ScaleWidth      =   3900
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1680
      TabIndex        =   6
      Text            =   "0"
      Top             =   720
      Width           =   2175
   End
   Begin MSComCtl2.UpDown UpDown1 
      Height          =   495
      Left            =   3480
      TabIndex        =   4
      Top             =   60
      Width           =   240
      _ExtentX        =   423
      _ExtentY        =   873
      _Version        =   393216
      Value           =   1
      Max             =   65535
      Min             =   1
      Enabled         =   -1  'True
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退  出"
      Height          =   375
      Left            =   2760
      TabIndex        =   3
      Top             =   1200
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "写  入"
      Height          =   375
      Left            =   1800
      TabIndex        =   2
      Top             =   1200
      Width           =   855
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2400
      TabIndex        =   0
      Text            =   "1"
      Top             =   120
      Width           =   1095
   End
   Begin VB.Label Label2 
      Caption         =   "要写入的数值："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   0
      TabIndex        =   5
      Top             =   720
      Width           =   1695
   End
   Begin VB.Label Label1 
      Caption         =   "请输入所写变量的序号："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   375
      Left            =   0
      TabIndex        =   1
      Top             =   180
      Width           =   2415
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim bVal As Boolean
Dim lVal As Long
Dim fVal As Single
Dim sVal As String
Dim ret As Integer

xuhao = Val(Text1.Text)
If xuhao < 1 Or xuhao > TagNo Then
   MsgBox "无效的序号，请确认后再输入！", 48, "错误"
   Exit Sub
End If

Select Case Typ(xuhao - 1)
Case 11
bVal = Val(Text2.Text)
Case 3
lVal = Val(Text2.Text)
Case 4
fVal = Val(Text2.Text)
Case 8
sVal = Text2.Text
Case Else
   MsgBox "无效的数据类型，不能写数据。", 64, "错误"
   Exit Sub
End Select

ret = WriteTag(xuhao, bVal, lVal, fVal, sVal)

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Text1_Change()
If Val(Text1.Text) > 1 And Val(Text1.Text) < 65535 Then
  UpDown1.Value = Val(Text1.Text)
End If

End Sub

Private Sub UpDown1_DownClick()
Text1.Text = Str(UpDown1.Value)
End Sub

Private Sub UpDown1_UpClick()
Text1.Text = Str(UpDown1.Value)
End Sub