frmsetcomm.frm

自动化测试程序

VERSION 5.00
Begin VB.Form frmSetComm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "通讯参数设置"
   ClientHeight    =   1965
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5055
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1965
   ScaleWidth      =   5055
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "退 出"
      Height          =   375
      Left            =   3360
      TabIndex        =   7
      Top             =   960
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确 定"
      Height          =   375
      Left            =   3360
      TabIndex        =   6
      Top             =   240
      Width           =   1215
   End
   Begin VB.ComboBox Combo3 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1380
      TabIndex        =   5
      Text            =   "无校验"
      Top             =   1080
      Width           =   1335
   End
   Begin VB.ComboBox Combo2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   1380
      TabIndex        =   3
      Text            =   "9600"
      Top             =   600
      Width           =   1335
   End
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      ItemData        =   "frmSetComm.frx":0000
      Left            =   1380
      List            =   "frmSetComm.frx":0002
      TabIndex        =   1
      Text            =   "1"
      Top             =   120
      Width           =   1335
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "校验方式："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   240
      TabIndex        =   4
      Top             =   1140
      Width           =   1050
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "波特率："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   480
      TabIndex        =   2
      Top             =   660
      Width           =   840
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "端口号："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   480
      TabIndex        =   0
      Top             =   180
      Width           =   840
   End
End
Attribute VB_Name = "frmSetComm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub SetCombox()

Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"

Combo2.AddItem "300"
Combo2.AddItem "600"
Combo2.AddItem "1200"
Combo2.AddItem "4800"
Combo2.AddItem "9600"
Combo2.AddItem "19200"
Combo2.AddItem "38400"
Combo2.AddItem "57600"
Combo2.AddItem "115200"

Combo3.AddItem "无校验"
Combo3.AddItem "奇校验"
Combo3.AddItem "偶校验"

End Sub

Private Sub Command1_Click()
On Error Resume Next

ComPort = Combo1.Text

Dim Check As String
Select Case Combo3.Text
    Case 0
        Check = "N"
    Case 1
        Check = "O"
    Case 2
        Check = "E"
End Select

ComSetStr = Combo2.Text & "," & Check & ",8,1"

If OpenCom Then
    frmtree.Show
    frmMsgList.Show
    Form1.Show
'    Form1.SSTab1(0).Tab = 5
    Unload Me
Else
    MsgBox "串口打开失败！", vbOKOnly, "提示"
    Exit Sub
End If
frmMain.MenuRdWr.Enabled = True
const_dd_tm = 20
frmtree.Label4.Caption = "COM" & Me.Combo1.Text
BaoWen_Refresh = True
Send_handle


End Sub

Private Sub Command2_Click()
Unload Me
'Unload fMainForm

End Sub

Private Sub Form_Load()
SetCombox
End Sub


Private Sub MGButton1_Click()
End Sub

Private Sub MGButton2_Click()
End Sub