コンテンツにスキップ
サンプルプログラム > モーター制御 >

Visual Basic 6.0/VBA

開発環境の設定

VB6.0

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

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

VBA

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

プログラム例

Dim result As Long
Dim modelName As String
Dim axis As Integer
Dim motion(3) As MOTIONPMCS
Dim resultClose As Boolean

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

'オンで検知するセンサを接続している場合や、リミットスイッチを接続していない場合はモーターが動作しません
'その場合は以下の関数を実行してセンサ設定を"オンで検知"に変更してください
axis = PMC_AXIS_X0 + PMC_AXIS_Y0 + PMC_AXIS_Z0 + PMC_AXIS_U0
result = YduPmcsSetSensorConfig(0, axis, PMC_LOGIC, &H1F)

'X0軸の動作パラメータを設定します
motion(0).wAccMode = PMC_ACC_NORMAL
motion(0).dwLowSpeed = 200
motion(0).dwSpeed = 2000
motion(0).wAccTime = 300
motion(0).lStep = PMC_DIR_CW
result = YduPmcsSetMotion(0, PMC_AXIS_X0, PMC_JOG, motion(0))

'モーター動作を開始します
result = YduPmcsStartMotion(0, PMC_AXIS_X0, PMC_ACC, PMC_JOG)

'モーター動作を停止します
result = YduPmcsStopMotion(0, PMC_AXIS_X0, PMC_IMMEDIATE_STOP)

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