Merge pull request 'feat: 모터 백래쉬 쓰기 기능 추가' (#9) from feature/add-motor-backlash into main
Reviewed-on: #9
This commit is contained in:
commit
dde1265704
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user