📄 form1.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "HWS600电源信息采集与设置"
ClientHeight = 8025
ClientLeft = 3990
ClientTop = 2580
ClientWidth = 7740
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8025
ScaleWidth = 7740
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 400
Left = 7200
Top = 3120
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 400
Left = 6720
Top = 3120
End
Begin VB.Frame Frame9
Caption = "清除参数"
Height = 855
Left = 120
TabIndex = 55
Top = 2400
Width = 2535
Begin VB.CommandButton Command6
Caption = "清除存储参数恢复默认值"
Height = 375
Left = 120
TabIndex = 56
Top = 240
Width = 2175
End
End
Begin VB.Frame Frame1
Caption = "选择"
Height = 2295
Left = 120
TabIndex = 7
Top = 0
Width = 2535
Begin VB.ComboBox Combo11
Height = 300
ItemData = "Form1.frx":08CA
Left = 840
List = "Form1.frx":08FE
TabIndex = 11
Text = "Combo11"
Top = 240
Width = 1455
End
Begin VB.ComboBox baudrate
Height = 300
ItemData = "Form1.frx":0969
Left = 840
List = "Form1.frx":096B
TabIndex = 10
Text = "baudrate"
Top = 720
Width = 1455
End
Begin VB.ComboBox adr
Height = 300
Left = 840
TabIndex = 9
Text = "adr"
Top = 1200
Width = 1455
End
Begin VB.CommandButton stopcom
Caption = "关闭串口"
Height = 375
Left = 1320
TabIndex = 8
Top = 1680
Width = 975
End
Begin VB.CommandButton st
Caption = "打开串口"
Height = 375
Left = 120
TabIndex = 0
Top = 1680
Width = 975
End
Begin VB.Label Label3
Caption = "串口号"
Height = 255
Left = 120
TabIndex = 14
Top = 240
Width = 615
End
Begin VB.Label Label2
Caption = "波特率"
Height = 255
Left = 120
TabIndex = 13
Top = 720
Width = 615
End
Begin VB.Label Label4
Caption = "地址号"
Height = 255
Left = 120
TabIndex = 12
Top = 1200
Width = 615
End
End
Begin VB.Frame Frame4
Caption = "查看数据的接收情况"
Height = 1575
Left = 120
TabIndex = 4
Top = 6360
Width = 7575
Begin VB.TextBox send
Height = 270
Left = 720
TabIndex = 61
Top = 1080
Width = 2655
End
Begin VB.TextBox Text11
Height = 270
Left = 4080
TabIndex = 17
Top = 1080
Width = 2295
End
Begin VB.TextBox Text1
Height = 735
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 6
Top = 240
Width = 7335
End
Begin VB.CommandButton cls
Caption = "清空数据"
Height = 375
Left = 6480
TabIndex = 5
Top = 1080
Width = 975
End
Begin VB.Label Label23
Caption = "发送帧"
Height = 255
Left = 120
TabIndex = 62
Top = 1080
Width = 615
End
Begin VB.Label Label16
Caption = "接收帧"
Height = 255
Left = 3480
TabIndex = 18
Top = 1080
Width = 615
End
End
Begin VB.Frame Frame3
Caption = "设备参数"
Height = 2895
Left = 120
TabIndex = 3
Top = 3360
Width = 7575
Begin VB.Frame Frame11
Caption = "HWS600电源输入输出电量"
Height = 2535
Left = 120
TabIndex = 63
Top = 240
Width = 2415
Begin VB.TextBox Text18
Height = 270
Left = 840
TabIndex = 81
Top = 2040
Width = 615
End
Begin VB.TextBox Text9
Height = 270
Left = 840
TabIndex = 68
Top = 240
Width = 615
End
Begin VB.TextBox Text2
Height = 270
Left = 840
TabIndex = 67
Top = 600
Width = 615
End
Begin VB.TextBox Text3
Height = 270
Left = 840
TabIndex = 66
Top = 960
Width = 615
End
Begin VB.TextBox Text4
Height = 270
Left = 840
TabIndex = 65
Top = 1320
Width = 615
End
Begin VB.TextBox Text10
Height = 270
Left = 840
TabIndex = 64
Top = 1680
Width = 585
End
Begin VB.Label Label31
Caption = "A"
Height = 255
Left = 1560
TabIndex = 82
Top = 2160
Width = 255
End
Begin VB.Label Label30
Caption = "电流总值"
Height = 255
Left = 120
TabIndex = 80
Top = 2040
Width = 735
End
Begin VB.Label Label11
Caption = "交流电压"
Height = 255
Left = 120
TabIndex = 79
Top = 240
Width = 735
End
Begin VB.Label Label13
Caption = "直流电压"
Height = 255
Left = 120
TabIndex = 78
Top = 600
Width = 735
End
Begin VB.Label Label7
Caption = "V"
Height = 255
Left = 1560
TabIndex = 77
Top = 360
Width = 255
End
Begin VB.Label Label8
Caption = "V"
Height = 255
Left = 1560
TabIndex = 76
Top = 720
Width = 255
End
Begin VB.Label Label9
Caption = "直流电流"
Height = 255
Left = 120
TabIndex = 75
Top = 1320
Width = 735
End
Begin VB.Label Label10
Caption = "A"
Height = 255
Left = 1560
TabIndex = 74
Top = 1080
Width = 255
End
Begin VB.Label Label12
Caption = "A"
Height = 255
Left = 1560
TabIndex = 73
Top = 1440
Width = 255
End
Begin VB.Label Label14
Caption = "A"
Height = 255
Left = 1560
TabIndex = 72
Top = 1800
Width = 255
End
Begin VB.Label Label21
Caption = "(1路)"
Height = 255
Left = 1800
TabIndex = 71
Top = 1080
Width = 495
End
Begin VB.Label Label22
Caption = "(2路)"
Height = 255
Left = 1800
TabIndex = 70
Top = 1440
Width = 495
End
Begin VB.Label Label24
Caption = "(3路)"
Height = 255
Left = 1800
TabIndex = 69
Top = 1800
Width = 495
End
End
Begin VB.Frame Frame5
Caption = "精度调整"
Height = 1215
Left = 2640
TabIndex = 54
Top = 1080
Width = 4815
Begin VB.TextBox Text22
Height = 270
Left = 4080
TabIndex = 91
Top = 240
Width = 615
End
Begin VB.ComboBox Combo1
Height = 300
Left = 120
TabIndex = 90
Top = 240
Width = 2295
End
Begin VB.CommandButton Command3
Caption = "确定"
Height = 255
Left = 4080
TabIndex = 86
Top = 840
Width = 615
End
Begin VB.TextBox Text21
Height = 270
Left = 3000
TabIndex = 85
Top = 840
Width = 735
End
Begin VB.TextBox Text20
Height = 270
Left = 1560
TabIndex = 84
Top = 840
Width = 735
End
Begin VB.TextBox Text19
Height = 270
Left = 120
TabIndex = 83
Top = 840
Width = 735
End
Begin VB.Label Label34
Caption = "调整系数"
Height = 255
Left = 3000
TabIndex = 89
Top = 600
Width = 735
End
Begin VB.Label Label33
Caption = "实测值"
Height = 255
Left = 1560
TabIndex = 88
Top = 600
Width = 735
End
Begin VB.Label Label32
Caption = "标准值"
Height = 255
Left = 120
TabIndex = 87
Top = 600
Width = 735
End
End
Begin VB.Frame Frame7
Caption = "HWS600电源状态"
Height = 975
Left = 2640
TabIndex = 42
Top = 120
Width = 4815
Begin VB.TextBox Text17
Height = 270
Left = 1200
TabIndex = 46
Top = 600
Width = 3255
End
Begin VB.TextBox Text16
Height = 270
Left = 1200
TabIndex = 45
Top = 240
Width = 3255
End
Begin VB.Label Label26
Caption = "电源告警信息"
Height = 255
Left = 120
TabIndex = 44
Top = 600
Width = 1215
End
Begin VB.Label Label25
Caption = "开关机的状态"
Height = 255
Left = 120
TabIndex = 43
Top = 240
Width = 1095
End
End
Begin VB.TextBox Text15
Height = 270
Left = 6240
TabIndex = 24
Top = 360
Width = 495
End
Begin VB.TextBox Text14
Height = 270
Left = 5520
TabIndex = 23
Top = 360
Width = 495
End
Begin VB.TextBox Text5
Height = 270
Left = 4080
TabIndex = 20
Top = 360
Width = 495
End
Begin VB.TextBox Text6
Height = 270
Left = 4800
TabIndex = 19
Top = 360
Width = 495
End
Begin VB.CommandButton atuosend
Caption = "获取HWS60电源参数"
Default = -1 'True
Height = 375
Left = 5040
MaskColor = &H00E0E0E0&
Style = 1 'Graphical
TabIndex = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -