form1.frm

自己使用VB编写的串口通信程序

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "发送与接收"
   ClientHeight    =   3150
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2910
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3150
   ScaleWidth      =   2910
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "清空"
      Height          =   375
      Left            =   2040
      TabIndex        =   3
      Top             =   2640
      Width           =   615
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   500
      Left            =   1560
      Top             =   0
   End
   Begin VB.TextBox Text1 
      Height          =   2295
      IMEMode         =   2  'OFF
      Left            =   1080
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   2
      Text            =   "Form1.frx":0000
      Top             =   240
      Width           =   1575
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   2040
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   0   'False
   End
   Begin VB.CommandButton Command1 
      Caption         =   "测试"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   2640
      Width           =   1815
   End
   Begin VB.Label Label1 
      Caption         =   "信息反馈："
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Width           =   975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim m_ICount As Integer

Private Sub Command1_Click()
    Command1.Enabled = False
    Command2.Enabled = False
    Timer1.Enabled = True
    m_ICount = 1
End Sub

Private Sub Command2_Click()
    Text1.Text = ""
End Sub

Private Sub Form_Load()
    Text1.Text = ""
    MSComm1.CommPort = 2 'COM2
    MSComm1.Settings = "115200,n,8,1"  '"9600,n,8,1"
    MSComm1.RThreshold = 1
    MSComm1.SThreshold = 1
    MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
    m_hSend = False
    Dim ff As String
    If MSComm1.CommEvent = 2 Then
        ff = MSComm1.Input
        Text1.Text = Text1.Text & "=" & ff & vbCrLf
    End If
End Sub

Private Sub Timer1_Timer()
    Dim m_INum As Integer
    Dim m_Cchar As String

    m_INum = Int(Rnd(9) * 10)
    m_Cchar = m_INum + "0"

    MSComm1.Output = m_Cchar
    
    '发完两个数据后暂停
    If m_ICount = 1 Then
        Text1.Text = Text1.Text & m_Cchar & "+"
        m_ICount = 2
    Else
        Text1.Text = Text1.Text & m_Cchar
        m_ICount = 1
        Timer1.Enabled = False
        Command1.Enabled = True
        Command2.Enabled = True
    End If
End Sub