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 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