vb.txt

步进电机的控制 可以显示步进电机的实时工作状态

Private Sub CmdBack_Click()
Unload Me
End Sub

Private Sub CmdC_Click()
TxtPUsOf1mm.Text = Val(Trim(Label10.Caption)) / Val(Trim(TxtDis.Text))
End Sub

Private Sub CmdE_Click()

sudden_stop2 AxisLeft, AxisRight
CmdE.Enabled = False
CmdS.Enabled = True

End Sub

Private Sub CmdOK_Click()

Dim ConnIni As String
ConnIni = GetAppPath & "\Setup.ini"
WriteOneString "setup", "PUsOf1mm", Trim(TxtPUsOf1mm.Text), ConnIni
WriteOneString "setup", "DefaultVel", Trim(TxtDefaultVel.Text), ConnIni
WriteOneString "setup", "DisLtoR", Trim(TxtDisLtoR.Text), ConnIni


MsgBox "系统参数设置已保存！"

Unload Me
ReadIniPara

End Sub

Private Sub CmdS_Click()
reset_pos AxisLeft
reset_pos AxisRight

set_conspeed AxisLeft, TestVel
set_conspeed AxisRight, TestVel

con_vmove2 AxisLeft, 1, AxisRight, 1

Timer1.Enabled = True
CmdS.Enabled = False
CmdE.Enabled = True

End Sub

Private Sub Form_Load()
    TxtPUsOf1mm = PUsOf1mm
    TxtDefaultVel = DefaultVel
    TxtDisLtoR = DisLtoR
End Sub

Private Sub Timer1_Timer()
Dim pos As Long
get_abs_pos AxisBottleAngle, pos
Label10.Caption = pos
End Sub