repos_ecs/串口调试工具/ModScan/modscan32/ex1.frm

VERSION 4.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6570
   ClientLeft      =   1140
   ClientTop       =   915
   ClientWidth     =   8310
   Height          =   6975
   Left            =   1080
   LinkTopic       =   "Form1"
   ScaleHeight     =   6570
   ScaleWidth      =   8310
   Top             =   570
   Width           =   8430
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   1080
      Top             =   360
   End
   Begin VB.Frame inputregs 
      Caption         =   "INPUT REGS"
      Height          =   4575
      Left            =   4320
      TabIndex        =   8
      Top             =   1440
      Width           =   1695
      Begin VB.TextBox inregsaddress 
         Height          =   285
         Left            =   480
         TabIndex        =   9
         Text            =   "1"
         Top             =   360
         Width           =   735
      End
      Begin VB.Label inputreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   9
         Left            =   480
         TabIndex        =   20
         Top             =   4080
         Width           =   735
      End
      Begin VB.Label inputreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   8
         Left            =   480
         TabIndex        =   19
         Top             =   3720
         Width           =   735
      End
      Begin VB.Label inputreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   7
         Left            =   480
         TabIndex        =   18
         Top             =   3360
         Width           =   735
      End
      Begin VB.Label inputreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   6
         Left            =   480
         TabIndex        =   17
         Top             =   3000
         Width           =   735
      End
      Begin VB.Label inputreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   5
         Left            =   480
         TabIndex        =   16
         Top             =   2640
         Width           =   735
      End
      Begin VB.Label inputreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   4
         Left            =   480
         TabIndex        =   15
         Top             =   2280
         Width           =   735
      End
      Begin VB.Label inputreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   3
         Left            =   480
         TabIndex        =   14
         Top             =   1920
         Width           =   735
      End
      Begin VB.Label inputreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   2
         Left            =   480
         TabIndex        =   13
         Top             =   1560
         Width           =   735
      End
      Begin VB.Label inputreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   1
         Left            =   480
         TabIndex        =   12
         Top             =   1200
         Width           =   735
      End
      Begin VB.Label inputreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   0
         Left            =   480
         TabIndex        =   11
         Top             =   840
         Width           =   735
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "HOLDING REGS"
      Height          =   4575
      Left            =   6360
      TabIndex        =   4
      Top             =   1440
      Width           =   1455
      Begin VB.TextBox holdingregsaddress 
         Height          =   285
         Left            =   360
         TabIndex        =   7
         Text            =   "1"
         Top             =   360
         Width           =   855
      End
      Begin VB.Label holdingreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   9
         Left            =   360
         TabIndex        =   29
         Top             =   4080
         Width           =   735
      End
      Begin VB.Label holdingreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   8
         Left            =   360
         TabIndex        =   28
         Top             =   3720
         Width           =   735
      End
      Begin VB.Label holdingreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   7
         Left            =   360
         TabIndex        =   27
         Top             =   3360
         Width           =   735
      End
      Begin VB.Label holdingreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   6
         Left            =   360
         TabIndex        =   26
         Top             =   3000
         Width           =   735
      End
      Begin VB.Label holdingreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   5
         Left            =   360
         TabIndex        =   25
         Top             =   2640
         Width           =   735
      End
      Begin VB.Label holdingreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   4
         Left            =   360
         TabIndex        =   24
         Top             =   2280
         Width           =   735
      End
      Begin VB.Label holdingreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   3
         Left            =   360
         TabIndex        =   23
         Top             =   1920
         Width           =   735
      End
      Begin VB.Label holdingreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   2
         Left            =   360
         TabIndex        =   22
         Top             =   1560
         Width           =   735
      End
      Begin VB.Label holdingreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   1
         Left            =   360
         TabIndex        =   21
         Top             =   1200
         Width           =   735
      End
      Begin VB.Label holdingreg 
         Alignment       =   2  'Center
         Caption         =   "0000"
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   10
         Top             =   840
         Width           =   735
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "COILS"
      Height          =   4575
      Left            =   2520
      TabIndex        =   3
      Top             =   1440
      Width           =   1455
      Begin VB.CheckBox coilstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   9
         Left            =   600
         TabIndex        =   50
         Top             =   4080
         Width           =   255
      End
      Begin VB.CheckBox coilstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   8
         Left            =   600
         TabIndex        =   49
         Top             =   3720
         Width           =   255
      End
      Begin VB.CheckBox coilstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   7
         Left            =   600
         TabIndex        =   48
         Top             =   3360
         Width           =   255
      End
      Begin VB.CheckBox coilstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   6
         Left            =   600
         TabIndex        =   47
         Top             =   3000
         Width           =   255
      End
      Begin VB.CheckBox coilstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   5
         Left            =   600
         TabIndex        =   46
         Top             =   2640
         Width           =   255
      End
      Begin VB.CheckBox coilstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   4
         Left            =   600
         TabIndex        =   45
         Top             =   2280
         Width           =   255
      End
      Begin VB.CheckBox coilstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   3
         Left            =   600
         TabIndex        =   44
         Top             =   1920
         Width           =   255
      End
      Begin VB.CheckBox coilstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   2
         Left            =   600
         TabIndex        =   43
         Top             =   1560
         Width           =   255
      End
      Begin VB.CheckBox coilstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   1
         Left            =   600
         TabIndex        =   42
         Top             =   1200
         Width           =   255
      End
      Begin VB.CheckBox coilstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   0
         Left            =   600
         TabIndex        =   41
         Top             =   840
         Width           =   255
      End
      Begin VB.TextBox coiladdress 
         Height          =   285
         Left            =   360
         TabIndex        =   6
         Text            =   "1"
         Top             =   360
         Width           =   735
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "INPUTS"
      Height          =   4575
      Left            =   600
      TabIndex        =   2
      Top             =   1440
      Width           =   1575
      Begin VB.CheckBox inputstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   9
         Left            =   600
         TabIndex        =   40
         Top             =   4080
         Width           =   255
      End
      Begin VB.CheckBox inputstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   8
         Left            =   600
         TabIndex        =   39
         Top             =   3720
         Width           =   255
      End
      Begin VB.CheckBox inputstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   7
         Left            =   600
         TabIndex        =   38
         Top             =   3360
         Width           =   255
      End
      Begin VB.CheckBox inputstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   6
         Left            =   600
         TabIndex        =   37
         Top             =   3000
         Width           =   255
      End
      Begin VB.CheckBox inputstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   5
         Left            =   600
         TabIndex        =   36
         Top             =   2640
         Width           =   255
      End
      Begin VB.CheckBox inputstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   4
         Left            =   600
         TabIndex        =   35
         Top             =   2280
         Width           =   255
      End
      Begin VB.CheckBox inputstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   3
         Left            =   600
         TabIndex        =   34
         Top             =   1920
         Width           =   255
      End
      Begin VB.CheckBox inputstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   2
         Left            =   600
         TabIndex        =   33
         Top             =   1560
         Width           =   255
      End
      Begin VB.CheckBox inputstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   1
         Left            =   600
         TabIndex        =   32
         Top             =   1200
         Width           =   255
      End
      Begin VB.CheckBox inputstatus 
         Enabled         =   0   'False
         Height          =   255
         Index           =   0
         Left            =   600
         TabIndex        =   31
         Top             =   840
         Width           =   255
      End
      Begin VB.TextBox inputaddress 
         Height          =   285
         Left            =   360
         TabIndex        =   5
         Text            =   "1"
         Top             =   360
         Width           =   735
      End
   End
   Begin VB.TextBox Device 
      Height          =   285
      Left            =   3720
      TabIndex        =   1
      Text            =   "1"
      Top             =   720
      Width           =   855
   End
   Begin VB.Label statusline 
      Alignment       =   2  'Center
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   840
      TabIndex        =   30
      Top             =   1080
      Width           =   6735
   End
   Begin VB.Label Label1 
      Caption         =   "Device"
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   0
         weight          =   700
         size            =   13.5
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3600
      TabIndex        =   0
      Top             =   240
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Public m_svr As IModSca

