サンプルプログラム >

Visual Basic 6.0/VBA¶

開発環境の設定¶

VB6.0¶

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

VBA¶

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

プログラム例¶

Dim lngResult As Long
Dim strModelName As String
Dim bytInData(0 To 15) As Byte
Dim bytOutData(0 To 31) As Byte
Dim blnResult As Boolean
Dim strInData As String
Dim i As Integer

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

'IN0～15の入力をおこないます
lngResult = YduDioInput(0, bytInData(0), 0, 16)
'入力データの表示
For i = 0 To 15
    strInData = strInData & "IN" & i & " : " & bytInData(i) & vbCrLf
Next
MsgBox strInData, vbInformation

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

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