tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。