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
|
GoTo FAIL_Finish
|
||||||
End If
|
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.Text = "SUCCESS"
|
||||||
txbMtBox.BackColor = Color.Green
|
txbMtBox.BackColor = Color.Green
|
||||||
GoTo End_Finish
|
GoTo End_Finish
|
||||||
@ -4157,8 +4176,8 @@ End_Finish:
|
|||||||
txbMesDate.Text = sqlDataQuery(12)
|
txbMesDate.Text = sqlDataQuery(12)
|
||||||
|
|
||||||
Return True
|
Return True
|
||||||
Else
|
Else
|
||||||
Return False
|
Return False
|
||||||
End If
|
End If
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user