コンテンツにスキップ
サンプルプログラム > アナログ入出力 >

Visual Basic 6.0/VBA

開発環境の設定

VB6.0

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

  2. YduBaseApi.bas, YduAioApi.basをプロジェクトに追加します

VBA

  1. 以下のファイルをインポートします
    YduBaseApi.bas
    YduAioApi.bas

プログラム例

Dim lngResult As Long
Dim strModelName As String
Dim sngInData(0 To 7) As Single
Dim sngOutData(0 To 3) As Single
Dim blnResult As Boolean
Dim strInData As String
Dim i As Integer

'IDが0に設定されているAIO-84A-Uをオープンします
strModelName = "AIO-84A-U"
lngResult = YduOpen(0, strModelName)
If lngResult <> YDU_RESULT_SUCCESS Then
    MsgBox "オープンできません", vbInformation
    Exit Sub
End If

'AIN0~7の入力をおこないます
lngResult = YduAioInputVolt(0, sngInData(0), 0, 8)
'入力データの表示
For i = 0 To 7
    strInData = strInData & "IN" & i & " : " & sngInData(i) & "V" & vbCrLf
Next
MsgBox strInData, vbInformation

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

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