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

Visual Basic 6.0

開発環境の設定

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

  2. YduApi.bas, YduRlyApi.bas, YduResult.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" & Chr(0)
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)