サンプルプログラム > デジタル入出力 >

VB(.NET2002以降)

開発環境の設定

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

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

プログラム例

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

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

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

'OUT0~7の出力をONします
For i = 0 To 7
    outputData(i) = 1
Next
result = YdciDioOutput(id, outputData, 0, 8)

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