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