diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index bc9226f..a6eb2c7 100644 --- a/Product_Manager/MainForm.vb +++ b/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 - Return False + Else + Return False End If End Function