サンプルプログラム > リレー出力 >

Visual Basic 6.0/VBA¶

開発環境の設定¶

VB6.0¶

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

VBA¶

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

プログラム例¶

Dim lngResult As Long
Dim strModelName As String
Dim bytOutData(0 To 23) As Byte
Dim blnResult As Boolean
Dim i As Integer

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

'RY1～24のリレーをONします
For i = 0 To 23
    bytOutData(i) = 1
Next
lngResult = YduRlyOutput(0, bytOutData(0), 0, 24)

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