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

Visual Basic（.NET2002以降）¶

開発環境の設定¶

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

プログラム例¶

Dim result As Integer
Dim outputData(23) As Byte
Dim i As Integer

'IDが0に設定されているAIO-84/R24A-Uをオープンします
result = YduOpen(0, "AIO-84/R24A-U")
If result <> YDU_RESULT_SUCCESS Then
    MessageBox.Show("オープンできません", "", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    Exit Sub
End If

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

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