※ 引述《jiasing (福小興)》之銘言： : 請問有人知道該怎麼寫程式去經過一個控制器來驅動x-y table嗎? : 現在的情況是廠商有寫給一個表單來驅動 : 但是只能一個指令一個動作 : 不能走完一個我要的路徑 : 很困擾我= = : 原本以為像CNC洗床一樣輸入絕對座標...等就可以走我要的路徑 : 請問有人會嗎? 廠商寫的是 Private Sub Command1_Click() Call def End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Label3.Caption = "X軸座標:0 Y軸座標:0" x_l = 38 y_l = 20 Xsize = Picture1.Width / 38 Ysize = Picture1.Height / 20 Slider2.Max = 38 Slider1.Max = 20 Line2.X1 = 0 Line2.Y1 = 0 Line2.X2 = Picture1.Width Line2.Y2 = 0 Line1.X1 = 0 Line1.Y1 = 0 Line1.X2 = 0 Line1.Y2 = Picture1.Height MSComm1.CommPort = 1 MSComm1.PortOpen = True trun(0) = 254 trun(1) = 253 trun(2) = 251 trun(3) = 247 'MSComm1.RThreshold = 1 'MSComm1.InputMode = comInputModeBinary End Sub Private Sub delay() Dim detime As Long Do While (detime < 15000) detime = detime + 1 Loop End Sub Private Sub leftrun() Dim str As String Dim i, j As Integer 'If flag = True Then 'str = "A" 'Else 'str = "B" 'End If Do While (reg <> 0) For i = 0 To 3 motor(0) = trun(i) MSComm1.Output = flag MSComm1.Output = motor Call delay Next i reg = reg + 1 j = j + 1 If j = 50 Then j = 0 Select Case flag Case "A" Slider2.Value = Slider2.Value - 1 Line1.X1 = Slider2.Value * Xsize Line1.X2 = Slider2.Value * Xsize Line1.Y1 = 0 Line1.Y2 = Picture1.Height Case "B" Slider1.Value = Slider1.Value - 1 Line2.Y1 = Slider1.Value * Ysize Line2.Y2 = Slider1.Value * Ysize Line2.X1 = 0 Line2.X2 = Picture1.Width End Select End If Loop Label3.Caption = "X軸座標:" & Slider2.Value & "Y軸座標:" & Slider1.Value Call delay End Sub Private Sub rightrun() Dim i, j As Integer Dim str As String 'If flag = True Then 'str = "A" 'Else 'str = "B" 'End If Do While (reg <> 0) For i = 3 To 0 Step -1 motor(0) = trun(i) MSComm1.Output = flag MSComm1.Output = motor Call delay Next i reg = reg - 1 j = j + 1 If j = 50 Then j = 0 Select Case flag Case "A" Slider2.Value = Slider2.Value + 1 Line1.X1 = Slider2.Value * Xsize Line1.X2 = Slider2.Value * Xsize Line1.Y1 = 0 Line1.Y2 = Picture1.Height Case "B" Slider1.Value = Slider1.Value + 1 Line2.Y1 = Slider1.Value * Ysize Line2.Y2 = Slider1.Value * Ysize Line2.X1 = 0 Line2.X2 = Picture1.Width End Select End If Loop Label3.Caption = "X軸座標:" & Slider2.Value & Space(2) & "Y軸座標:" & Slider1.Value Call delay End Sub Private Sub def() If Text1.Text = "" And Text2.Text <> "" Then If Val(Text2.Text) > (Slider1.Max - Slider1.Value) Or (Slider1.Value + Val(Text2.Text)) < Slider1.Min Then MsgBox "超過極限值" Exit Sub End If reg = Val(Text2.Text) * 50 flag = "B" If reg < 0 Then Call leftrun Else Call rightrun End If End If If Text2.Text = "" And Text1.Text <> "" Then If Val(Text1.Text) > (Slider2.Max - Slider2.Value) Or (Slider2.Value + Val(Text1.Text)) < Slider2.Min Then MsgBox "超過極限值" Exit Sub End If reg = Val(Text1.Text) * 50 flag = "A" If reg < 0 Then Call leftrun Else Call rightrun End If End If 'reg = Val(Text1.Text) * 50 ' 'If reg < 0 Then 'Call leftrun 'Else 'Call rightrun 'End If If Text1.Text <> "" And Text2.Text <> "" Then If Val(Text2.Text) > (Slider1.Max - Slider1.Value) Or (Slider1.Value + Val(Text2.Text)) < Slider1.Min Then MsgBox "超過極限值" Exit Sub End If If Val(Text1.Text) > (Slider2.Max - Slider2.Value) Or (Slider2.Value + Val(Text1.Text)) < Slider2.Min Then MsgBox "超過極限值" Exit Sub End If reg = Val(Text1.Text) * 50 flag = "A" If reg < 0 Then Call leftrun Else Call rightrun End If Call delay reg = Val(Text2.Text) * 50 flag = "B" If reg < 0 Then Call leftrun Else Call rightrun End If End If End Sub Private Sub sy() End Sub --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 211.74.193.19