Dim PollHandle(4) As Integer
Dim status(4) As Integer
Dim SlaveDevice As Integer
Dim StartAddress(4) As Long

Dim Modbus_Id(4) As Long
Dim Counter As Integer
Dim temp As Integer
Dim Modbus_Addr As Long



Private Sub Text4_Change()

End Sub


Private Sub coiladdress_Change()

If (IsNumeric(coiladdress.Text)) Then
    StartAddress(1) = coiladdress.Text
    Modbus_Addr = Modbus_Id(1) + StartAddress(1)
    status(1) = m_svr.ModifyPollRequest(PollHandle(1), SlaveDevice, Modbus_Addr, 10)
    StatusMsg (status(1))
End If
    
End Sub

Private Sub Device_Change()

If (IsNumeric(Device.Text)) Then
    SlaveDevice = Device.Text

    Modbus_Addr = Modbus_Id(0) + StartAddress(0)
    temp = m_svr.ModifyPollRequest(PollHandle(0), SlaveDevice, Modbus_Addr, 10)

    Modbus_Addr = Modbus_Id(1) + StartAddress(1)
    temp = m_svr.ModifyPollRequest(PollHandle(1), SlaveDevice, Modbus_Addr, 10)

    Modbus_Addr = Modbus_Id(2) + StartAddress(2)
    temp = m_svr.ModifyPollRequest(PollHandle(2), SlaveDevice, Modbus_Addr, 10)

    Modbus_Addr = Modbus_Id(3) + StartAddress(3)
    temp = m_svr.ModifyPollRequest(PollHandle(3), SlaveDevice, Modbus_Addr, 10)
