cinstruments.cls

这是一个实际的工程中所用的源程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CInstruments"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Event EvAddrInterupt(ByVal ScanAddr As Integer, ByVal InteruptAppear As Boolean) '仪表通信中断
Event EvCommInterupt(ByVal CommEvent As Long, ByVal InteruptAppear As Boolean)
Event EvAlarm(ByVal ScanAddr As Integer, ByVal AlarmAppear As Boolean)
Event EvZeroComplete(ByVal ScanAddr As Integer, ByVal OldZero As Double, ByVal NewZero As Double, ByVal ZeroError As Double)
Event EvOnComm(ByVal ScanAddr As Integer, ByVal Total As Double, ByVal Flow As Double, ByVal Speed As Double, ByVal SetValue As Double)

Private WithEvents mTech As frmTech2001 'frmXR2105
Attribute mTech.VB_VarHelpID = -1

Private Sub Class_Initialize()
Set mTech = New frmTech2001 'frmXR2105
Load mTech
End Sub
Public Sub OpenCommPort(Optional ByVal Port As Integer = 0)
    mTech.OpenCommPort Port
End Sub

Public Property Get DenyManipulate() As Boolean
    DenyManipulate = mTech.DenyManipulate
End Property

Public Property Let DenyManipulate(ByVal New_DenyManipulate As Boolean)
    mTech.DenyManipulate = New_DenyManipulate
End Property
'

Public Sub WriteXR(ByVal Addr As Integer, ByVal Value As Single)
    Call mTech.WriteXR(Addr, Value)
End Sub

Public Property Get LogDiretory() As String
    LogDiretory = mTech.LogDiretory
End Property

Public Property Let LogDiretory(ByVal New_LogDiretory As String)
    mTech.LogDiretory = New_LogDiretory
End Property


Private Sub Class_Terminate()
On Error Resume Next
Unload mTech
Set mTech = Nothing
End Sub
Public Sub Show(ByVal OwnerForm As Form)
    mTech.Show , OwnerForm
End Sub

Private Sub mTech_EvAddrInterupt(ByVal ScanAddr As Integer, ByVal InteruptAppear As Boolean)
    RaiseEvent EvAddrInterupt(ScanAddr, InteruptAppear)
End Sub

Private Sub mTech_EvAlarm(ByVal ScanAddr As Integer, ByVal AlarmAppear As Boolean)
    RaiseEvent EvAlarm(ScanAddr, AlarmAppear)
End Sub
'
Private Sub mTech_EvCommInterupt(ByVal CommEvent As Long, ByVal InteruptAppear As Boolean)
    RaiseEvent EvCommInterupt(CommEvent, InteruptAppear)
End Sub
Private Sub mTech_EvOnComm(ByVal ScanAddr As Integer, ByVal Total As Double, ByVal Flow As Double, ByVal Speed As Double, ByVal SetValue As Double)
    RaiseEvent EvOnComm(ScanAddr, Total, Flow, Speed, SetValue)
End Sub

Private Sub mTech_EvZeroComplete(ByVal ScanAddr As Integer, ByVal OldZero As Double, ByVal NewZero As Double, ByVal ZeroError As Double)
    RaiseEvent EvZeroComplete(ScanAddr, OldZero, NewZero, ZeroError)
End Sub