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

タイトル 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長のデータを組み立てて、
それをテキスト(数字)に変換してラベルに表示する予定です。

よろしくお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

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