流程图

以下为进给系统的运动控制程序。

Private Sub Timer2_Timer（）
Dim ch_status As Long
Dim a, b As Long
ch_status = check_status（1）
/利用check_status函数读取冲床原点开关的状态/
a = 4
b = a And ch_status 
/判断原点开关是否闭合/
If b = 4 Then 
/如果原点开关闭合/
set_conspeed 1, 100000
/调用速度设置函数set_conspeed来设置伺服电机的运行速度/
con_pmove 1,Mdis＊ 835.8978246155
/调用点位运动函数con_pmove来设置伺服电机的运转方向和运行距离/
End If
End Sub
    
3、结束语

本系统在采用了运动控制卡和伺服进给系统后，有效地解决数控冲床进给系统高精度定位要求和高速启动的要求，在非常短的时间内开发出了功能完善的用户程序，满足了冲床应用的需要。

上一页  [1] [2]