シリアル入力を比較してアクションを実行します

Question

これは非常にシンプルであるべきだと私は考えていますが、私の脳はなぜ機能していないのかを突き止めました。私はArduinoを使ってシリアルポートに "O"と "C"を送ります。私は "O"が送られるときにsubを実行したい、そして "C"が送られるときにもう一つのsubを実行したい。私は、「O」と「C」が送信されていることを確認し、これを使って、文字列であることができます。

Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived 
 
     Dim data As String = SerialPort1.ReadLine() 
 
     MessageBox.Show(data) 
 
     MessageBox.Show(data.GetType.ToString) 
 
    End Sub

私はその文字列を取ることができると私は望んでいたサブルーチンを実行することが期待しましたdata = "O"か "C"のどちらかに基づいて決定する。しかし、私はこれが（問題は選択-case文で何かある）仕事を得ることができない...全くこれを実行することはできませんよ：私はなぜ理解していないのです

Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived 
 
     Dim data As String = SerialPort1.ReadLine() 
 
     Select Case data 
 
      Case "O" 
 
       open() 
 
      Case "C" 
 
       close() 
 
     End Select 
 
    End Sub

単純な文字列の比較は機能しません。何か助けてくれてありがとう。

Answer 1

vbCrは、行の終わりを示す「キャリッジリターン」の文字です。 vbCrの前に常に1文字があることがわかっている場合は、SubStringメソッドを使用して、Select Caseにその文字のみをチェックさせることができます。

Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived 
    Dim data As String = SerialPort1.ReadLine() 
    Select Case data.SubString(0, 1) 
     Case "O" 
      open() 
     Case "C" 
      close() 
    End Select 
End Sub 

返されたデータを1つの文字（プラスvbCr）であることが保証されていない場合、あなたはより多くのコードが必要になりますが、あなたが必要となるコードは、可能な値が何であるかに依存します。

Answer 2

Arduinoからシリアルホストに1文字を送る場合は、Serial.println('C')ではなくSerial.print('C')としてください。そうすれば、Arduinoはあなたが見たいキャラクターだけを送り、2つの新しい行バイトを省略します。