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