📄
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form 串口调试软件
BackColor = &H0091CACA&
BorderStyle = 1 'Fixed Single
Caption = "串口调试软件V1.0"
ClientHeight = 6360
ClientLeft = 4020
ClientTop = 3120
ClientWidth = 10815
FillColor = &H0091CACA&
ForeColor = &H0091CACA&
Icon = "串口调试助手.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "串口调试助手.frx":030A
ScaleHeight = 6360
ScaleWidth = 10815
Begin MSComDlg.CommonDialog CommonDialog1
Left = 8160
Top = 5880
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "文本文件（*.txt）|*.txt"
End
Begin VB.Timer TmrNowTime
Interval = 1000
Left = 1320
Top = 4320
End
Begin VB.Timer TmrAutoSend
Left = 7680
Top = 5880
End
Begin MSCommLib.MSComm MSComm
Left = 7080
Top = 5760
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.PictureBox Picture1
BackColor = &H00E0E0E0&
Height = 500
Left = 9360
Picture = "串口调试助手.frx":3EEC
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 43
Top = 5850
Width = 500
End
Begin VB.TextBox TxtAutoSendTime
Height = 300
Left = 1320
TabIndex = 41
Text = "1000"
Top = 5730
Width = 660
End
Begin VB.CommandButton CmdAmend
Appearance = 0 'Flat
Caption = "更改"
Height = 300
Left = 1250
TabIndex = 37
Top = 3450
Width = 505
End
Begin VB.CommandButton CmdSaveDisp
Appearance = 0 'Flat
Caption = "保存显示数据"
Height = 300
Left = 30
TabIndex = 36
Top = 3450
Width = 1225
End
Begin VB.CommandButton CmdHelp
Caption = "关于"
Height = 300
Left = 8760
TabIndex = 21
Top = 6050
Width = 505
End
Begin VB.CommandButton CmdQuit
Caption = "关闭程序"
Height = 495
Left = 9900
TabIndex = 20
Top = 5820
Width = 870
End
Begin VB.CommandButton CmdClearCounter
Caption = "计数清零"
Height = 300
Left = 6100
TabIndex = 19
Top = 6080
Width = 865
End
Begin VB.CommandButton CmdSendFile
Caption = "发送文件"
Height = 280
Left = 5580
TabIndex = 18
Top = 5700
Width = 900
End
Begin VB.TextBox TxtSendPath
Alignment = 2 'Center
BackColor = &H0091CACA&
Height = 270
Left = 3800
TabIndex = 17
Text = "还没有选择文件"
Top = 5740
Width = 1700
End
Begin VB.CommandButton CmdSelectFile
Caption = "选择发送文件"
Height = 280
Left = 2520
TabIndex = 16
Top = 5700
Width = 1225
End
Begin VB.TextBox TxtTXCount
Alignment = 2 'Center
BackColor = &H0091CACA&
Height = 270
Left = 4680
TabIndex = 15
Text = "TX:0"
Top = 6080
Width = 1340
End
Begin VB.TextBox TxtRXCount
Alignment = 2 'Center
BackColor = &H0091CACA&
Height = 270
Left = 3340
TabIndex = 14
Text = "RX:0"
Top = 6080
Width = 1350
End
Begin VB.TextBox TxtStatus
Alignment = 2 'Center
BackColor = &H0091CACA&
Height = 270
Left = 260
TabIndex = 13
Top = 6080
Width = 3100
End
Begin VB.CheckBox ChkAutoSend
BackColor = &H0091CACA&
Caption = "Check4"
Height = 255
Left = 30
TabIndex = 12
Top = 5480
Width = 255
End
Begin VB.CheckBox ChkHexSend
BackColor = &H0091CACA&
Caption = "Check3"
Height = 255
Left = 30
TabIndex = 11
Top = 5160
Width = 255
End
Begin VB.CommandButton CmdSend
Caption = "手动发送"
Height = 300
Left = 1590
TabIndex = 10
Top = 5160
Width = 870
End
Begin VB.CommandButton CmdClearSend
Caption = "清空重填"
Height = 300
Left = 100
TabIndex = 9
Top = 4850
Width = 870
End
Begin VB.TextBox TxtSend
Height = 865
Left = 2560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 8
Top = 4820
Width = 8225
End
Begin VB.TextBox TxtSavePath
BackColor = &H0091CACA&
Height = 270
Left = 60
TabIndex = 7
Text = "C:\COMDATA"
Top = 3760
Width = 1650
End
Begin VB.CheckBox ChkHexReceive
BackColor = &H0091CACA&
Caption = "Check2"
Height = 255
Left = 50
TabIndex = 6
Top = 3100
Width = 255
End
Begin VB.CheckBox ChkAutoClear
BackColor = &H0091CACA&
Caption = "Check1"
Height = 255
Left = 50
TabIndex = 5
Top = 2850
Width = 255
End
Begin VB.CommandButton CmdStopdisp
Caption = "停止显示"
Height = 310
Left = 30
TabIndex = 4
Top = 2520
Width = 1050
End
Begin VB.CommandButton CmdClearReceive
Caption = "清空接收区"
Height = 310
Left = 30
TabIndex = 3
Top = 2190
Width = 1050
End
Begin VB.Frame Frame1
BackColor = &H0091CACA&
Height = 2200
Left = 0
TabIndex = 2
Top = -100
Width = 1650
Begin VB.ComboBox CboStopbit
Height = 300
ItemData = "串口调试助手.frx":7ACE
Left = 750
List = "串口调试助手.frx":7ADB
TabIndex = 26
Text = "1"
Top = 1300
Width = 800
End
Begin VB.ComboBox CboDatabit
Height = 300
ItemData = "串口调试助手.frx":7AEA
Left = 750
List = "串口调试助手.frx":7AFA
TabIndex = 25
Text = "8"
Top = 1000
Width = 800
End
Begin VB.ComboBox CboParitybit
Height = 300
ItemData = "串口调试助手.frx":7B0A
Left = 750
List = "串口调试助手.frx":7B1D
TabIndex = 24
Text = "NONE"
Top = 700
Width = 800
End
Begin VB.ComboBox CboBaudrate
Height = 300
ItemData = "串口调试助手.frx":7B3F
Left = 750
List = "串口调试助手.frx":7B6A
TabIndex = 23
Text = "9600"
Top = 400
Width = 800
End
Begin VB.ComboBox CboCom
Height = 300
ItemData = "串口调试助手.frx":7BC3
Left = 750
List = "串口调试助手.frx":7BF4
TabIndex = 22
Text = "COM1"
Top = 111
Width = 800
End
Begin VB.CommandButton CmdSwitch
Caption = "关闭串口"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -