Rjh913828050/20231023_InSituLab_emb
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
f5d8de78e9
20231023_InSituLab_emb/Doc/各个传感器原始数据以及协议/MEMS色谱/Modscan32/ex1.frm

677 lines
19 KiB
Plaintext
Raw Normal View History

船新版本
2025-05-07 02:10:07 +00:00
VERSION 4.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 6975
ClientLeft = 1080
ClientTop = 570
ClientWidth = 8430
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 = "<22><><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD>"
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 = "<22><><EFBFBD>ּĴ<D6BC><C4B4><EFBFBD>"
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 = "<22><>Ȧ״̬"
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 = "<22><><EFBFBD><EFBFBD>״̬"
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 = "<22>豸"
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 = "* * δ<><CEB4>ʼ<EFBFBD><CABC> * *"
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 = "<22><><EFBFBD>豸<EFBFBD>쳣<EFBFBD><ECB3A3>Ӧ"
If Index = 256 Then statusline = "<22><>Ч<EFBFBD>ľ<EFBFBD><C4BE><EFBFBD>"
If Index = 257 Then statusline = "Modbus <20><>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD>"
If Index = 258 Then statusline = "<22><>Ч<EFBFBD>ĵ<EFBFBD>ַ"
If Index = 259 Then statusline = "<22><>Ч<EFBFBD><D0A7><EFBFBD>豸<EFBFBD><E8B1B8>ַ"
If Index = 260 Then statusline = "<22><>Ч<EFBFBD>ij<EFBFBD><C4B3>ȹ<EFBFBD><C8B9><EFBFBD>"
If Index = 261 Then statusline = "<22><>Ч<EFBFBD><D0A7> modbus <20><><EFBFBD><EFBFBD>"
If Index = 262 Then statusline = "<22><><EFBFBD><EFBFBD> <20>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD>"
If Index = 263 Then statusline = "* * <20><>ʱ * *"
If Index = 264 Then statusline = "<22><>Ч<EFBFBD><D0A7>Э<EFBFBD><D0AD><EFBFBD>淶"
If Index = 265 Then statusline = "* * <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>У<EFBFBD><D0A3><EFBFBD><EFBFBD> * *"
If Index = 266 Then statusline = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>"
If Index = 267 Then statusline = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>Ч"
If Index = 268 Then statusline = "Modbus д<><D0B4>ʧ<EFBFBD><CAA7>"
If Index = 269 Then statusline = "Զ<>̷<EFBFBD><CCB7><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>"
If Index = 270 Then statusline = "* * δ<><CEB4>ʼ<EFBFBD><CABC> * *"
If Index = 271 Then statusline = "ModScan <20><>ʾʱ<CABE><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
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
Reference in New Issue Copy Permalink