コンテンツにスキップ
サンプルプログラム > デジタル入出力 >

Visual Basic 6.0/VBA

開発環境の設定

VB6.0

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

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

VBA

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

プログラム例

Dim result As Long
Dim modelName As String
Dim inputData(0 To 15) As Byte
Dim outputData(0 To 31) As Byte
Dim resultClose As Boolean
Dim strInData As String
Dim i As Integer

'IDが0に設定されているPMC-S4/16/32A-Uをオープンします
modelName = "PMC-S4/16/32A-U"
result = YduOpen(0, modelName)
If result <> YDU_RESULT_SUCCESS Then
    MsgBox "オープンできません", vbInformation
    Exit Sub
End If

'IN0~15の入力をいます
result = YduDioInput(0, inputData(0), 0, 16)
'入力データの表示
For i = 0 To 15
    strInData = strInData & "IN" & i & " : " & inputData(i) & vbCrLf
Next
MsgBox strInData, vbInformation

'OUT0~31の出力をONします
For i = 0 To 31
    outputData(i) = 1
Next
result = YduDioOutput(0, outputData(0), 0, 32)

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