VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/04/19(Tue) 11:38
投稿者： まな
ＵＲＬ：
タイトル： データ送信の方法について

質問です。下記の【その１】だとうまく200msecで通信
してくれたのですが、【その２】の５個を一括で200msec
で送信しようと試みた方はうまくいきませんでした。

どのような方法が良いのか知っていましたら教えてください。

その１：
Private Sub Timer2_Timer()
'    Timer2.Interval = 200
    MSComm1.Output = Chr(1) & "AAAAA" & Chr(4)
    Do
        DoEvents
    Loop Until MSComm1.OutBufferCount = 0
End Sub

その２：
Private Sub Timer2_Timer()
'    Timer2.Interval = 200
    MSComm1.Output = Chr(1) & "AAAAA" & Chr(4)
    MSComm1.Output = Chr(1) & "BBBBB" & Chr(4)
    MSComm1.Output = Chr(1) & "CCCCC" & Chr(4)
    MSComm1.Output = Chr(1) & "12521" & Chr(4)
    MSComm1.Output = Chr(1) & "TS322" & Chr(4)
    Do
        DoEvents
    Loop Until MSComm1.OutBufferCount = 0
End Sub

よろしくお願いします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -