Page 195 - 第4部応用事例編ver60_Neat

４９６ スイッチ情報受信エ

●4ビットのスイッチ情報を受信して、エクセルシ
示します。

VBAプログラム

Sub rx_data()

ec.COMn = 4 COMポート番

ec.Setting = "9600,n,8,1" USB-RS232C

ec.HandShaking = "N" が接続されて

ec.Delimiter = "CR" で、4は一例

Dim rx_data As String

Dim gyou As Byte

gyou = 1 マイコンからの数値を文字
Dim retu As Byte 信します。
retu = 2

Do

rx_data = ec.AsciiLine

ActiveSheet.Cells(gyou, retu).Value = rx_data

Loop

ec.COMn = 0 エクセルの所定のセルに表
End Sub る書式です。

●ec.がついているのがEasyComm関連です。

問496 受信した文字列が0x33,0x38,0x0d の場