タイトル : Re^4: キャプションに(追記) 投稿日 : 2008/01/05(Sat) 11:33 投稿者 : Beginner
お世話になります。 > 下記では、Label に表示されますか? > Private Sub Command1_Click() > Dim Buffer As Variant > Dim str As String > Buffer = Chr$(&H41) > str = CStr(Buffer) > ’ MsgBox str > Label1.Caption = str > End Sub > 正しく表示されます。 > 又、現在のコードを下記コードに変更した場合どうなりますか? > > Dim Buffer As Variant > Dim str As String > Buffer = MSComm1.Input > str = CStr(Buffer) > Debug.Print Len(str) > Debug.Print str > Debug.Print Asc(str) > Label1.Caption = Replace(str, vbNullChar, "") > やってみたところ、 Debug.Print Asc(str) の箇所で「実行時エラー'5' プロシージャの呼び出し、または引数が不正です」となります。 この行をコメントアウトすると、ラベルはクリアされます。 > 送・受信モードは、テキストになっていますよね。 > MSComm1.InputMode = comInputModeText > 現在はデバッグのためテキストデータを受信していますが、最終的にはバイナリデータを 受信したいので、 MSComm1.InputMode = comInputModeBinary としています。 最終的には 2バイト長の受け取ったバイナリデータから16bit長のデータを組み立てて、 それをテキスト(数字)に変換してラベルに表示する予定です。 よろしくお願いします。 |