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に設定されているRLY-24A-Uをオープンします
result = YduOpen(0, "RLY-24A-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)