‘= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
‘ 建立通訊連接
‘= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Private Sub Form_Load()
If (MSComm1.PortOpen = True) Then MSComm1.PortOpen = False
MSComm1.CommPort = Combo1.Text ‘Choose comport
MSComm1.PortOpen = True
MSComm1.Settings = “9600,N,8,1”
End Sub
‘= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
‘ 設定原點
‘= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Private Sub SetZeroPosition_Click()
MSComm1.Output = “SP0” & Chr(13) ‘Set Absolute Position
End Sub
‘= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
‘ 開始位置移動
‘= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Private Sub GO_Click()
MSComm1.Output = “EG” & eg.Text & Chr(13) ‘Electronic Gearing
MSComm1.Output = “AC” & acc.Text & Chr(13) ‘Accel Rate
MSComm1.Output = “DE” & dec.Text & Chr(13) ‘Decel Rate
MSComm1.Output = “VE” & vel.Text & Chr(13) ‘Velocity Setting (For Feed Commands)
MSComm1.Output = “FP” & dis.Text & Chr(13) ‘Feed to Position
End Sub
‘= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
‘ 調整原點位置(JOG指令)
‘ jogPositive –> Close
‘ jogNegative –> Open
‘ 動作描述:按住按鈕移動,放開即停止
‘= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Private Sub jogPositive_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MSComm1.Output = “JA10” & Chr(13) ‘Jog Accel/Decel rate
MSComm1.Output = “JL10” & Chr(13) ‘Jog Decel rate
MSComm1.Output = “JS0” & Chr(13) ‘Jog Speed (不可為負值 -> 不可改方向)
MSComm1.Output = “CJ” & Chr(13) ‘Commence Jogging
MSComm1.Output = “CS1” & Chr(13) ‘Change Speed (可為負值 -> 可改方向)
End Sub
Private Sub jogPositive_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MSComm1.Output = “SJ” & Chr(13) ‘Stop Jogging
End Sub
Private Sub jogNegative_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MSComm1.Output = “JA10” & Chr(13) ‘Jog Accel/Decel rate
MSComm1.Output = “JL10” & Chr(13) ‘Jog Decel rate
MSComm1.Output = “JS0” & Chr(13) ‘Jog Speed
MSComm1.Output = “CJ” & Chr(13) ‘Commence Jogging
MSComm1.Output = “CS-1” & Chr(13) ‘Change Speed
End Sub
Private Sub jogNegative_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MSComm1.Output = “SJ” & Chr(13) ‘Stop Jogging
End Sub