VERSION 5.00
Begin VB.Form frmCfgSPort 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "串口配置"
   ClientHeight    =   4290
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6300
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4290
   ScaleWidth      =   6300
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame2 
      Height          =   2775
      Left            =   360
      TabIndex        =   3
      Top             =   480
      Width           =   5535
      Begin VB.ComboBox ComboStop 
         Height          =   300
         Left            =   2280
         TabIndex        =   12
         Top             =   2160
         Width           =   1815
      End
      Begin VB.ComboBox ComboData 
         Height          =   300
         Left            =   2280
         TabIndex        =   10
         Top             =   1200
         Width           =   1815
      End
      Begin VB.ComboBox ComboSerial 
         Height          =   300
         Left            =   2280
         TabIndex        =   8
         Top             =   240
         Width           =   1815
      End
      Begin VB.ComboBox cmbParity 
         Height          =   300
         Left            =   2280
         TabIndex        =   5
         Top             =   1680
         Width           =   1815
      End
      Begin VB.ComboBox cmbBaudRate 
         Height          =   300
         Left            =   2280
         TabIndex        =   4
         Top             =   720
         Width           =   1815
      End
      Begin VB.Label LabelStop 
         Caption         =   "停止位"
         Height          =   255
         Left            =   840
         TabIndex        =   13
         Top             =   2160
         Width           =   615
      End
      Begin VB.Label LabelData 
         Caption         =   "數據位"
         Height          =   255
         Left            =   840
         TabIndex        =   11
         Top             =   1200
         Width           =   615
      End
      Begin VB.Label LabelSerial 
         Caption         =   "串口號"
         Height          =   255
         Left            =   840
         TabIndex        =   9
         Top             =   240
         Width           =   735
      End
      Begin VB.Label lblParity 
         Caption         =   "校驗位"
         Height          =   255
         Left            =   840
         TabIndex        =   7
         Top             =   1680
         Width           =   855
      End
      Begin VB.Label lblBaudRate 
         Caption         =   "波特率"
         Height          =   255
         Left            =   840
         TabIndex        =   6
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   4080
      TabIndex        =   1
      Top             =   3480
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "確定"
      Height          =   375
      Left            =   960
      TabIndex        =   0
      Top             =   3480
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Caption         =   "通信設置"
      Height          =   3975
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   6015
   End
End
Attribute VB_Name = "frmCfgSPort"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim BaudRate As String
Dim Parity As String
Dim Data As String
Dim Serial As String
Dim StopBit As String

Private Sub cmbBaudRate_Scroll()
    BaudRate = cmbBaudRate.Text
End Sub

Private Sub cmbParity_Scroll()
    Parity = cmbParity.Text
End Sub

Private Sub cmdCancel_Click()
    Unload frmCfgSPort
End Sub

Private Sub cmdOK_Click()
     BaudRate = cmbBaudRate.Text
     Parity = cmbParity.Text

  '  Dim port As Integer
    
 '   If (frmMain.Comm.CommPort = 1) Then
 '       port = 0
 '   End If
    
 '   port = frmMain.Comm.CommPort
 '   frmMain.Comm.PortOpen = False
 '
 '   If optCom1.Value = True Then
 '       If (frmMain.Comm.CommPort = 1) = True Then
 '           frmMain.Comm.PortOpen = True
 '       End If
 '   End If
    
 '   If optCom2.Value = True Then
 '       If (frmMain.Comm.CommPort = 2) = True Then
 '           frmMain.Comm.PortOpen = True
 '       End If
 '   End If
     Data = ComboData.Text
     Serial = ComboSerial.Text
     StopBit = ComboStop.Text
    If Serial = "COM1" Then
    frmMain.Comm.PortOpen = False
    frmMain.Comm.CommPort = 1
    frmMain.Comm.PortOpen = True
    End If
    If Serial = "COM2" Then
    frmMain.Comm.PortOpen = False
    frmMain.Comm.CommPort = 2
    frmMain.Comm.PortOpen = True
    End If
    If Serial = "COM3" Then
    frmMain.Comm.PortOpen = False
    frmMain.Comm.CommPort = 3
    frmMain.Comm.PortOpen = True
    End If
      If Serial = "COM4" Then
    frmMain.Comm.PortOpen = False
    frmMain.Comm.CommPort = 4
    frmMain.Comm.PortOpen = True
    End If
 '   frmMain.Comm.PortOpen = False
    frmMain.Comm.Settings = BaudRate + "," + Parity + "," + Data + "," + StopBit
   '    frmMain.Comm.Settings = "9600" + "," + "N" + ",8" + ",1"
      '  frmMain.Comm.Settings = "9600,N,8,1"
'    frmMain.Comm.PortOpen = True
    frmCfgSPort.Hide
    
End Sub

Private Sub ComboData_Change()
    Data = ComboData.Text
End Sub

Private Sub ComboSerial_Change()
    Serial = ComboSerial.Text
End Sub

Private Sub ComboStop_Change()
    StopBit = ComboStop.Text
End Sub

Private Sub Form_Load()



cmbBaudRate.AddItem (1200)
cmbBaudRate.AddItem (2400)
cmbBaudRate.AddItem (4800)
cmbBaudRate.AddItem (9600)
cmbBaudRate.AddItem (14400)
cmbBaudRate.AddItem (19200)

ComboSerial.AddItem ("COM1")
ComboSerial.AddItem ("COM2")
ComboSerial.AddItem ("COM3")
ComboSerial.AddItem ("COM4")

ComboData.AddItem (8)
ComboData.AddItem (7)
ComboData.AddItem (6)
ComboData.AddItem (5)
ComboData.AddItem (4)


ComboStop.AddItem (1)
ComboStop.AddItem (1.5)
ComboStop.AddItem (2)
'ComboStop.AddItem (4)

cmbParity.AddItem ("O")
cmbParity.AddItem ("E")
cmbParity.AddItem ("None")
cmbParity.AddItem ("M")
cmbParity.AddItem ("N")
cmbParity.AddItem ("S")

ComboSerial.Text = "COM1"
cmbBaudRate.Text = 2400
ComboData.Text = 8
ComboStop.Text = 1
cmbParity.Text = "O"



End Sub