Почему моя последовательная связь перестает работать при запуске цикла?
У меня есть проблема с последовательной передачей данных, если я запустил цикл, он не обновляет данные с моих весов. Я не могу понять, как продолжить общение, а также запустить цикл. Логика моего кода будет находиться в цикле, чтобы я мог проверить значение из моего целого числа и сравнить его с данными из последовательных данных (Весы)
Это код, в котором я получаю данные
Private Sub conWeight_DataReceived(sender As System.Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles conWeight.DataReceived receivedText(conWeight.ReadExisting()) End Sub Private Sub receivedText(ByVal [text] As String) If Me.lblWeight.InvokeRequired Then Dim x As New SetTextCallback(AddressOf receivedText) Me.Invoke(x, New Object() {(text)}) Else Dim reverseString As String = [text] Dim revString As String = StrReverse(reverseString) Dim clean As String clean = revString.Replace("=", "") Me.lblWeight.Text = clean 'append text End If End Sub
Это функция с циклом
Function batching() As String BunifuFlatButton1.Enabled = False If binWeight = 0 Then targetweight = CInt(txtbSilo1.Text) + CInt(txtbSilo2.Text) + CInt(txtbSilo3.Text) + CInt(txtbSilo4.Text) If CInt(txtbSilo1.Text) > 0 Then currentWeight = CInt(txtbSilo1.Text) frmAutomaticControl.conControl.Open() frmAutomaticControl.conControl.Write("motr1") frmAutomaticControl.conControl.Close() MsgBox("check") Do If binWeight >= currentWeight Then frmAutomaticControl.conControl.Open() frmAutomaticControl.conControl.Write("moto1") frmAutomaticControl.conControl.Close() Exit Do End If Loop Else End If BunifuFlatButton1.Enabled = True Else MsgBox("Empty The Bin") End If Return 0 End Function
Что я уже пробовал:
Я уже изменил его на do while или другой цикл.