feat: 모터 백래쉬 쓰기 기능 추가 #9

Merged
Ghost merged 1 commits from feature/add-motor-backlash into main 2025-05-09 14:04:45 +09:00

View File

@ -2389,6 +2389,25 @@ End_Finish:
GoTo FAIL_Finish
End If
''************************************
''******* txbFront 발신 ********
''************************************
tmpCmdMessage = "frontsen"
cmdMessage = "[sb" & tmpCmdMessage & " " & txbMotor.Text & "]"
If SendData(cmdMessage) Then
StageCnt = ErrorList.SendError
GoTo FAIL_Finish
End If
Dim DataResult As String = PollingReceiveData(1500)
If DataResult = "False" Then
StageCnt = ErrorList.ReceiveError
GoTo FAIL_Finish
End If
txbMtBox.Text = "SUCCESS"
txbMtBox.BackColor = Color.Green
GoTo End_Finish
@ -4157,8 +4176,8 @@ End_Finish:
txbMesDate.Text = sqlDataQuery(12)
Return True
Else
Return False
Else
Return False
End If
End Function