使用VB直接送碼控制多軸SmartMotor

使用VB直接送碼控制多軸SmartMotor


步驟一: 專案>設定使用元件>勾選”Microsoft Comm Control 6.0”




步驟二先製作介面

步驟三: 編寫程式碼
Private Sub Form_Load()
If (MSComm1.PortOpen = True) Then MSComm1.PortOpen = False
MSComm1.CommPort = 3
MSComm1.PortOpen = True
MSComm1.Settings = "9600,N,8,1"
End Sub

Private Sub Command1_Click()

Dim aaa(1) As Byte
aaa(1) = &H81
MSComm1.Output = aaa()
MSComm1.Output = "ADT=1000 "
MSComm1.Output = "VT=32768*5 "
MSComm1.Output = "PRT=18000 "
MSComm1.Output = "G "
End Sub

Private Sub Command2_Click()

Dim bbb(1) As Byte
bbb(1) = &H82
MSComm1.Output = bbb()
MSComm1.Output = "ADT=1000 "
MSComm1.Output = "VT=32768*5 "
MSComm1.Output = "PRT=18000 "
MSComm1.Output = "G "
End Sub

Private Sub Command3_Click()

Dim ccc(1) As Byte
ccc(1) = &H80
MSComm1.Output = ccc()
MSComm1.Output = "ADT=1000 "
MSComm1.Output = "VT=32768*5 "
MSComm1.Output = "PRT=18000 "
MSComm1.Output = "G "
End Sub

步驟三說明:

1. 指定SmartMotor馬達時,前面的數值012…對應16進制碼為Hex(80)Hex(81)Hex(82)…
2. 字串內指令後面需空一格(黃色標記處),例如: "ADT=1000 "