📄 main.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form FrmMain
BorderStyle = 1 'Fixed Single
Caption = "盛唐仿真编程器＿P89C61X2"
ClientHeight = 5832
ClientLeft = 36
ClientTop = 612
ClientWidth = 8412
LinkTopic = "Form1"
MaxButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5832
ScaleWidth = 8412
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ProgressBar WritePGMCodeProgressBar
Height = 252
Left = 1200
Negotiate = -1 'True
TabIndex = 30
Top = 5040
Visible = 0 'False
Width = 3852
_ExtentX = 6795
_ExtentY = 445
_Version = 393216
BorderStyle = 1
Appearance = 0
Scrolling = 1
End
Begin VB.PictureBox PictureDataBuffBox
Height = 3372
Left = 120
ScaleHeight = 3324
ScaleWidth = 8124
TabIndex = 12
Top = 840
Width = 8172
Begin RichTextLib.RichTextBox TxtDataBuffDispBox
Height = 3372
Left = 0
TabIndex = 40
Top = 0
Width = 8172
_ExtentX = 14415
_ExtentY = 5948
_Version = 393217
Enabled = -1 'True
ScrollBars = 2
TextRTF = $"Main.frx":0000
End
Begin VB.Timer TmrComReceive
Enabled = 0 'False
Interval = 10
Left = 1680
Top = 1560
End
Begin MSCommLib.MSComm MSComm1
Left = 2160
Top = 1560
_ExtentX = 804
_ExtentY = 804
_Version = 393216
CommPort = 2
DTREnable = -1 'True
InputMode = 1
End
Begin MSComDlg.CommonDialog CommonDialog_PGMFile
Left = 6360
Top = 3000
_ExtentX = 677
_ExtentY = 677
_Version = 393216
End
Begin VB.CommandButton CmdTestDelay
Caption = "TestDelay"
Height = 492
Left = 2640
TabIndex = 29
Top = 1440
Visible = 0 'False
Width = 1572
End
Begin VB.CommandButton CmdLockBit2
Caption = "LockBit2"
Height = 492
Left = 6120
TabIndex = 28
Top = 2760
Visible = 0 'False
Width = 1332
End
Begin VB.CommandButton CmdLockBit1
Caption = "LockBit1"
Height = 492
Left = 4440
TabIndex = 27
Top = 2760
Visible = 0 'False
Width = 1332
End
Begin VB.CommandButton CmdProgramCode
Caption = "写数据"
Height = 492
Left = 4440
TabIndex = 26
Top = 2280
Visible = 0 'False
Width = 1572
End
Begin VB.CommandButton CmdEraseChip
Caption = "EraseChip"
Height = 492
Left = 4440
TabIndex = 25
Top = 1560
Visible = 0 'False
Width = 1452
End
Begin VB.CommandButton CmdReadProgramCode
Caption = "读数据"
Height = 492
Left = 4440
TabIndex = 24
Top = 960
Visible = 0 'False
Width = 1452
End
Begin VB.CommandButton Cmd_ReadDeviceSignature
Caption = "GetDeviceID"
Height = 540
Left = 4440
TabIndex = 23
Top = 360
Visible = 0 'False
Width = 1656
End
Begin VB.TextBox Txt_RDAddrInput
Height = 492
Left = 1320
TabIndex = 17
Top = 2160
Visible = 0 'False
Width = 1092
End
Begin VB.CommandButton Cmd_TestReadPort
Caption = "读IO口"
Height = 732
Left = 2640
TabIndex = 16
Top = 2160
Visible = 0 'False
Width = 1452
End
Begin VB.TextBox Txt_WRDataInput
Height = 372
Left = 1320
TabIndex = 15
Top = 840
Visible = 0 'False
Width = 972
End
Begin VB.TextBox Txt_WRAddrInput
Height = 372
Left = 1320
TabIndex = 14
Top = 360
Visible = 0 'False
Width = 972
End
Begin VB.CommandButton Cmd_TestWritePort
Caption = "写IO口"
Height = 852
Left = 2640
TabIndex = 13
Top = 360
Visible = 0 'False
Width = 1332
End
Begin VB.Label Label5
Caption = "读取的数据为："
Height = 372
Left = 240
TabIndex = 22
Top = 2880
Visible = 0 'False
Width = 852
End
Begin VB.Label Label4
Caption = "读取数据的IO口地址"
Height = 492
Left = 240
TabIndex = 21
Top = 2160
Visible = 0 'False
Width = 1092
End
Begin VB.Label Label3
Caption = "写入IO口的数据"
Height = 492
Left = 240
TabIndex = 20
Top = 840
Visible = 0 'False
Width = 852
End
Begin VB.Label Label2
Caption = "写入数据的IO端口地址"
Height = 372
Left = 240
TabIndex = 19
Top = 360
Visible = 0 'False
Width = 972
End
Begin VB.Label Txt_RDPortDataDisp
Height = 372
Left = 1320
TabIndex = 18
Top = 2880
Width = 1092
End
End
Begin VB.PictureBox Pic_Botton_Box
Appearance = 0 'Flat
BackColor = &H80000004&
ForeColor = &H80000008&
Height = 852
Left = 120
ScaleHeight = 828
ScaleWidth = 8148
TabIndex = 0
Top = 0
Width = 8172
Begin VB.CommandButton Cmd_AutoExec
Caption = "自动"
Height = 612
Left = 2880
TabIndex = 3
Top = 120
Width = 612
End
Begin VB.CommandButton Cmd_AppExit
Caption = "退出"
Height = 612
Left = 7320
TabIndex = 11
Top = 120
Width = 732
End
Begin VB.CommandButton Cmd_DeviceSignature
Caption = "特征字"
Height = 612
Left = 2160
TabIndex = 2
Top = 120
Width = 732
End
Begin VB.CommandButton Cmd_DeviceErase
Caption = "擦除"
Height = 612
Left = 3600
TabIndex = 4
Top = 120
Width = 732
End
Begin VB.CommandButton Cmd_DeviceLock
Caption = "加密"
Height = 612
Left = 5760
TabIndex = 7
Top = 120
Width = 732
End
Begin VB.CommandButton Cmd_DeviceRead
Caption = "读出"
Height = 612
Left = 6480
TabIndex = 8
Top = 120
Width = 732
End
Begin VB.CommandButton Cmd_DeviceVerify
Caption = "校验"
Height = 612
Left = 5040
TabIndex = 6
Top = 120
Width = 732
End
Begin VB.CommandButton Cmd_DeviceProgram
Caption = "编程"
Height = 612
Left = 4320
TabIndex = 5
Top = 120
Width = 732
End
Begin VB.CommandButton Cmd_DeviceSelect
Caption = "选器件"
Height = 612
Left = 1440
TabIndex = 1
Top = 120
Width = 732
End
Begin VB.CommandButton Cmd_FileSave
Caption = "保存"
Height = 612
Left = 720
TabIndex = 10
Top = 120
Width = 612
End
Begin VB.CommandButton Cmd_FileOpen
Caption = "打开"
Height = 612
Left = 120
TabIndex = 9
Top = 120
Width = 612
End
End
Begin VB.Label lblVerifyCountDisp
Caption = "lbl"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 252
Left = 7800
TabIndex = 39
Top = 5040
Visible = 0 'False
Width = 372
End
Begin VB.Label LblOperationInfoDisp
BorderStyle = 1 'Fixed Single
Caption = "梦想成就未来"
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1200
TabIndex = 38
Top = 5400
Width = 7092
End
Begin VB.Label LblFixInfo2
Caption = "操作信息"
Height = 252
Left = 240
TabIndex = 37
Top = 5400
Width = 852
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -