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

Visual Basic（.NET2002以降）¶

開発環境の設定¶

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