コンテンツにスキップ
サンプルプログラム > DIO >

Visual Basic(.NET2002以降)

オブジェクト

テキストボックス Name
ID番号 idTextBox
入力No. inputNoTextBox
出力No. outputNoTextBox
出力データ outputDataTextBox

変数

Dim id As Short

オープン

Dim result As Integer

id = Convert.ToInt16(idTextBox.Text)
result = PmcmOpen(id, "PMC-M2C-U")
If result = PMCM_RESULT_SUCCESS Then
    MessageBox.Show("オープン成功", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
    MessageBox.Show("オープン失敗", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

設定

Dim result As Integer
Dim axis As Short

axis = PMCM_AXIS_X + PMCM_AXIS_Y

'汎用デジタル入力として使用する場合はINPとPCSをオンで検知(負論理)に設定
result = PmcmSetSensorConfig(id, axis, PMCM_LOGIC, &H30)
If result <> PMCM_RESULT_SUCCESS Then
    MessageBox.Show("PmcmSetSensorConfig ERROR : 0x" & result.ToString("X"), "", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Exit Sub
End If

'汎用デジタル入力として使用する場合はLTCを立ち下がりエッジに設定
result = PmcmSetSensorConfig(id, axis, PMCM_LTC_FUNC, 0)
If result <> PMCM_RESULT_SUCCESS Then
    MessageBox.Show("PmcmSetSensorConfig ERROR : 0x" & result.ToString("X"), "", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Exit Sub
End If

入力

Dim result As Integer
Dim inputData(0) As Byte
Dim inputNo As Short

inputNo = Convert.ToInt16(inputNoTextBox.Text)

result = PmcmDioInput(id, inputData, inputNo, 1)
If result = PMCM_RESULT_SUCCESS Then
    MessageBox.Show("入力データ : " & inputData(0).ToString(), "", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
    MessageBox.Show("PmcmDioInput ERROR : 0x" & result.ToString("X"), "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

出力

Dim result As Integer
Dim outputData(0) As Byte
Dim outputNo As Short

outputData(0) = Convert.ToByte(outputDataTextBox.Text)
outputNo = Convert.ToInt16(outputNoTextBox.Text)

result = PmcmDioOutput(id, outputData, outputNo, 1)
If result = PMCM_RESULT_SUCCESS Then
    MessageBox.Show("出力正常終了", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
    MessageBox.Show("PmcmDioOutput ERROR : 0x" & result.ToString("X"), "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

クローズ

Dim result As Boolean

result = PmcmClose(id)