frmdebug.frm

完整的VB和单片机系统连接的源代码

VERSION 5.00
Begin VB.Form frmDebug 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "fs"
   ClientHeight    =   4305
   ClientLeft      =   13335
   ClientTop       =   2220
   ClientWidth     =   2865
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4305
   ScaleWidth      =   2865
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdClose 
      Cancel          =   -1  'True
      Caption         =   "关闭"
      Height          =   375
      Left            =   960
      TabIndex        =   3
      Top             =   4440
      Width           =   735
   End
   Begin VB.TextBox txtComR 
      Height          =   3975
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   0
      Width           =   1455
   End
   Begin VB.TextBox txtComR0 
      Height          =   3975
      Left            =   1440
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   0
      Width           =   1455
   End
   Begin VB.Label lblRecord 
      AutoSize        =   -1  'True
      Caption         =   $"frmDebug.frx":0000
      Height          =   180
      Left            =   120
      TabIndex        =   2
      Top             =   4080
      Width           =   2520
   End
   Begin VB.Menu mnuCommand 
      Caption         =   "命令(关闭F9，清空F4，记录F2)"
      Begin VB.Menu mnuClose 
         Caption         =   "关闭"
         Shortcut        =   {F9}
      End
      Begin VB.Menu mnuClear 
         Caption         =   "清空"
         Shortcut        =   {F4}
      End
      Begin VB.Menu mnuRecord 
         Caption         =   "记录"
         Shortcut        =   {F2}
      End
   End
End
Attribute VB_Name = "frmDebug"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub ComReceive0(s As String)
    If mnuRecord.Checked = False Then Exit Sub
    txtComR0.Text = txtComR0 + Chr(13) + Chr(10) + s
End Sub
Public Sub ComReceive(s As String)
    If mnuRecord.Checked = False Then Exit Sub
    txtComR.Text = txtComR + Chr(13) + Chr(10) + "< " + s
End Sub
Public Sub ComSend(s As String)
    If mnuRecord.Checked = False Then Exit Sub
    txtComR.Text = txtComR + Chr(13) + Chr(10) + "> " + s
End Sub


Private Sub cmdClose_Click()
    Call mnuClose_Click
End Sub

Private Sub Form_Load()
    txtComR0.Text = ""
    txtComR.Text = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
    frmMain.mnuOpenDebugWindow.Checked = False
End Sub

Private Sub mnuClear_Click()
    txtComR.Text = ""
    txtComR0.Text = ""
End Sub

Private Sub mnuClose_Click()
    Call frmMain.mnuOpenDebugWindow_Click
End Sub

Private Sub mnuRecord_Click()
    mnuRecord.Checked = Not mnuRecord.Checked
    lblRecord.ForeColor = IIf(mnuRecord.Checked = True, vbRed, vbBlack)
End Sub