タイトル : Re^7: キャプションに(追記) 投稿日 : 2008/01/05(Sat) 14:21 投稿者 : 花ちゃん
> > 現在のテスト段階では、 MSComm1.InputMode = comInputModeBinary なのですか? > > > そのとおりです。 だったらバイナリモードで取得しないとまずいでしょう。 Dim Buffer() As Byte Dim i As Long MSComm1.InputMode = comInputModeBinary Buffer = MSComm1.Input For i = LBound(Buffer) To UBound(Buffer) Label1.Caption = Label1.Caption & Chr$(Buffer(i)) Next i > MsgBox str では正しく A が表示されますが、 > MsgBox "[" & str & "]" では [? となってしまいます。 正しく A が表示されていないから [? になるのでは。 送信元のデータの文字コードや送信モードはどのようになっていますか? 送信元と受信先の設定は同じにしておいて下さいね。 多分下記のような状態になっているのでは。 Private Sub Command1_Click() Dim Buffer(0) As Byte Dim i As Long Buffer(0) = &H41 Dim str As String str = CStr(Buffer) MsgBox str MsgBox "[" & str & "]" '正しい取得 str = Chr$(Buffer(0)) MsgBox str MsgBox "[" & str & "]" End Sub |