Merge pull request 'feat: 모터 백래쉬 쓰기 기능 추가' (#9) from feature/add-motor-backlash into main

Reviewed-on: #9
This commit is contained in:
ssy99 2025-05-09 14:04:44 +09:00
commit dde1265704

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