サンプルプログラム > DIO >

Visual Basic 6.0/VBA¶

オブジェクト¶

テキストボックス	オブジェクト名
ID番号	txtID
入力No.	txtInputNo
出力No.	txtOutputNo
出力データ	txtOutputData

変数¶

Dim m_intID As Integer

オープン¶

Dim lngResult As Long
Dim strModelName As String

m_intID = Val(txtID.Text)
strModelName = "PMC-M2C-U"
lngResult = PmcmOpen(m_intID, strModelName)
If lngResult = PMCM_RESULT_SUCCESS Then
    MsgBox "オープン成功", vbInformation
Else
    MsgBox "オープン失敗", vbCritical
End If

設定¶

Dim lngResult As Long
Dim intAxis As Integer

intAxis = PMCM_AXIS_X + PMCM_AXIS_Y

'汎用デジタル入力として使用する場合はINPとPCSをオンで検知(負論理)に設定
lngResult = PmcmSetSensorConfig(m_intID, intAxis, PMCM_LOGIC, &H30)
If lngResult <> PMCM_RESULT_SUCCESS Then
    MsgBox "PmcmSetSensorConfig ERROR : 0x" & Hex(lngResult), vbCritical
    Exit Sub
End If

'汎用デジタル入力として使用する場合はLTCを立ち下がりエッジに設定
lngResult = PmcmSetSensorConfig(m_intID, intAxis, PMCM_LTC_FUNC, 0)
If lngResult <> PMCM_RESULT_SUCCESS Then
    MsgBox "PmcmSetSensorConfig ERROR : 0x" & Hex(lngResult), vbCritical
    Exit Sub
End If

入力¶

Dim lngResult As Long
Dim bytData As Byte
Dim intInputNo As Integer

intInputNo = Val(txtInputNo.Text)
lngResult = PmcmDioInput(m_intID, bytData, intInputNo, 1)
If lngResult = PMCM_RESULT_SUCCESS Then
    MsgBox "入力データ: " & bytData, vbInformation
Else
    MsgBox "PmcmDioInput ERROR : 0x" & Hex(lngResult), vbCritical
End If

出力¶

Dim lngResult As Long
Dim bytData As Byte
Dim intOutputNo As Integer

bytData = Val(txtOutputData.Text)
intOutputNo = Val(txtOutputNo.Text)
lngResult = PmcmDioOutput(m_intID, bytData, intOutputNo, 1)
If lngResult = PMCM_RESULT_SUCCESS Then
    MsgBox "正常終了", vbInformation
Else
    MsgBox "PmcmDioOutput ERROR : 0x" & Hex(lngResult), vbCritical
End If

クローズ¶

Dim blnResult As Boolean

blnResult = PmcmClose(m_intID)