📄 frmstartlocation.frm
字号:
VERSION 5.00
Begin VB.Form frmStartLocation
Caption = "Form1"
ClientHeight = 5775
ClientLeft = 60
ClientTop = 345
ClientWidth = 7470
LinkTopic = "Form1"
ScaleHeight = 5775
ScaleWidth = 7470
StartUpPosition = 3 'Windows Default
Begin VB.TextBox TextZ
Height = 615
Left = 4800
TabIndex = 8
Top = 4080
Width = 1215
End
Begin VB.TextBox TextY
Height = 615
Left = 2760
TabIndex = 7
Top = 4080
Width = 1335
End
Begin VB.TextBox textX
Height = 615
Left = 840
TabIndex = 6
Top = 4080
Width = 1215
End
Begin VB.TextBox textAnchorNodeNo
Height = 495
Left = 1800
TabIndex = 4
Top = 1920
Width = 1935
End
Begin VB.Timer Timer1
Left = 5400
Top = 1200
End
Begin VB.CommandButton Command2
Caption = "退出"
Height = 495
Left = 3240
TabIndex = 2
Top = 3000
Width = 1455
End
Begin VB.CommandButton butSubmit
Caption = "确定"
Height = 495
Left = 1200
TabIndex = 1
Top = 3000
Width = 1455
End
Begin VB.TextBox textNodeAddress
Height = 495
Left = 1800
TabIndex = 0
Top = 1200
Width = 1935
End
Begin VB.Label Label6
Caption = "节点地址"
Height = 495
Left = 600
TabIndex = 12
Top = 1200
Width = 975
End
Begin VB.Label Label5
Caption = "Z"
Height = 375
Left = 4440
TabIndex = 11
Top = 4200
Width = 255
End
Begin VB.Label Label4
Caption = "Y"
Height = 375
Left = 2400
TabIndex = 10
Top = 4200
Width = 255
End
Begin VB.Label Label2
Caption = "X"
Height = 375
Left = 480
TabIndex = 9
Top = 4200
Width = 255
End
Begin VB.Label Label1
Caption = "锚节点个数"
Height = 495
Left = 480
TabIndex = 5
Top = 1920
Width = 1095
End
Begin VB.Label Label3
Caption = "地址，16进制，不包括0X"
ForeColor = &H000000FF&
Height = 375
Left = 840
TabIndex = 3
Top = 600
Width = 3015
End
End
Attribute VB_Name = "frmStartLocation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim timeout As Boolean
Dim strNodeAddress As String
Dim i As Integer
Private Sub butSubmit_Click()
strNodeAddress = Trim(textNodeAddress.Text)
If (strNodeAddress = "") Then
MsgBox "请输入地址信息", vbOKOnly, "Error"
Exit Sub
End If
If (Len(strNodeAddress) > 2) Then
MsgBox "请输入正确的地址信息(长度小于2)", vbOKOnly, "Error"
Exit Sub
End If
If Not isHex(Left(strNodeAddress, 1)) Then
MsgBox "请输入正确的地址信息", vbOKOnly, "Error"
Exit Sub
End If
If Not isHex(Right(strNodeAddress, 1)) Then
MsgBox "请输入正确的地址信息", vbOKOnly, "Error"
Exit Sub
End If
If (Trim(textAnchorNodeNo.Text) = "") Then
MsgBox "请输入锚节点个数", vbOKOnly, "Error"
Exit Sub
End If
If Not IsNumeric(Trim(textAnchorNodeNo.Text)) Then
MsgBox "锚节点个数只能为数字", vbOKOnly, "Error"
Exit Sub
End If
If CInt(Trim(textAnchorNodeNo.Text)) > 8 Then
MsgBox "锚节点个数小于8", vbOKOnly, "Error"
Exit Sub
End If
Dim j As Integer
If MsgBox("开始定位?", vbOKCancel, "confirm") = vbOK Then
If (isCommOpen = False) Then
MsgBox "串口没有被正确打开，请检查配置文件"
butSubmit.Enabled = True
Exit Sub
End If
start_location
End If
End Sub
Private Sub Command2_Click()
If (MsgBox("确定退出吗？", vbOKCancel, "Confirm") = vbOK) Then
Unload Me
MainForm.Show
End If
End Sub
Private Sub Form_Load()
Open "dangqiandian.txt" For Output As #1
End Sub
Private Sub Timer1_Timer()
timeout = True
'MsgBox "超时"
Timer1.Enabled = True
End Sub
Private Sub start_location()
While (1)
Command(0) = COMMAND_START_LOCATION
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) = "&H" & Trim(textAnchorNodeNo.Text)
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 = UART_RADIO_RETRY_COUNT * UART_RADIO_HAL_TIME + 2000
timeout = False
DoEvents
Do
DoEvents
If timeout Then
Exit Do
End If
Loop Until ((MainForm.MSComm1.InBufferCount >= COMMAND_RESPONSE_LENGTH))
'MsgBox MainForm.MSComm1.InBufferCount
'Timer1.Enabled = False
If (Not timeout) Then
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_START_LOCATION_RESPONSE)) And Hex(txtBuff(0)) = Hex(txtBuff(1)) And Hex(txtBuff(1)) = Hex(txtBuff(2))) Then
'检查设置是否成功
If txtBuff(6) = SUCCESS_RESPONSE Then
'MsgBox "设置成功", , "success"
'MsgBox txtBuff(7)
'MsgBox txtBuff(8)
'显示XYZ坐标
'If (txtBuff(7) / 2) > 40 Then
'Else
textX.Text = txtBuff(7) / 2
TextY.Text = txtBuff(8) / 2
TextZ.Text = 0
'Print #1, textX.Text; TextY.Text
'End If
Close #1
'Timer1.Enabled = False
Else
msgErrorMessage CInt(CStr(txtBuff(7)))
End If
Else
MsgBox "错误的响应格式", , "Error"
End If
Timer1.Enabled = True
Timer1.Interval = UART_RADIO_RETRY_COUNT * UART_RADIO_HAL_TIME + 7000
timeout = False
Else
Timer1.Enabled = True
Timer1.Interval = 2 * (UART_RADIO_RETRY_COUNT * UART_RADIO_HAL_TIME) + 7000
timeout = False
End If
Wend
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -