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

VB（.NET2002以降）

開発環境の設定

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

    YduApi.vb
    YduPmcSApi.vb
    YduResult.vb

  2. YduApi.vb, YduPmcSApi.vb, YduResult.vbをプロジェクトに追加します。

プログラム例

Dim result As Integer
Dim axis As Short
Dim motion(3) As MOTIONPMCS

'IDが0に設定されているPMC-S4/00/00A-Uをオープンします
result = YduOpen(0, "PMC-S4/00/00A-U")
If result <> YDU_RESULT_SUCCESS Then
    MessageBox.Show("オープンできません", "", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    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_AXIS_Y0, PMC_JOG, motion)

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

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

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