コンテンツにスキップ
サンプルプログラム >

Visual Basic(.NET2002以降)

開発環境の設定

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

  2. 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)