タイトル : 通信について 投稿日 : 2008/04/16(Wed) 09:40 投稿者 : VV
VB6で無線機とシリアル通信して周波数制御をするのが目的です。 よろしくお願いします。 Private Sub Form_Click() Dim fu0 As Double Dim fd0 As Double Dim fu As Double Dim fd As Double Dim c As Double Dim z As Double Dim V As Double Dim pai As Double '衛星のすすんだ距離とかかった時間から速度(km/s)を求める pai = 3.14159 '衛星の送受信周波数(kHz) fu0 = 145# fd0 = 435# '光の速度(km/s) c = 299792 V = 0.078 '衛星の仰角 z = (145# * pai) / 180# '送信する周波数 fu = (c * fu0) / (c + V * Cos(z)) '受信する周波数 fd = (c * fd0) / (c - V * Cos(z)) Text1.Text = fu Text2.Text = fd MSComm1.CommPort = 1 MSComm1.Settings = "19200,N,8,1" MSComm1.PortOpen = True MSComm1.Output = Text1.Text MSComm1.Output = Text2.Text End Sub 上記のプログラムで パソコン‐パソコン間の通信の通信は可能になりました。 今度は無線機と通信がしたいのですが、 プリアンブル、受信アドレス、送信アドレス、コマンド、ポストアンブル をどこに入れるかがまったくわかりません。 必要な宣言とか書き方がありましたら教えていただきたいです。 また参考になるページとか本とかありますか?? |