環境発電（エネルギー・ハーベスト）を利用したシステム開発 ―― ワイヤレスとバッテリレスを組み合わせてビル設備のエネルギー消費を大幅削減

Private Sub CommandButton1_Click()
'エラー時の処理対策
On Error GoTo Error

'変数宣言
Dim InData() As Byte
Dim disp As String
Dim man_id As String

'ストップボタンのフラグ
Stop_id = 0

'ポート番号をシートから読込み
port = Cells(3, 5).Value

'指定が無かったらmsgboxで表示して終了
If port = "" Then
    MsgBox ("ポートを指定してください")
    End
Else
'ポート番号に文字が入っていたら，COMポートのイニシャライズ設定を行う．
    ec.COMn = port
    ec.Setting = "9600,n,8,1"       '9600bps/8/n/1で固定．書式の順序に注意が必要です．
    ec.Delimiter = ec.DELIMs.CrLf   '初期設定，詳しくはec.COMのサイトを参照してください．

'バッファクリア
    ec.InBufferClear
   
'イニシャライズ終了で，動作開始を表示
    Cells(2, 5).Value = "動作中"

End If

'スタートボタンを消す．２度押しを回避．
CommandButton1.Visible = False

'Receive-----------------------------------------------

    'バッファからの吸出しデータサイズ(Byte)
    ec.BinaryBytes = 14

    ' Stopボタンが押されるまでループ
Do Until Stop_id = 1
   
    'Inbufferが14Byte以上になったらInData配列へデータを吸出し
    If ec.InBuffer > 13 Then
        InData() = ec.Binary
        GoSub DAT_Recieve
    End If
   
    '割込みを許可．
    DoEvents

Loop

End

DAT_Recieve:

    disp = ""       '取得データを削除

    'Inbufferから表示用に連続データとして取得
    For i = 0 To 13
        '上記[00]-[13]のデータを連続データとして読込み
        disp = disp & Right("0" & Hex(InData(i)), 2)
    Next i
   
    'セルへ表示
    Cells(5, 2).Value = disp

Return

' エラー処理
Error:
   
    'ポートクローズ
    ec.COMn = 0 'Port close
        'スタートボタンを表示
    CommandButton1.Visible = True
    'メッセージを表示
    MsgBox ("エラーが発生しました")
    '動作中のメッセージを削除
    Cells(2, 5).Value = ""
    '終了
    End

End Sub

Private Sub CommandButton3_Click()
    '終了処理
    Stop_id = 1

    'スタートボタンを表示
    CommandButton1.Visible = True
    'ポートクロ－ズ
    ec.COMn = 0 'Port close
    '動作中のメッセージを削除
    Cells(2, 5).Value = ""
    'メッセージ表示
    MsgBox ("終了しました")
    '終了
    End

End Sub