📄 frmmain.frm
字号:
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "未占用"
Height = 210
Left = 1095
TabIndex = 25
Top = 330
Width = 630
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "正在读取"
Height = 210
Left = 2010
TabIndex = 24
Top = 330
Width = 840
End
End
End
Begin VB.Frame Frame1
Caption = "核心进程"
Height = 3975
Left = 30
TabIndex = 12
Top = 45
Width = 4845
Begin VB.TextBox ChokeList
Height = 2130
Left = 3180
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 66
Top = 540
Width = 1545
End
Begin VB.TextBox ExecuteList
Height = 2130
Left = 1635
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 65
Top = 540
Width = 1545
End
Begin VB.TextBox ReadyList
Height = 2130
Left = 90
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 64
Top = 540
Width = 1545
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "就绪队列："
Height = 210
Left = 165
TabIndex = 21
Top = 300
Width = 1050
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "执行指令："
Height = 210
Left = 120
TabIndex = 20
Top = 2955
Width = 945
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "阻塞队列："
Height = 210
Left = 3225
TabIndex = 19
Top = 300
Width = 1050
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "运行进程："
Height = 210
Left = 1710
TabIndex = 18
Top = 300
Width = 960
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "SUM X值："
Height = 210
Left = 135
TabIndex = 17
Top = 3525
Width = 945
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "内存地址："
Height = 210
Left = 2505
TabIndex = 16
Top = 3540
Width = 975
End
Begin VB.Label lblrun
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Left = 1140
TabIndex = 15
Top = 2745
Width = 3585
End
Begin VB.Label lblsum
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1140
TabIndex = 14
Top = 3465
Width = 1245
End
Begin VB.Label lblmemno
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3480
TabIndex = 13
Top = 3465
Width = 1245
End
End
Begin VB.Frame Frame6
Caption = "CPU寄存器状态"
Height = 1215
Left = 5745
TabIndex = 3
Top = 45
Width = 4020
Begin VB.TextBox PSWT
BackColor = &H00E0E0E0&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 2490
TabIndex = 7
TabStop = 0 'False
Top = 705
Width = 1350
End
Begin VB.TextBox PCT
BackColor = &H00E0E0E0&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 525
TabIndex = 6
TabStop = 0 'False
Top = 705
Width = 1365
End
Begin VB.TextBox DRT
BackColor = &H00E0E0E0&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 2490
TabIndex = 5
TabStop = 0 'False
Top = 225
Width = 1350
End
Begin VB.TextBox IRT
BackColor = &H00E0E0E0&
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 525
TabIndex = 4
TabStop = 0 'False
Top = 225
Width = 1365
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "PSW"
Height = 210
Left = 2070
TabIndex = 11
Top = 810
Width = 315
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "DR"
Height = 210
Left = 2055
TabIndex = 10
Top = 330
Width = 210
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "PC"
Height = 210
Left = 195
TabIndex = 9
Top = 810
Width = 210
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "IR"
Height = 210
Left = 180
TabIndex = 8
Top = 315
Width = 210
End
End
Begin VB.Frame Frame8
Caption = "开关"
Height = 1215
Left = 4950
TabIndex = 0
Top = 45
Width = 735
Begin VB.OptionButton Option2
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 120
Style = 1 'Graphical
TabIndex = 2
Top = 660
Value = -1 'True
Width = 495
End
Begin VB.OptionButton Option1
Caption = "1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 120
Style = 1 'Graphical
TabIndex = 1
Top = 255
Width = 495
End
End
Begin VB.Menu file
Caption = "文件(&F)"
Begin VB.Menu reset
Caption = "重置系统(&R)"
Shortcut = ^{F5}
End
Begin VB.Menu exit
Caption = "退出(&Z)"
Shortcut = ^Z
End
End
Begin VB.Menu monit
Caption = "监视器(&M)"
Begin VB.Menu syscon
Caption = "系统状态(&S)"
End
Begin VB.Menu monitor
Caption = "显示屏幕(&M)"
Visible = 0 'False
End
End
Begin VB.Menu cmdsytle
Caption = "命令格式(&C)"
Visible = 0 'False
End
Begin VB.Menu help
Caption = "帮助(&H)"
Begin VB.Menu group
Caption = "小组成员(&G)"
End
Begin VB.Menu heng
Caption = "-"
End
Begin VB.Menu menuabout
Caption = "关于(&A)"
Shortcut = {F1}
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function setHigh Lib "bitChng" (ByVal sources As Byte, ByVal irQ As Byte) As Byte
Private Declare Function setLow Lib "bitChng" (ByVal sources As Byte, ByVal irQ As Byte) As Byte
Private Declare Function setHigh2 Lib "bitChng" (ByVal sources As Integer, ByVal irQ As Integer) As Integer 'A|B
Private Declare Function setLow2 Lib "bitChng" (ByVal sources As Integer, ByVal irQ As Integer) As Integer 'A&(~B)
Private Declare Function setHigh4 Lib "bitChng" (ByVal sources As Long, ByVal irQ As Long) As Long 'A|B
Private Declare Function setLow4 Lib "bitChng" (ByVal sources As Long, ByVal irQ As Long) As Long 'A&(~B)
Private Pen As New DrawClass
Private HD As New HardDisk
Private Bus As BusClass
Private WithEvents Timm As clsXTimer
Attribute Timm.VB_VarHelpID = -1
Private TimmInterrupt As Integer
Private WithEvents CpuZ As CPUClass
Attribute CpuZ.VB_VarHelpID = -1
Private DiskFiles(0 To 12) As DiskFile
Private Found(1 To 128) As Boolean
Private DMAV As DMAValue
Private TimerLock As Boolean
Private HDreadoldAdd As Integer
Private PCBs(0 To 10) As PCB
Private Devicelists(0 To 4) As Devicelist
Private ReadyLists(0 To 10) As ReaddyList
Private Runnings As Running
Private TimeInterruptCyc As Byte
Private Sub HDConfig()
With DiskFiles(0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -