芯钰科运动控制卡--VB 快速搭建软件平台(运动控制卡编程示范）

首先，将函数包放入系统

找到VB函数包，复制



将YK8A04VB函数包放入C盘windows/system32

1定长运动控制示范程序

2 打开或初始化卡

/*******************************************************/

/*编程第一步

/*1:打开运动控制卡对应函数为yk8000_Open()

/*2:设置控制电机脉冲输出模式：y82000_Set_Pulse_Mode

/********************************************************/

Private Sub OpenCard_Click()

CardNum = yk8000_Open()

If (CardNum <= 0) Or (CardNum > 12) Then '正常的卡数在1-
12之间

MsgBox "初始化YK8000卡失败！",
vbOKOnly, "出错" Else

MsgBox "初始化YK8000卡成功！",
vbOKOnly, "成功"

End If

第二步: 设置脉冲输出模式

Call yk8000_Set_Pulse_Mode(CardNum, mAxis, 1, 0, 0)

End Sub

3 定长运动设置(正向）

/*******************************************************/

/*编程第二步---正方向移动指定的脉冲

/*1:设置控制电机加减速度 ：yk8000_Set_Line_Profile

/*2:设置控制电机移动指定的脉冲：yk8000_DMC_HS_PMove (1:正方向）

/********************************************************/

Private Sub Command2_Click(Index As Integer)

Dim m_StartValue As Long

Dim m_nSpeedValue As Long
Dim mfAcc As Long
m_StartValue = 100
m_nSpeedValue = Val(RUNSPDText.Text)
mfAcc = Val(TACCText.Text)
Call yk8000_Set_Line_Profile(CardNum, mAxis, m_StartValue, m_nSpeedValue, mfAcc, amfAcc)
// 定长运动设置(正向）
distvalue = Val(DistText.Text)
Call yk8000_DMC_HS_PMove(CardNum, mAxis, distvalue, 1)
End Sub

4 定长运动设置(反向）

/*******************************************************/

/*编程第三步---反方向移动指定的脉冲

/*1:设置控制电机加减速度 ：yk8000_Set_Line_Profile

/*2:设置控制电机移动指定的脉冲：yk8000_DMC_HS_PMove (0:反方向）

/********************************************************/

Private Sub Pmove_Click(Index As Integer)

Dim m_StartValue As Long

Dim m_nSpeedValue As Long

Dim mfAcc As Long

m_StartValue = 100

m_nSpeedValue = Val(RUNSPDText.Text)

mfAcc = Val(TACCText.Text)

第三步:设置卡的加减速度

Call yk8000_Set_Line_Profile(CardNum, mAxis, m_StartValue, m_nSpeedValue, mfAcc, amfAcc)

distvalue = (-Val(DistText.Text))

第四步:定长运动设置(反向）

Call yk8000_DMC_HS_PMove(CardNum, mAxis, distvalue,1)

End Sub

5 关闭运动控制卡

Private Sub STOPCard_Click(Index As Integer)

Call yk8000_Imd_Stop(CardNum, mAxis)

yk8000_Close

Unload Me

End Sub