main.frm

参数整定

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Main 
   Caption         =   "DWL"
   ClientHeight    =   2715
   ClientLeft      =   3060
   ClientTop       =   3345
   ClientWidth     =   5475
   LinkTopic       =   "Form5"
   ScaleHeight     =   2715
   ScaleWidth      =   5475
   Begin VB.ComboBox Combo_port 
      Height          =   300
      Left            =   1200
      Style           =   2  'Dropdown List
      TabIndex        =   6
      Top             =   960
      Width           =   1815
   End
   Begin VB.CommandButton UPpower 
      Caption         =   "上电"
      Height          =   375
      Left            =   4320
      TabIndex        =   5
      Top             =   720
      Width           =   975
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   3600
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
      RThreshold      =   1
      InputMode       =   1
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   4320
      TabIndex        =   2
      Top             =   1920
      Width           =   975
   End
   Begin VB.CommandButton PLGO 
      Caption         =   "下一步"
      Height          =   375
      Left            =   4320
      TabIndex        =   1
      Top             =   1320
      Width           =   975
   End
   Begin VB.CommandButton Comm 
      Caption         =   "连接"
      Height          =   375
      Left            =   4320
      TabIndex        =   0
      Top             =   240
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "Port："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   480
      TabIndex        =   7
      Top             =   960
      Width           =   975
   End
   Begin VB.Label Label2 
      BackColor       =   &H8000000A&
      Caption         =   "冲击波测试"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   615
      Left            =   240
      TabIndex        =   4
      Top             =   120
      Width           =   2775
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   855
      Left            =   480
      TabIndex        =   3
      Top             =   1560
      Width           =   2535
   End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Comm_Click()
'TX.MSComm1.PortOpen = False
TX.MSComm1.CommPort = Combo_port.Text
TX.MSComm1.PortOpen = True

1:
Dim outData1(1 To 1) As Byte
Dim inData() As Byte
Dim dstart%, An1%, An2%, T1 As Long
outData1(1) = 54
   TX.MSComm1.Output = outData1
   Label1.Caption = "注：正在连接单片机..."
   
   T1 = GetTickCount

Do
  DoEvents
  Loop Until TX.MSComm1.InBufferCount >= 1 Or GetTickCount - T1 >= 1000
  If TX.MSComm1.InBufferCount >= 1 Then
    inData = TX.MSComm1.Input
    dstart = LBound(inData)
      If inData(dstart) = 55 Then
      Label1.Caption = "注：通信成功！你可以给装置上电"
      UPpower.Enabled = True
      Comm.Enabled = False
       Else
      Label1.Caption = "连接失败，请检查设置，然后重试！"
      An1 = MsgBox("连接失败，请检查设置，然后重试！", vbRetryCancel, "连接失败")
      If An1 = 4 Then
         GoTo 1:
      End If
      End If
  Else
    Label1.Caption = "注：连接超时，请检查设置，然后重试！"
    An2 = MsgBox("连接超时，请检查设置，然后重试！", vbRetryCancel, "连接超时")
    If An2 = 4 Then
       GoTo 1:
    End If
 End If
  
End Sub


Private Sub Command2_Click()
'TX.MSComm1.PortOpen = False
End
End Sub

Private Sub Form_Load()
With Combo_port
               .AddItem (1)
               .AddItem (2)
               .AddItem (3)
               .AddItem (4)
               .AddItem (5)
               .AddItem (6)
               .AddItem (7)
               .AddItem (8)
               .AddItem (9)
               .AddItem (10)
End With
Combo_port.Text = "1"
Label1.Caption = "注：如果要开始设置工作，请首先选择端口号，然后按“连接”键和单片机建立通信！"
UPpower.Enabled = False
PLGO.Enabled = False
End Sub

Private Sub PLGO_Click()
TX.MSComm1.PortOpen = False
CSSD.Visible = True
Unload Main
End Sub

Private Sub UPpower_Click()
Dim outData1(1 To 1) As Byte
Dim inData() As Byte
Dim dstart%
outData1(1) = 62
   TX.MSComm1.Output = outData1
   Label1.Caption = "注：正在上电..."

Do
  DoEvents
  Loop Until TX.MSComm1.InBufferCount >= 1
  inData = TX.MSComm1.Input
  dstart = LBound(inData)
  If inData(dstart) = 63 Then
  Label1.Caption = "注：装置已上电，你可以进行下一步"
  Else
      Label1.Caption = "上电失败"
  End If
  PLGO.Enabled = True
  UPpower.Enabled = False
End Sub