サンプルプログラム >

Visual Basic（.NET2002以降）¶

開発環境の設定¶

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

プログラム例¶

Dim result As Integer
Dim inputData(15) As Byte
Dim outputData(31) As Byte
Dim msgText As String
Dim i As Integer

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

msgText = ""
'IN0～15の入力をおこないます
result = YduDioInput(0, inputData, 0, 16)
For i = 0 To 15
    msgText = msgText & "IN" & i & " : " & inputData(i) & ControlChars.CrLf
Next
MessageBox.Show(msgText)

'OUT0～31の出力をONします
For i = 0 To 31
    outputData(i) = 1
Next
result = YduDioOutput(0, outputData, 0, 32)

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