[急問]有人會用8051去控制AI馬達的嗎

crazyking

我剛好有用過，也寫了一個簡單的測試程式，大家參考看看吧，基本上使用時請先用原廠的軟體設定好通訊格式
9600,N,8,1還有馬達的ID即可，本程式可自由使用，但請勿任意附在任何也銷售媒體上(包含書籍、光碟及以任何付費下載者)，另壓縮檔中的active x物件僅供測試用，其版權屬原公司，請自行取得授權。

crazyking

原帖由 cloud0812 於 2007-12-20 11:56 發表
之前作好的VB程式我想說要讓他一次讀出所有的馬達編號和角度
但是笨的是我之前的程式不見了
現在又在VB傳訊號給馬達的地方卡住了= =
早知道要發表一下程式碼的
只好來跪求各位大大幫幫我解決這個問題了
輸 ...

你的方式錯了，正確的寫法如下
dim ox(17) as byte
     ox(0) = &HFF
     Text5(0) = "FF"
     ox(1) = "&H" & Hex((32 * Val(Combo2.Text)) Or ("&H" & Hex(Val(Combo1.Text))))
     Text5(1) = Hex((32 * Val(Combo2.Text)) Or (Hex(Val(Combo1.Text))))
     ox(2) = "&H" & Hex(Val(Text5(4).Text))
     Text5(2) = Hex(Val(Text5(4).Text))
     ox(3) = (ox(1) Xor ox(2)) And &H7F
     Text5(3) = (ox(1) Xor ox(2)) And &H7F
mscomm1.output=ox

cloud0812

嗯嗯0.0感謝

cloud0812

那麼我可以請教一下一次送一組(0~9號)的話
程式要怎麼寫
我用陣列去寫.但是他就是不動
所以我用某個程式去讀取COM1輸出的訊號.發現居然有錯
FF 40 7D 3D FF 41 00 6B FF 42 00 5B FF 43 00 44   
FF 44 73 37 FF 45 7D 38 FF 46 00 6C FF 47 00 5C   
FF 48 00 42 FF 49 00 45
紅色部份和TEXT2不符合

因為沒學過VB.突然覺得自己好弱阿=口=~~~

crazyking

參考一下吧
for i=1 to 10
     ox(0) = &HFF
     Text5(0) = "FF"
     ox(1) = "&H" & Hex((32 * Val(Combo2.Text)) Or ("&H" & Hex(i - 1)))
     Text5(1) = Hex((32 * Val(Combo2.Text)) Or ("&H" & Hex(i - 1)))
     ox(2) = "&H" & Hex(Val(FG1.Text))
     Text5(2) = Hex(Val(FG1.Text))
     ox(3) = (ox(1) Xor ox(2)) And &H7F
     Text5(3) = (ox(1) Xor ox(2)) And &H7F
     MSComm1.Output = ox
next i

cloud0812

大感激.我成功讓他一直走路了
請問老師有做他Postion Read的部份嗎
照理說.在Postion Send的時候應該也會有回送電流和Postion的值
但就我觀察的結果並沒有收到.還是我程式又錯了=.=

crazyking

你可以先用我上傳的那個程式測試,畫面如圖