コンテンツにスキップ
サンプルプログラム > リレー出力 >

Visual Basic(.NET2002以降)

開発環境の設定

  1. 以下のファイルをプロジェクトフォルダにコピーします
    YduApi.vb
    YduRlyApi.vb
    YduResult.vb

  2. YduApi.vb, YduRlyApi.vb, YduResult.vbをプロジェクトに追加します

プログラム例

Dim result As Integer
Dim outputData(23) As Byte
Dim i As Integer

'IDが0に設定されているRLY-24A-Uをオープンします
result = YduOpen(0, "RLY-24A-U")
If result <> YDU_RESULT_SUCCESS Then
    MessageBox.Show("オープンできません", "", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    Exit Sub
End If

'RY1~24のリレーをONします
For i = 0 To 23
    outputData(i) = 1
Next
result = YduRlyOutput(0, outputData, 0, 24)

'ユニットをクローズします
YduClose(0)