dialog.frm

简单的操作系统程序

VERSION 5.00
Begin VB.Form Dialog 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "系统BUS展示"
   ClientHeight    =   1545
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   4125
   Icon            =   "Dialog.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   103
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   275
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer 
      Interval        =   100
      Left            =   2805
      Top             =   195
   End
   Begin VB.TextBox BT1 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   1800
      Locked          =   -1  'True
      MaxLength       =   4
      TabIndex        =   3
      Text            =   "0"
      Top             =   210
      Width           =   750
   End
   Begin VB.TextBox BT2 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   1800
      Locked          =   -1  'True
      MaxLength       =   2
      TabIndex        =   2
      Text            =   "0"
      Top             =   600
      Width           =   750
   End
   Begin VB.TextBox BT3 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   1800
      Locked          =   -1  'True
      MaxLength       =   4
      TabIndex        =   1
      Text            =   "0"
      Top             =   990
      Width           =   750
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "确定"
      Height          =   375
      Left            =   2700
      TabIndex        =   0
      Top             =   960
      Width           =   1215
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "AddressBus"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   210
      TabIndex        =   6
      Top             =   255
      Width           =   1500
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "DataBus"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   630
      TabIndex        =   5
      Top             =   630
      Width           =   1050
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "ControlBus"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   210
      TabIndex        =   4
      Top             =   1005
      Width           =   1500
   End
End
Attribute VB_Name = "Dialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Private Bus As BusClass


Private Sub Form_Load()
    Set Bus = New BusClass

End Sub

Private Sub Form_Unload(Cancel As Integer)
'Cancel = 1

End Sub

Private Sub OKButton_Click()
Unload Me
End Sub

Private Sub Timer_Timer()
    Dialog.BT1.Text = Hex$(Bus.AddressBus)
    Dialog.BT2.Text = Hex$(Bus.DataBus)
    Dialog.BT3.Text = Hex$(Bus.ControlBus)

End Sub