cfgsport.frm

上位机的命令编辑和执行器

VERSION 5.00
Begin VB.Form frmCfgSPort 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "串口配置"
   ClientHeight    =   5880
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7365
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5880
   ScaleWidth      =   7365
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame2 
      Height          =   3615
      Left            =   480
      TabIndex        =   1
      Top             =   840
      Width           =   5775
      Begin VB.ComboBox CmbStop 
         Height          =   315
         Left            =   1680
         TabIndex        =   11
         Top             =   2760
         Width           =   2655
      End
      Begin VB.ComboBox CmbParity 
         Height          =   315
         Left            =   1680
         TabIndex        =   10
         Top             =   2160
         Width           =   2655
      End
      Begin VB.ComboBox CmbData 
         Height          =   315
         Left            =   1680
         TabIndex        =   9
         Top             =   1560
         Width           =   2655
      End
      Begin VB.ComboBox CmbBaudrate 
         Height          =   315
         Left            =   1680
         TabIndex        =   8
         Top             =   960
         Width           =   2655
      End
      Begin VB.ComboBox CmbPort 
         Height          =   315
         ItemData        =   "CfgSPort.frx":0000
         Left            =   1680
         List            =   "CfgSPort.frx":0002
         TabIndex        =   7
         Top             =   360
         Width           =   2655
      End
      Begin VB.Label Label5 
         Caption         =   "停止位"
         Height          =   375
         Left            =   720
         TabIndex        =   6
         Top             =   2760
         Width           =   615
      End
      Begin VB.Label Label4 
         Caption         =   "校验位"
         Height          =   255
         Left            =   720
         TabIndex        =   5
         Top             =   2160
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "数据位"
         Height          =   255
         Left            =   720
         TabIndex        =   4
         Top             =   1560
         Width           =   855
      End
      Begin VB.Label Label2 
         Caption         =   "波特率"
         Height          =   255
         Left            =   720
         TabIndex        =   3
         Top             =   960
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "串口号"
         Height          =   255
         Left            =   720
         TabIndex        =   2
         Top             =   360
         Width           =   855
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "通信设置"
      Height          =   5295
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   6855
      Begin VB.CommandButton CommandCancel 
         Caption         =   "取消"
         Height          =   375
         Left            =   3840
         TabIndex        =   13
         Top             =   4560
         Width           =   1095
      End
      Begin VB.CommandButton CommandOK 
         Caption         =   "确定"
         Height          =   375
         Left            =   720
         TabIndex        =   12
         Top             =   4560
         Width           =   1215
      End
   End
End
Attribute VB_Name = "frmCfgSPort"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CommandCancel_Click()
   Unload frmCfgSPort
End Sub

Private Sub CommandOK_Click()
   Dim BaudRate As String
   Dim Parity As String
   Dim Data As String
   Dim Port As String
   Dim StopBit As String
   BaudRate = CmbBaudrate.Text
   Parity = CmbParity.Text
   Data = CmbData.Text
   Port = CmbPort.Text
   StopBit = CmbStop.Text
   '按要求改变串口通信的设置
   frmMain.MSComm1.Settings = BaudRate + "," + Parity + "," + Data + "," + StopBit
   frmCfgSPort.Hide
   If Port = "COM1" Then
      frmMain.MSComm1.PortOpen = False
      frmMain.MSComm1.CommPort = 1
      frmMain.MSComm1.PortOpen = True
   End If
   If Port = "COM2" Then
      frmMain.MSComm1.PortOpen = False
      frmMain.MSComm1.CommPort = 2
      frmMain.MSComm1.PortOpen = True
   End If
   If Port = "COM3" Then
      frmMain.MSComm1.PortOpen = False
      frmMain.MSComm1.CommPort = 3
      frmMain.MSComm1.PortOpen = True
   End If
   If Port = "COM4" Then
      frmMain.MSComm1.PortOpen = False
      frmMain.MSComm1.CommPort = 4
      frmMain.MSComm1.PortOpen = True
   End If
End Sub

Private Sub Form_Load()
  CmbPort.AddItem ("COM1")
  CmbPort.AddItem ("COM2")
  CmbPort.AddItem ("COM3")
  CmbPort.AddItem ("COM4")
  '波特率
  CmbBaudrate.AddItem (1200)
  CmbBaudrate.AddItem (2400)
  CmbBaudrate.AddItem (4800)
  CmbBaudrate.AddItem (9600)
  CmbBaudrate.AddItem (14400)
  CmbBaudrate.AddItem (19200)
  '数据位
  CmbData.AddItem (8)
  CmbData.AddItem (7)
  CmbData.AddItem (6)
  CmbData.AddItem (5)
  CmbData.AddItem (4)
  '校验位
  CmbParity.AddItem ("O")
  CmbParity.AddItem ("E")
  CmbParity.AddItem ("None")
  CmbParity.AddItem ("M")
  CmbParity.AddItem ("N")
  CmbParity.AddItem ("S")
  '停止位
  CmbStop.AddItem (1)
  CmbStop.AddItem (1.5)
  CmbStop.AddItem (2)
End Sub