タイトル : Re^4: 続きです (通信について) 投稿日 : 2008/04/19(Sat) 21:24 投稿者 : VV
Starfishさん!! ご丁寧に本当にどうもありがとうございます! 今試せない状態なのですが、明日実行してみます!! 基本的なことかもしれませんが。。。 送信が完了した後は、受信したものを テキストファイルに書き込めるようにしようとしています。 いろんなところに書いてあるサンプルを参照に色々ためしては みたものの、なかなかうまくいきません。 変なところあったら指摘してください! おねがいします。。。 ’表示周波数の読み込み Private Sub Command1_Click() Dim bytData() As Byte MSComm1.InputMode = comInputModeBinary MSComm1.CommPort = 1 MSComm1.Settings = "1200,N,8,1" MSComm1.PortOpen = True ReDim bytData(10) As Byte bytData(0) = &HFE bytData(1) = &HFE bytData(2) = &H60 bytData(3) = &HE0 bytData(4) = &H3 bytData(5) = &HFD MSComm1.Output = bytData ’下記の部分はわけわからず使っているんですが、やはりうまくいきません↓↓ MSComm1.InputLen = 0 TxtDisplay.Text = MSComm1.Input MSComm1.PortOpen = False End Sub シリアル通信のソフトで、周波数表示のコマンドを送ると、 データのところに、00 98 89 44 01 と表示されて返ってきます。 ちなみに、これは144.899MHzをさしています。 16進数で来ているだけだと思い、計算するとまったく違いました。 なにかこちらもご存知の方いらっしゃいましたら、よろしくお願いします。。。 よろしくお願いします。 |