コンテンツにスキップ
サンプルプログラム > リレー出力 >

Visual Basic 6.0/VBA

開発環境の設定

VB6.0

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

  2. YdciApi.basをプロジェクトに追加します

VBA

  1. YdciApi.basをインポートします

プログラム例

Dim lngResult As Long
Dim strModelName As String
Dim intID As Integer
Dim bytInData(0 To 1) As Byte
Dim bytOutData(0 To 3) As Byte
Dim blnResult As Boolean
Dim strInData As String
Dim i As Integer

'ボード識別スイッチが0のボードをオープンします
strModelName = "RLY-P4/2/0B-UBT"
lngResult = YdciOpen(0, strModelName, intID)
If lngResult <> YDCI_RESULT_SUCCESS Then
    MsgBox "オープンできません", vbInformation
    Exit Sub
End If

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

'RY1~4のリレー出力をONします
For i = 0 To 3
    bytOutData(i) = 1
Next
lngResult = YdciRlyOutput(intID, bytOutData(0), 0, 4)

'ボードをクローズします
blnResult = YdciClose(intID)