COMport.Readline() 문제 : 플러딩 된 버퍼 및 문자열 조작

Question

직렬 포트에 일정한 출력을 갖는 체중 눈금이 있습니다. 나는 3 초마다 루프를 실행하여 저울에서 가장 최근의 무게를 읽는 응용 프로그램을 만들었습니다. 루프는 Async Sub를 사용하고 Await Task.Run(Sub()은 3 초 동안 대기합니다. 나는 2 가지 이슈를 가지고있다.

첫째, 버퍼가 데이터로 넘쳐 흐르고 있으므로 100 파운드라고 말하면 버퍼에서 이전 데이터를 읽지 만 실제 저울의 무게는 0입니다. 그러나 천천히 내려갑니다 초. Backgroundworker에서 readline()을 계속 반복하려했으나 저울이 여전히 빠르게 출력됩니다. readline() 앞에 'DiscardBuffer()'를 써야하나요? 아니면 또 다른 독서 방법이 있습니까?

코드 : COM 포트 소품

With COMScale 'COM Port Properties 

     .PortName = cmbPorts.Text 'COM Port Name 

     .Parity = IO.Ports.Parity.None 

     .DataBits = 8 

     .StopBits = IO.Ports.StopBits.One 

     .BaudRate = 9600 

     .ReceivedBytesThreshold = 1 

     .NewLine = vbCr 

     .ReadTimeout = 5000 

    End With 

코드 : BackgroundWorker에 두 번째 문제는 스케일 출력, 그것은 다음과 같이 좋아하는 문자열입니다

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork 

    WeightA = 0 

    COMScale.DiscardInBuffer() 

    Try 

     COMScale.ReadTimeout = 10000 

     Do 

      Dim Incoming As String = COMScale.ReadLine() 

      If Incoming Is Nothing Then 

       Exit Do 

      Else 

       WeightA &= Incoming 

      End If 

     Loop 

    Catch ex As TimeoutException 

     WeightA = "N/A" 

     MsgBox(COMScale.PortName & "Timed Out") 

    Finally 

     'If com1 IsNot Nothing Then com1.Close() 

     lblWeightA.Text = WeightA 

    End Try 

End Sub 

...

"오?" & CHRW (2) & CHRW (2) & "? J"& CHRW (2) & "47"& CHRW (2) & CHRW (2) & CHRW (2) & CHRW (2) & "?? J "& CHRW (2) &", 475 "& CHRW (2) & CHRW (2) & CHRW (2) &"? J "& CHRW (2) &을 '475 00'

온 그 무게는 47.5lbs입니다.

끝에는 "475"숫자가 필요하지만 십진수는 47.5입니다. 내가 생각할 수있는 유일한 것은 Right(String)을 사용하여 볼 수있는 Right(string) 문제입니다. 1000 파운드, 100 파운드 또는 10 파운드가 될 수 있으므로 필요한 부분을 잘라 버릴 수 있습니다. 내 최선의 선택은 뭐니?

Answer 1

3 초 동안자는 대신 응용 프로그램을 계속 읽어야합니다. 그런 다음 버퍼가 채워지지 않습니다.

그래서 BackgroundWorker를 루프로 실행하십시오. 또한 배경 작업자의 UI 요소를 수정하지 마십시오. 대신 ReportProgress를 사용하여 양식으로 보내십시오.

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork 
    COMScale.DiscardInBuffer() 
    Dim buffer As String 
    While e.Cancel = False 

     Try 

      buffer &= COMScale.ReadLine() 

      buffer = ProcessBuffer(buffer) 

     Catch ex As TimeoutException 
      BackgroundWorker1.ReportProgress(0, ex) 
     End Try 

    End While 
End Sub 

Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged 
    If TypeOf e.UserState Is TimeoutException Then 
     lblWeightA.Text = "N/A" 
     MessageBox.Show("Timeout") 
    ElseIf TypeOf e.UserState Is Decimal Then 
     lblWeightA.Text = CDec(e.UserState).ToString() 
    End If 
End Sub 

Private Function ProcessBuffer(inputBuffer As String) 
    'Parse your string. Looking for the last occurrence of the data you need. 

    If extractedPortion IsNot Nothing 
     BackgroundWorker1.ReportProgress(0, Decimal.Parse(extractedPortion)) 
    End If 

    Return leftOverChacters 
End Function