frmsetnoadaddress.frm

无线传感器网络节点的定位引擎程序

VERSION 5.00
Begin VB.Form frmSetNodeAddress 
   Caption         =   "设置节点地址"
   ClientHeight    =   3915
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6315
   LinkTopic       =   "Form1"
   ScaleHeight     =   3915
   ScaleWidth      =   6315
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Left            =   5520
      Top             =   2400
   End
   Begin VB.CommandButton butCancel 
      Caption         =   "退出"
      Height          =   495
      Left            =   3240
      TabIndex        =   3
      Top             =   2160
      Width           =   1215
   End
   Begin VB.CommandButton butSubmit 
      Caption         =   "确定"
      Height          =   495
      Left            =   1080
      TabIndex        =   2
      Top             =   2160
      Width           =   1215
   End
   Begin VB.TextBox txtNodeAddress 
      Height          =   495
      Left            =   3960
      TabIndex        =   0
      Top             =   960
      Width           =   1335
   End
   Begin VB.Label Label2 
      Caption         =   "请检查串口是否已经正确连接到节点上"
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   1440
      TabIndex        =   4
      Top             =   3000
      Width           =   3615
   End
   Begin VB.Label Label1 
      Caption         =   "请输入节点的地址(16进制，不包括0x)"
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   360
      TabIndex        =   1
      Top             =   1080
      Width           =   3375
   End
End
Attribute VB_Name = "frmSetNodeAddress"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim timeout As Boolean
Dim isreceived As Boolean
Option Explicit


Private Sub butCancel_Click()
    If (MsgBox("确定退出吗？", vbOKCancel, "Confirm") = vbOK) Then
         Unload Me
        MainForm.Show
        
    End If
    
End Sub

Private Sub butSubmit_Click()
Dim i As Integer
butSubmit.Enabled = False
Dim strNodeAddress As String

strNodeAddress = Trim(txtNodeAddress.Text)

If (strNodeAddress = "") Then
    MsgBox "请输入地址信息", vbOKOnly, "Error"
    butSubmit.Enabled = True
    Exit Sub
End If
If (Len(strNodeAddress) > 2) Then
    MsgBox "请输入正确的地址信息(长度小于2)", vbOKOnly, "Error"
    butSubmit.Enabled = True
    Exit Sub
End If

If Not isHex(Left(strNodeAddress, 1)) Then
    MsgBox "请输入正确的地址信息", vbOKOnly, "Error"
    butSubmit.Enabled = True
    Exit Sub

End If
If Not isHex(Right(strNodeAddress, 1)) Then
    MsgBox "请输入正确的地址信息", vbOKOnly, "Error"
    butSubmit.Enabled = True
    Exit Sub

End If


If MsgBox("确定写入节点?", vbOKCancel, "confirm") = vbOK Then
    If (isCommOpen = False) Then
        MsgBox "串口没有被正确打开，请检查配置文件"
        butSubmit.Enabled = True
        Exit Sub
    End If
    Command(0) = COMMAND_SET_NODE_ADDRESS
    Command(1) = Command(0)
    Command(2) = Command(0)
    Command(3) = PC_ADDRESS
    Command(4) = "&H" & strNodeAddress
    seqno = seqno + 1
    
    '修改ini中seqno
    WritePrivateProfileString "SEQNO", "seqno", CStr(seqno), ConfigFilePath
    Int2BYTE seqno, Command(6), Command(5)
    Command(7) = &H0
    Command(8) = &H0
    Command(9) = &H0
    
    MainForm.Text1.Text = MainForm.Text1.Text & Now & " " & "发送" & " "
    
    For i = 0 To UBound(Command)
    MainForm.Text1.Text = MainForm.Text1.Text + " "
    If Len(CStr(Hex(Command(i)))) = 1 Then
        MainForm.Text1.Text = MainForm.Text1.Text + "0"
    
    End If
        MainForm.Text1.Text = MainForm.Text1.Text + CStr(Hex(Command(i)))
    Next
    MainForm.Text1.Text = MainForm.Text1.Text + vbCrLf
    
    
    MainForm.MSComm1.Output = Command
    
    'waitting for response
    
    Dim txtBuff() As Byte
    



    MainForm.MSComm1.InBufferCount = 0 ' clear inBuffer
    Timer1.Enabled = True
    Timer1.Interval = 2000
    timeout = False
    

    Do
      DoEvents
      If timeout Then
       Exit Do
      End If
    Loop Until ((MainForm.MSComm1.InBufferCount = COMMAND_RESPONSE_LENGTH))
    Timer1.Enabled = False
    If Not timeout Then
        isreceived = True
        
        
        MainForm.Text1.Text = MainForm.Text1.Text & Now & " " & "接收" & " "
        txtBuff = MainForm.MSComm1.Input
        For i = 0 To COMMAND_RESPONSE_LENGTH - 1
        MainForm.Text1.Text = MainForm.Text1.Text + " "
        If Len(CStr(Hex(txtBuff(i)))) = 1 Then
            MainForm.Text1.Text = MainForm.Text1.Text + "0"
        
        End If
            MainForm.Text1.Text = MainForm.Text1.Text + CStr(Hex(txtBuff(i)))
        Next
        MainForm.Text1.Text = MainForm.Text1.Text + vbCrLf
        
        If (CStr(txtBuff(0) = CStr(COMMAND_SET_NODE_ADDRESS_RESPONSE)) And Hex(txtBuff(0)) = Hex(txtBuff(1)) And Hex(txtBuff(1)) = Hex(txtBuff(2))) Then
            MsgBox "设置成功", , "success"
        Else
            MsgBox "错误的响应格式", , "Error"
        End If
    
    Else
        MsgBox "定时器超时，请检查网关节点和PC串口是否连接完好"
        Timer1.Enabled = False
        butSubmit.Enabled = True
    End If
   
    
   
  
    butSubmit.Enabled = True
Else
    butSubmit.Enabled = True
End If





End Sub



Private Sub Timer1_Timer()
   
    timeout = True

    
End Sub