📄 参数检测单元检测板.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
Caption = "v"
ClientHeight = 6615
ClientLeft = 2730
ClientTop = 1710
ClientWidth = 6495
LinkTopic = "Form1"
ScaleHeight = 6615
ScaleWidth = 6495
Begin VB.CommandButton Command1
Caption = "关闭图片"
Height = 255
Left = 4560
TabIndex = 27
Top = 1200
Visible = 0 'False
Width = 975
End
Begin VB.PictureBox Picture1
Height = 4815
Left = 600
Picture = "参数检测单元检测板.frx":0000
ScaleHeight = 4755
ScaleWidth = 5115
TabIndex = 26
Top = 1080
Visible = 0 'False
Width = 5175
End
Begin VB.OptionButton Option4
Caption = "HEX显示"
Height = 300
Left = 4080
TabIndex = 24
Top = 0
Width = 975
End
Begin VB.OptionButton Option3
Caption = "ASC显示"
Height = 300
Left = 5040
TabIndex = 23
Top = 0
Value = -1 'True
Width = 975
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 180
Left = 1440
TabIndex = 20
Top = 5880
Visible = 0 'False
Width = 3615
Begin VB.OptionButton Option2
Caption = "发送ASC码数据串"
Height = 180
Left = 0
TabIndex = 22
Top = 0
Width = 1695
End
Begin VB.OptionButton Option1
Caption = "发送HEX码数据串"
Height = 180
Left = 1920
TabIndex = 21
Top = 0
Value = -1 'True
Width = 1695
End
End
Begin VB.CommandButton Command17
Caption = "清除"
Height = 255
Left = 5880
TabIndex = 19
Top = 6480
Width = 615
End
Begin VB.CommandButton Command16
Caption = "开始解密"
Height = 255
Left = 5400
TabIndex = 17
Top = 360
Width = 975
End
Begin VB.CommandButton Command15
Caption = "开始加密"
Height = 255
Left = 4440
TabIndex = 16
Top = 360
Width = 975
End
Begin VB.CommandButton Command11
Caption = "停止读取"
Height = 255
Left = 3360
TabIndex = 15
Top = 360
Width = 975
End
Begin VB.CommandButton Command10
Caption = "读取芯片"
Height = 255
Left = 2400
TabIndex = 14
Top = 360
Width = 975
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 1000
Left = 5760
Top = 4920
End
Begin VB.TextBox Text4
Enabled = 0 'False
Height = 270
Left = 5280
TabIndex = 13
Text = "1000"
Top = 6120
Width = 615
End
Begin VB.CommandButton Command9
Caption = "清除窗口"
Height = 255
Left = 2760
TabIndex = 12
Top = 0
Width = 975
End
Begin VB.ComboBox Combo1
Height = 300
IntegralHeight = 0 'False
ItemData = "参数检测单元检测板.frx":5B5C2
Left = 4920
List = "参数检测单元检测板.frx":5B5EA
TabIndex = 11
Text = "请选择芯片"
Top = 0
Width = 1455
End
Begin VB.CommandButton Command7
Caption = "发送"
Height = 255
Left = 5280
TabIndex = 10
Top = 6480
Width = 615
End
Begin VB.CommandButton Command5
Caption = "开始烧写"
Height = 255
Left = 1320
TabIndex = 9
Top = 360
Width = 975
End
Begin VB.TextBox Text3
Height = 270
Left = 1080
TabIndex = 8
Top = 0
Width = 2535
End
Begin VB.Timer Timer2
Interval = 1000
Left = 4440
Top = -120
End
Begin VB.CommandButton Command4
Caption = "打开文件"
Height = 255
Left = 120
TabIndex = 7
Top = 0
Width = 975
End
Begin VB.CheckBox Check2
Caption = "自动烧写"
Height = 255
Left = 3720
TabIndex = 6
Top = 0
Width = 1095
End
Begin VB.CheckBox Check4
Caption = "自动发送"
Height = 255
Left = 5280
TabIndex = 5
Top = 5760
Width = 1215
End
Begin VB.CommandButton Command19
Caption = "关闭串口"
Height = 255
Left = 1440
TabIndex = 4
Top = 0
Width = 975
End
Begin VB.CommandButton Command18
Caption = "打开串口"
Height = 255
Left = 120
TabIndex = 3
Top = 0
Width = 975
End
Begin VB.TextBox Text2
Height = 495
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Top = 6120
Width = 5295
End
Begin VB.Timer Timer1
Interval = 100
Left = 2160
Top = 1440
End
Begin MSCommLib.MSComm MSComm1
Left = 1440
Top = 1320
_ExtentX = 1005
_ExtentY = 1005
_Version = 327680
CommPort = 2
DTREnable = -1 'True
InBufferSize = 32767
OutBufferSize = 32767
RThreshold = 1
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 9600
Top = 16800
_ExtentX = 847
_ExtentY = 847
_Version = 327680
CancelError = -1 'True
Filter = "所有文件(*.*)|*.*|十六进制(*.hex)|*.hex|文本文件(*.txt)|*.txt|c语言(*.c)|*.c|汇编(*.asm)|*.asm"
FilterIndex = 2
Flags = 2097152
InitDir = "c:\windows\desktop"
End
Begin VB.TextBox Text1
Height = 5055
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 600
Width = 6495
End
Begin VB.Label Label3
Caption = "接收显示框："
Height = 255
Left = 120
TabIndex = 25
Top = 360
Width = 1095
End
Begin VB.Label Label2
Caption = "MS每次"
Height = 255
Left = 5880
TabIndex = 18
Top = 6120
Width = 615
End
Begin VB.Label Label1
Caption = "发送框："
Height = 255
Left = 120
TabIndex = 2
Top = 5880
Width = 735
End
Begin VB.Menu gongneng
Caption = "功能"
Begin VB.Menu tiaoshiqi
Caption = "串口数据调试器"
Checked = -1 'True
End
Begin VB.Menu shaoxie
Caption = "51串行烧写器"
End
Begin VB.Menu wer6we6
Caption = "-"
End
Begin VB.Menu savechuangkou
Caption = "保存窗口到文件"
End
Begin VB.Menu dfgs
Caption = "-"
End
Begin VB.Menu clearwin
Caption = "清除窗口"
End
End
Begin VB.Menu chuankoushezhi
Caption = "串口设置"
Begin VB.Menu duankou
Caption = "端口"
Begin VB.Menu comm1
Caption = "COM1"
Checked = -1 'True
End
Begin VB.Menu comm2
Caption = "COM2"
End
End
Begin VB.Menu botelv
Caption = "波特率"
Begin VB.Menu bt
Caption = "300"
Index = 0
End
Begin VB.Menu bt
Caption = "600"
Index = 1
End
Begin VB.Menu bt
Caption = "1200"
Index = 2
End
Begin VB.Menu bt
Caption = "2400"
Index = 3
End
Begin VB.Menu bt
Caption = "4800"
Index = 4
End
Begin VB.Menu bt
Caption = "9600"
Checked = -1 'True
Index = 5
End
Begin VB.Menu bt
Caption = "19200"
Index = 6
End
Begin VB.Menu bt
Caption = "38400"
Index = 7
End
Begin VB.Menu bt
Caption = "57600"
Index = 8
End
Begin VB.Menu bt
Caption = "115200"
Index = 9
End
End
Begin VB.Menu setother
Caption = "其他"
Begin VB.Menu setother——
Caption = "8数据位，无校验，1停止位"
Checked = -1 'True
End
End
End
Begin VB.Menu kaiguan
Caption = "串口开关"
Begin VB.Menu opencom
Caption = "打开串口"
Checked = -1 'True
End
Begin VB.Menu closecom
Caption = "关闭串口"
End
End
Begin VB.Menu fasong
Caption = "发送"
Begin VB.Menu sendasc
Caption = "发送ASC字符串"
End
Begin VB.Menu sendhex
Caption = "发送HEX数据串"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -