VB移植过来的四轴控制卡sdk

易语言 2020-09-04 23:44:06

VB移植过来的四轴控制卡sdk

My_CardNum = smc_board_init (m_UseCard, 1, “COM3”, 115200) ' //串口连接类型为1
.判断开始 (My_CardNum ≠ 0)
信息框 (“初始化控制器失败!”, #错误图标, “出错”, )
.默认

.判断结束
m_UseCard = 0
m_UseAxis = 0
X单选框.选中 = 真
反单选框.选中 = 真
smc_set_pulse_outmode (m_UseCard, m_UseAxis, 0) ' 设定脉冲输出模式
smc_set_equiv (m_UseCard, m_UseAxis, 1) ' //设置脉冲当量
smc_set_alm_mode (m_UseCard, m_UseAxis, 0, 0, 0) ' //设置报警使能,关闭报警
smc_write_sevon_pin (m_UseCard, m_UseAxis, 0) ' //打开伺服使能
重置模式组合框.现行选中项 = 0 ' 设置回零完成后偏移方式
组合框1.现行选中项 = 0 ' 设置回零方式
启动线程 (&位置信息, 位置句柄, )
启动线程 (&信号事件, , 信号句柄)