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

タイトル ： Re^3: VB2005でバイナリデータをシリアル通信
投稿日： 2009/12/17(Thu) 09:52
投稿者： GOD
>     bytOut() = ChrB$(&HFE) + ChrB$(&HFE) + ChrB$(&H60) + ChrB$(&HE0) _
>              + ChrB$(&H0) + DA + ChrB$(&HFD)   '←ここが問題かと思います。
>     msSerialRadio.Output = bytOut
>
とりあえず固定値を送信できることを確認した方が良いですよ。
例えば、ボタンをクリックしたら100kHzのデータを送るとか。
↓プログラムの N 部分は 必要な数値に置き換えてください。
「'bytOut(5) 〜 bytOut(N)  <--- 100kHzの周波数データ」は私にはどう変換してよいか
わからないので補完してください。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim bytOut() As Byte = New Byte(N + 1) {}

    bytOut(0) = &HFE
    bytOut(1) = &HFE
    bytOut(2) = &H60
    bytOut(3) = &HE0
    bytOut(4) = &H0
    'bytOut(5) 〜 bytOut(N)  <--- 100kHzの周波数データ
    bytOut(N + 1) = &HFD
    SerialPort1.Write(bBuf, 0, bBuf.Length)
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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