使用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馬達時，前面的數值0、1、2…對應16進制碼為Hex(80)、Hex(81)、Hex(82)…
2. 字串內指令後面需空一格(黃色標記處)，例如: "ADT=1000 "
