MSCOMMを使用して0-255までの8ビットの信号を送るには？ (ID:115071)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 マグさん 36NETさん 返信ありがとうございます。 今日、再度試してみました。0xA1はマイコン側が、認識しています。その他大体0xA1あたりから0xDFあたりまで正しく、送れているみたいですが、0xE0以上また 0x80 - 0xA0あたり？までは認識していないですね。36NETさんからアドバイス頂いたようにバイナリ形式で送信をトライしているのですが、 Private Sub Command1_Click() Dim Data1, Data2 As Byte If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If Data1 = Val("&H" & Text1.Text) Data2 = Val("&H" & Text2.Text) Delay_time = Text3 If Check1.Value = 1 Then MSComm1.Output = Chr(Data1) End If If Check1.Value = 1 Or Check2.Value = 1 Then Wait (Delay_time) End If If Check2.Value = 1 Then MSComm1.Output = Chr(Data2) End If End Sub で、Chr()をはずすと、エラーで送信ができなくなります。 再度、アドバイスをいただけると、大変助かります。