form1.frm

Visual Basic6.0 监视RS232串口数字输出状态的例子

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1 
   Caption         =   "数字输出范例"
   ClientHeight    =   3840
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6900
   LinkTopic       =   "Form1"
   ScaleHeight     =   3840
   ScaleWidth      =   6900
   StartUpPosition =   3  'Windows Default
   Begin MSCommLib.MSComm MSComm1 
      Left            =   2940
      Top             =   225
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      CommPort        =   2
      DTREnable       =   0   'False
   End
   Begin VB.CommandButton cmdEND 
      Caption         =   "结束"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   915
      Left            =   2430
      TabIndex        =   2
      Top             =   2535
      Width           =   1890
   End
   Begin VB.CommandButton cmdRTS 
      Caption         =   "RTS状态"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   915
      Left            =   3825
      TabIndex        =   1
      Top             =   840
      Width           =   1890
   End
   Begin VB.CommandButton cmdDTR 
      Caption         =   "DTR状态"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   915
      Left            =   765
      TabIndex        =   0
      Top             =   855
      Width           =   1890
   End
   Begin VB.Shape spRTS 
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   600
      Left            =   4545
      Shape           =   3  'Circle
      Top             =   120
      Width           =   645
   End
   Begin VB.Shape spDTR 
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   600
      Left            =   1320
      Shape           =   3  'Circle
      Top             =   135
      Width           =   645
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''
'使用命令按钮控件
'使用Shape外观控件
'依不同的状态变更Shape对象的填满颜色
'并变更线路的电压状态
''''''''''''''''''''''''''''''''''''''
Private Sub cmdDTR_Click()
MSComm1.DTREnable = Not MSComm1.DTREnable
If MSComm1.DTREnable Then
  spDTR.FillColor = RGB(255, 0, 0)
Else
  spDTR.FillColor = RGB(255, 255, 255)
End If
End Sub

''''''''''''''''''''''''''''''''''''''
'使用命令按钮控件
'关闭通信端口
'结束系统
''''''''''''''''''''''''''''''''''''''
Private Sub cmdEND_Click()
MSComm1.PortOpen = False
End
End Sub

''''''''''''''''''''''''''''''''''''''
'使用命令按钮控件
'使用Shape外观控件
'依不同的状况变更Shape对象的填满颜色
'并变更线路的电压状态
''''''''''''''''''''''''''''''''''''''
Private Sub cmdRTS_Click()
MSComm1.RTSEnable = Not MSComm1.RTSEnable
If MSComm1.RTSEnable Then
  spRTS.FillColor = RGB(255, 0, 0)
Else
  spRTS.FillColor = RGB(255, 255, 255)
End If

End Sub

''''''''''''''''''''''''''''''''''''''
'窗体的加载事件
'打开通信端口，通信端口的参数也可以在打开之前作