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 

...

"5？" & 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.5ポンドと言うスケール

私が必要とするのは、最後に「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