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

Visual Basic(.NET2002以降)

開発環境の設定

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

  2. YdciApi.vbをプロジェクトに追加します

プログラム例

Dim result As Integer
Dim id As Short
Dim inputData(1) As Byte
Dim outputData(3) As Byte
Dim msgText As String
Dim i As Integer

'ボード識別スイッチが0のボードをオープンします
result = YdciOpen(0, "RLY-P4/2/0B-UBT", id)
If result <> YDCI_RESULT_SUCCESS Then
    MessageBox.Show("オープンできません", "", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    Exit Sub
End If

'IN0~1の入力をおこないます
result = YdciDioInput(id, inputData, 0, 2)
For i = 0 To 1
    msgText = msgText & "IN" & i & " : " & inputData(i) & ControlChars.CrLf
Next
MessageBox.Show(msgText)

'RY1~4の出力をONします
For i = 0 To 3
    outputData(i) = 1
Next
result = YdciRlyOutput(id, outputData, 0, 4)

'ボードをクローズします
YdciClose(id)