ＭＰＣ−６、コマンド表

現在のバージョンのコマンド表です。
ASCIIでやる理由ですが、ＯＣＸの都合です．．．(^^;
暫定版なので、将来的には改造します。

通信速度　全二重9600bps／ノンパリティー／ストップビット１

パソコン→ＭＰＣ６
３バイト（ＡＳＣＩＩ）

Ａｘｘ　ポイント動作（定位）
　　　　ｘｘ＝ポイント番号（００〜９９）
Ｂｘｘ　ポイント動作（反位）
　　　　ｘｘ＝ポイント番号（００〜９９）

Ｃｘｘ　リレー動作（ＯＮ）
　　　　ｘｘ＝リレー番号
Ｄｘｘ　リレー動作（ＯＦＦ）
　　　　ｘｘ＝リレー番号

Ｅｘｘ　ポイントステータス要求
　　　　ｘｘ＝ポイント番号（００〜９９）

Ｆｘｘ　リレーステータス要求
　　　　ｘｘ＝リレー番号
Ｇｘｘ　リレーステータス要求（０〜１）
　　　　ｘｘ＝リレー番号

Ｏｘｘ　ＰＷＭ出力設定、０
Ｐｘｘ　ＰＷＭ出力設定、１
Ｑｘｘ　ＰＷＭ出力設定、２
Ｒｘｘ　ＰＷＭ出力設定、３
Ｓｘｘ　ＰＷＭ出力設定、４
Ｔｘｘ　ＰＷＭ出力設定、５
Ｕｘｘ　ＰＷＭ出力設定、６
Ｖｘｘ　ＰＷＭ出力設定、７

拡張機能

Ｚｘｘ　ＬＣＤデータ書き込み（００のみ）
　　　　この後、３２バイト分のデータを送る。

ＭＰＣ６→パソコン（返値）
２バイト（ＡＳＣＩＩ）

００＝コマンドＯＫ
ＦＦ＝設定不可

ステータス要求の場合、ステータスデーター


ＶＢ４でのサンプルプログラム（一部抜粋）
MSCOMM.OCXを使用しています

'No.1のリレーをＯＮする

Ret = ComTxout("C01")

Function ComTxout(TxData)
Dim Dummy As Integer
Dim Rdata As String
Dim Tmst As Long

Frm_Main.Lab_MainSts = "コマンド送信中"
Frm_Main.Lab_MainSts.Refresh


Tmst = Timer + TxTimeover

Frm_Main.MSComm1.Output = TxData

Do '--------- ２バイト受信まで待つ
Dummy = DoEvents()
Loop Until Frm_Main.MSComm1.InBufferCount >= 2 Or Timer >= Tmst

If Timer >= Tmst Then
ComTxout = 255
Else
Rdata = Frm_Main.MSComm1.Input
ComTxout = Val("&h" + Rdata)
Debug.Print Rdata

End If

Frm_Main.Lab_MainSts = ""
Frm_Main.Lab_MainSts.Refresh

End Function



戻る

Up Date 2001-04-29 Binichi