サンプルプログラム > リレー出力 >

Visual Basic（.NET2002以降）¶

開発環境の設定¶

以下のファイルをプロジェクトフォルダにコピーします
YdciApi.vb
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)