サンプルプログラム > アナログ入出力 >

Visual Basic(.NET2002以降)

開発環境の設定

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

  2. YduApi.vb, YduAioApi.vb, YduResult.vbをプロジェクトに追加します

プログラム例

Dim result As Integer
Dim inputData(7) As Single
Dim outputData(3) As Single
Dim msgText As String
Dim i As Integer

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

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

'AOUT0~3の出力を5Vにします
For i = 0 To 3
    outputData(i) = 5
Next
result = YduAioOutputVolt(0, outputData, 0, 4)

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