vbt232.frm

一个VB环境的RS232通讯源码。欢迎下载试用。

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FF0000&
   Caption         =   "通讯测试系统"
   ClientHeight    =   4335
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6405
   BeginProperty Font 
      Name            =   "黑体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   4335
   ScaleWidth      =   6405
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin MSCommLib.MSComm MSComm1 
      Left            =   120
      Top             =   720
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      CommPort        =   2
      DTREnable       =   -1  'True
      RThreshold      =   2
      RTSEnable       =   -1  'True
      EOFEnable       =   -1  'True
      InputMode       =   1
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   120
      Top             =   120
   End
   Begin VB.Menu misel 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  preset_array
  first_graph
  Call init1_commu_port(2, 9600)
End Sub
Private Sub Timer1_Timer()
  do_onesec
  do_three
End Sub
Private Sub misel_Click()
  Dim X As String
  If MsgBox("退出微机监测系统?", vbYesNo + vbInformation + _
            vbDefaultButton1, "") = vbYes Then
    X = InputBox("请输入密码", "InputBox框", "**********")
    If X = "13579" Then
       close_commu_port
       Unload Form1
    End If
  End If
End Sub