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

Product_Manager/MainForm.vb

@@ -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
+        Else
-    Return False
+            Return False
     End If
     End Function