📄 form1.frm
字号:
Strikethrough = 0 'False
EndProperty
Height = 3420
ItemData = "Form1.frx":008E
Left = -73680
List = "Form1.frx":0095
TabIndex = 49
Top = 1200
Width = 3495
End
Begin VB.ListBox ListAddr
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 204
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3420
ItemData = "Form1.frx":00BB
Left = -74700
List = "Form1.frx":00EF
TabIndex = 48
Top = 1200
Width = 975
End
Begin VB.CheckBox C_Hard
Caption = """Hard"" access to the ports"
Height = 315
Left = -74640
TabIndex = 39
Top = 4680
Value = 1 'Checked
Width = 2295
End
Begin VB.Frame Frame3
Caption = " Read from a ports "
Height = 2895
Left = -72000
TabIndex = 20
Top = 1440
Width = 2535
Begin VB.CheckBox CR4
Caption = "Check8"
Height = 255
Left = 1920
TabIndex = 47
Top = 1680
Width = 255
End
Begin VB.CheckBox CR3
Caption = "Check7"
Height = 255
Left = 1920
TabIndex = 46
Top = 1360
Value = 1 'Checked
Width = 255
End
Begin VB.CheckBox CR2
Caption = "Check6"
Height = 255
Left = 1920
TabIndex = 45
Top = 1040
Value = 1 'Checked
Width = 255
End
Begin VB.CheckBox CR1
Caption = "Check5"
Height = 255
Left = 1920
TabIndex = 44
Top = 720
Value = 1 'Checked
Width = 255
End
Begin VB.CommandButton Read_All
Caption = "Read all ports"
Height = 435
Left = 240
TabIndex = 32
Top = 2160
Width = 1890
End
Begin VB.TextBox PortR4
Height = 285
Left = 240
TabIndex = 31
Text = "0"
Top = 1680
Width = 855
End
Begin VB.TextBox PortR3
Height = 285
Left = 240
TabIndex = 30
Text = "300"
Top = 1365
Width = 855
End
Begin VB.TextBox PortR2
Height = 285
Left = 240
TabIndex = 29
Text = "300"
Top = 1035
Width = 855
End
Begin VB.TextBox PortR1
Height = 285
Left = 240
TabIndex = 28
Text = "303"
Top = 720
Width = 855
End
Begin VB.Label ValR4
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "00"
Height = 285
Left = 1380
TabIndex = 38
Top = 1680
Width = 375
End
Begin VB.Label ValR3
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "00"
Height = 285
Left = 1380
TabIndex = 37
Top = 1365
Width = 375
End
Begin VB.Label ValR2
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "00"
Height = 285
Left = 1380
TabIndex = 36
Top = 1035
Width = 375
End
Begin VB.Label ValR1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "00"
Height = 285
Left = 1380
TabIndex = 35
Top = 720
Width = 375
End
Begin VB.Label Label11
Caption = "Value(hex)"
Height = 255
Left = 1200
TabIndex = 34
Top = 360
Width = 795
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "Addr(hex)"
Height = 195
Left = 360
TabIndex = 33
Top = 360
Width = 675
End
End
Begin VB.Frame Frame2
Caption = " Write to the ports "
Height = 2895
Left = -74640
TabIndex = 15
Top = 1440
Width = 2475
Begin VB.CheckBox CW4
Caption = "Check4"
Height = 255
Left = 1920
TabIndex = 43
Top = 1680
Width = 255
End
Begin VB.CheckBox CW3
Caption = "Check3"
Height = 255
Left = 1920
TabIndex = 42
Top = 1360
Value = 1 'Checked
Width = 255
End
Begin VB.CheckBox CW2
Caption = "Check2"
Height = 255
Left = 1920
TabIndex = 41
Top = 1040
Value = 1 'Checked
Width = 255
End
Begin VB.CheckBox CW1
Caption = "Check1"
Height = 255
Left = 1920
TabIndex = 40
Top = 720
Value = 1 'Checked
Width = 255
End
Begin VB.TextBox ValW4
Height = 285
Left = 1380
TabIndex = 25
Text = "0"
Top = 1680
Width = 375
End
Begin VB.TextBox ValW3
Height = 285
Left = 1380
TabIndex = 24
Text = "30"
Top = 1365
Width = 375
End
Begin VB.TextBox ValW2
Height = 285
Left = 1380
TabIndex = 23
Text = "d4"
Top = 1035
Width = 375
End
Begin VB.TextBox ValW1
Height = 285
Left = 1380
TabIndex = 22
Text = "36"
Top = 720
Width = 375
End
Begin VB.CommandButton Write_All
Caption = "Write all ports"
Height = 435
Left = 240
TabIndex = 21
Top = 2160
Width = 1950
End
Begin VB.TextBox PortW4
Height = 285
Left = 240
TabIndex = 19
Text = "0"
Top = 1680
Width = 855
End
Begin VB.TextBox PortW3
Height = 285
Left = 240
TabIndex = 18
Text = "300"
Top = 1365
Width = 855
End
Begin VB.TextBox PortW2
Height = 285
Left = 240
TabIndex = 17
Text = "300"
Top = 1035
Width = 855
End
Begin VB.TextBox PortW1
Height = 285
Left = 240
TabIndex = 16
Text = "303"
Top = 720
Width = 855
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "Value(hex)"
Height = 195
Left = 1200
TabIndex = 27
Top = 360
Width = 750
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "Addr(hex)"
Height = 195
Left = 300
TabIndex = 26
Top = 360
Width = 675
End
End
Begin VB.VScrollBar SpinIRQ
Height = 375
Left = -72120
Max = 15
Min = 1
TabIndex = 13
Top = 1140
Value = 10
Width = 255
End
Begin VB.Label Label21
Caption = "LPTs founded:"
Height = 255
Left = 5160
TabIndex = 140
Top = 2520
Width = 1095
End
Begin VB.Label L_LPTNumber
AutoSize = -1 'True
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 204
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 6360
TabIndex = 139
Top = 3120
Width = 135
End
Begin VB.Label Label20
Caption = "Base port:"
Height = 195
Left = 5160
TabIndex = 138
Top = 3720
Width = 1095
End
Begin VB.Label Label19
Caption = "Selected LPT:"
Height = 255
Left = 5160
TabIndex = 137
Top = 3120
Width = 1095
End
Begin VB.Label Label18
Caption = "Time (sec):"
Height = 255
Left = -73560
TabIndex = 129
Top = 2760
Width = 855
End
Begin VB.Label L_Time
Caption = "0"
Height = 255
Left = -72600
TabIndex = 128
Top = 2760
Width = 255
End
Begin VB.Label L_Status
Caption = "00h"
Height = 255
Left = -71040
TabIndex = 124
Top = 4680
Width = 1095
End
Begin VB.Label L_Data
Caption = "00h"
Height = 255
Left = -71040
TabIndex = 123
Top = 4200
Width = 975
End
Begin VB.Label L_Scan
Caption = "00h"
Height = 255
Left = -71040
TabIndex = 122
Top = 3720
Width = 975
End
Begin VB.Label Label17
Caption = "LPT status register:"
Height = 255
Left = -73560
TabIndex = 121
Top = 4680
Width = 1695
End
Begin VB.Label Label16
Caption = "LPT data register:"
Height = 255
Left = -73560
TabIndex = 120
Top = 4200
Width = 1575
End
Begin VB.Label Label15
Caption = "Keyboard scan-code (for IRQ1):"
Height = 255
Left = -73560
TabIndex = 119
Top = 3720
Width = 2295
End
Begin VB.Label L_Base
AutoSize = -1 'True
Caption = "000h"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 204
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 6360
TabIndex = 61
Top = 3720
Width = 495
End
Begin VB.Label L_LPTs
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 204
Weight = 700
Underline = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -