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

Visual Basic（.NET2002以降）¶

開発環境の設定¶

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