End If

End Sub

Private Sub Form_Load()

Set m_svr = CreateObject("ModScan32.Document")

    
Modbus_Id(0) = 10000   'input status prefix
Modbus_Id(1) = 0        'coil status prefix
Modbus_Id(2) = 30000    'input register prefix
Modbus_Id(3) = 40000    'holding register prefix

SlaveDevice = 1
For Counter = 0 To 3
    StartAddress(Counter) = 1
    Modbus_Addr = Modbus_Id(Counter) + StartAddress(Counter)
    PollHandle(Counter) = m_svr.CreatePollRequest(SlaveDevice, Modbus_Addr, 10)
   Next Counter

statusline = "** UNINITIALIZED **"
End Sub


Private Sub Form_Terminate()

For Counter = 0 To 4
    m_svr.DeletePollRequest (PollHandle(Counter))
    Next Counter
    
End Sub


Public Sub StatusMsg(Index As Integer)
If Index = 0 Then statusline = ""
If Index > 0 And Index < 256 Then statusline = "Slave Device Exception Response"
If Index = 256 Then statusline = "Invalid Handle"
If Index = 257 Then statusline = "Modbus Message Overrun"
If Index = 258 Then statusline = "Invalid Address"
If Index = 259 Then statusline = "Invalid Device Address"
If Index = 260 Then statusline = "Invalid Length Specification"
If Index = 261 Then statusline = "Invalid modbus command"
If Index = 262 Then statusline = "Driver Out-Of-Memory"
If Index = 263 Then statusline = "** Time-Out **"
If Index = 264 Then statusline = "Invalid Protocol Specification"
If Index = 265 Then statusline = "** Bad Checksum **"
If Index = 266 Then statusline = "Server NOT Connected"
If Index = 267 Then statusline = "Invalid Response from Driver"
If Index = 268 Then statusline = "Modbus Write Failure"
If Index = 269 Then statusline = "Remote Server not Connected"
If Index = 270 Then statusline = "** UNINITIALIZED **"
If Index = 271 Then statusline = "ModScan Demo Time Expired"


End Sub

Private Sub holdingregsaddress_Change()

If (IsNumeric(holdingregsaddress.Text)) Then
    StartAddress(3) = holdingregsaddress.Text
    Modbus_Addr = Modbus_Id(3) + StartAddress(3)
    status(3) = m_svr.ModifyPollRequest(PollHandle(3), SlaveDevice, Modbus_Addr, 10)
    StatusMsg (status(3))
End If
    
End Sub

Private Sub inputaddress_Change()

If (IsNumeric(inputaddress.Text)) Then
    StartAddress(0) = inputaddress.Text
    Modbus_Addr = Modbus_Id(0) + StartAddress(0)
    status(0) = m_svr.ModifyPollRequest(PollHandle(0), SlaveDevice, Modbus_Addr, 10)
    StatusMsg (status(0))
End If
    
End Sub

Private Sub inregsaddress_Change()

If (IsNumeric(inregsaddress.Text)) Then
    StartAddress(2) = inregsaddress.Text
    Modbus_Addr = Modbus_Id(2) + StartAddress(2)
    status(2) = m_svr.ModifyPollRequest(PollHandle(2), SlaveDevice, Modbus_Addr, 10)
    StatusMsg (status(2))
End If
    
End Sub

Private Sub Timer1_Timer()

For Counter = 0 To 9
    status(0) = m_svr.ReadValue(PollHandle(0), Counter, temp)
    StatusMsg (status(0))
If temp = 0 Then
    inputstatus(Counter).Value = 0
    Else
    inputstatus(Counter).Value = 1
    End If
Next Counter

For Counter = 0 To 9
    status(1) = m_svr.ReadValue(PollHandle(1), Counter, temp)
    StatusMsg (status(1))
If temp = 0 Then
    coilstatus(Counter).Value = 0
    Else
    coilstatus(Counter).Value = 1
    End If
Next Counter

For Counter = 0 To 9
    status(2) = m_svr.ReadValue(PollHandle(2), Counter, temp)
    StatusMsg (status(2))
    inputreg(Counter).Caption = temp
Next Counter
    
    
For Counter = 0 To 9
    status(3) = m_svr.ReadValue(PollHandle(3), Counter, temp)
    StatusMsg (status(3))
    holdingreg(Counter).Caption = temp
Next Counter


End Sub