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

Visual Basic 6.0/VBA¶

オブジェクト¶

テキストボックス	オブジェクト名
ID番号	txtID

変数¶

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

'センサ設定
'オンで検知するセンサを接続している場合や、リミットスイッチを接続していない場合はモーターが動作しません
'その場合は以下の関数を実行してセンサ設定を"オンで検知"に変更してください
'lngResult = PmcmSetSensorConfig(m_intID, intAxis, PMCM_LOGIC, &H3F)
'If lngResult <> PMCM_RESULT_SUCCESS Then
'    MsgBox "PmcmSetSensorConfig ERROR : 0x" & Hex(lngResult), vbCritical
'    Exit Sub
'End If

'パルス出力モード設定
'使用しているドライバに合致したパルス出力モードを選択してください
lngResult = PmcmSetPulseConfig(m_intID, intAxis, PMCM_PULSE_OUT, 7)
If lngResult <> PMCM_RESULT_SUCCESS Then
    MsgBox "PmcmSetPulseConfig ERROR : 0x" & Hex(lngResult), vbCritical
    Exit Sub
End If

動作パラメータ設定¶

Dim lngResult As Long
Dim intAxis As Integer
Dim MotionLine As MOTIONLINEPMCM

intAxis = PMCM_AXIS_X + PMCM_AXIS_Y

MotionLine.wStartMode = PMCM_CONST '起動モード
MotionLine.fSpeedRate = 1 '速度倍率
MotionLine.wAccDecMode = PMCM_ACC_LINEAR '加減速モード
MotionLine.fLowSpeed = 1000 '起動時速度
MotionLine.fSpeed = 1000 '移動速度
MotionLine.wAccTime = 0 '加速時間
MotionLine.wDecTime = 0 '減速時間
MotionLine.fSAccSpeed = 0 '加速S字区間
MotionLine.fSDecSpeed = 0 '減速S字区間
MotionLine.lSlowdown = -1 'スローダウンポイント
MotionLine.lStep(0) = 500 '移動パルス数,移動方向
MotionLine.lStep(1) = 1000 '移動パルス数,移動方向
MotionLine.bAbsolute(0) = 0 '絶対座標指定
MotionLine.bAbsolute(1) = 0 '絶対座標指定
'動作パラメータ設定
lngResult = PmcmSetMotionLine(m_intID, intAxis, MotionLine)
If lngResult <> PMCM_RESULT_SUCCESS Then
    MsgBox "PmcmSetMotionLine ERROR : 0x" & Hex(lngResult), vbCritical
    Exit Sub
End If

動作開始¶

Dim lngResult As Long

'動作開始
lngResult = PmcmStartMotionLine(m_intID)
If lngResult <> PMCM_RESULT_SUCCESS Then
    MsgBox "PmcmStartMotionLine ERROR : 0x" & Hex(lngResult), vbCritical
    Exit Sub
End If

動作停止¶

Dim lngResult As Long
Dim intAxis As Integer
Dim intStopMode As Integer

'停止させる軸
intAxis = PMCM_AXIS_X + PMCM_AXIS_Y

'停止モード
intStopMode = PMCM_IMMEDIATE_STOP

'動作停止
lngResult = PmcmStopMotion(m_intID, intAxis, intStopMode)
If lngResult <> PMCM_RESULT_SUCCESS Then
    MsgBox "PmcmStopMotion ERROR : 0x" & Hex(lngResult), vbCritical
    Exit Sub
End If

クローズ¶

Dim blnResult As Boolean

'ボードクローズ
blnResult = PmcmClose(m_intID)