setupcomm.frm

流量计工控软件

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form setupfrm 
   Caption         =   "通信口设置"
   ClientHeight    =   1530
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4815
   LinkTopic       =   "Form2"
   ScaleHeight     =   1530
   ScaleWidth      =   4815
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox InputC 
      Height          =   375
      Left            =   2400
      TabIndex        =   7
      Top             =   840
      Width           =   975
   End
   Begin VB.ComboBox Verify 
      Height          =   315
      ItemData        =   "SetupComm.frx":0000
      Left            =   3360
      List            =   "SetupComm.frx":000D
      TabIndex        =   6
      Text            =   "Combo1"
      Top             =   240
      Width           =   1215
   End
   Begin VB.ComboBox Baud 
      Height          =   315
      ItemData        =   "SetupComm.frx":0029
      Left            =   840
      List            =   "SetupComm.frx":0039
      TabIndex        =   4
      Text            =   "Combo1"
      Top             =   840
      Width           =   1335
   End
   Begin VB.ComboBox Comm 
      Height          =   315
      ItemData        =   "SetupComm.frx":0059
      Left            =   840
      List            =   "SetupComm.frx":0069
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   240
      Width           =   1335
   End
   Begin VB.CommandButton SetupOk 
      Caption         =   "确定"
      Height          =   375
      Left            =   3480
      TabIndex        =   0
      Top             =   960
      Width           =   1095
   End
   Begin MSCommLib.MSComm MSComm 
      Left            =   3480
      Top             =   960
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
   Begin VB.Label Label3 
      Caption         =   "校验位："
      Height          =   255
      Left            =   2640
      TabIndex        =   5
      Top             =   360
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "波特率："
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   960
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "串口号："
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   360
      Width           =   735
   End
End
Attribute VB_Name = "setupfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ReceChar()
InputC.Text = MSComm.Input
End Sub
'调试通信时要用的，调试完了，要把这儿的代码去掉，
'并放到主窗口退出事件中。
Private Sub Form_Unload(Cancel As Integer)
If (MSComm.PortOpen = True) Then
MSComm.PortOpen = False
End If
End Sub

Private Sub MSComm_OnComm()
Dim EventErr As String
EventErr = MSComm.CommEvent
Select Case EventErr
 Case 1
        ReceChar
 Case 2
 
End Select
        
End Sub

Private Sub SetupOk_Click()

Dim COM As String
Dim B As String
Dim V As String
Dim MsgCom As String
COM = Comm.Text
B = Baud.Text
V = Verify.Text
'设定串口号
If (COM = "COM1") Then
MSComm.CommPort = "1"
ElseIf (COM = "COM2") Then
MSComm.CommPort = "2"
ElseIf (COM = "COM3") Then
MSComm.CommPort = "3"
ElseIf (COM = "COM4") Then
MSComm.CommPort = "4"
End If
'设定比特率
If (B = "9600") Then
MscomSetting = "9600,"
ElseIf (B = "19200") Then
MscomSetting = "19200,"
ElseIf (B = "56000") Then
MscomSetting = "56000,"
ElseIf (B = "128000") Then
MscomSetting = "128000,"
End If
'设定校验
If (V = "无校验") Then
MscomSetting = MscomSetting + "n,"
ElseIf (V = "奇校验") Then
MscomSetting = MscomSetting + "o,"
ElseIf (V = "偶校验") Then
MscomSetting = MscomSetting + "e,"
End If

MscomSetting = MscomSetting + "8,1"
MSComm.Settings = MscomSetting '设置通信格式
MSComm.InBufferSize = 1024   '接受缓冲区的字节数
MSComm.InputLen = 0 '读取缓冲区中的全部内容
MSComm.InputMode = comInputModeText 'Input属性以文本形式取回
MSComm.PortOpen = True '打开端口

MsgCom = "串口" + COM + "打开成功"
MsgBox MsgCom

MSComm.RThreshold = 8 '产生中通信事件的接收字符数

Sendflm.Show
End Sub

Private Sub Form_Load()
Comm.Text = "COM1"
Baud.Text = "9600"
Verify.Text = "无校验"
MSComm.Settings = "9600,n,8,1"
End Sub