89s51 程式碼問題 |
尚未結案
|
衝爆蛋蛋
一般會員 發表:5 回覆:1 積分:1 註冊:2009-02-03 發送簡訊給我 |
我用以下程式碼控制步進馬達可是不知道為什麼 我打好了~ 可是他只在那邊微微抖動~左右搖能請大大幫我看一下我的問題嗎~謝謝^^~ 2相步進馬達 6線 A+/A- B+/B- 2條正電 之前會轉 可是程式碼 被我用掉了 我從新打以後就出現這問題~
Dim N As Byte P1 = &B11111111 P2 = &B11001100 Do If P1.4 = 0 Then Gosub Start1 Loop End Start1: Do Rotate P2 , Left , 1 Waitms 10 Loop Return |
romextromext
一般會員 發表:6 回覆:26 積分:11 註冊:2009-08-24 發送簡訊給我 |
|
衝爆蛋蛋
一般會員 發表:5 回覆:1 積分:1 註冊:2009-02-03 發送簡訊給我 |
|
handystudio
高階會員 發表:1 回覆:81 積分:106 註冊:2005-03-26 發送簡訊給我 |
有線路圖嗎? 這樣比對程式較方便些.
===================引 用 衝爆蛋蛋 文 章=================== 我用以下程式碼控制步進馬達可是不知道為什麼 我打好了~ 可是他只在那邊微微抖動~左右搖能請大大幫我看一下我的問題嗎~謝謝^^~ 2相步進馬達 6線 A /A- B /B- 2條正電 之前會轉 可是程式碼 被我用掉了 我從新打以後就出現這問題~ Dim N As Byte P1 = &B11111111 P2 = &B11001100 Do If P1.4 = 0 Then Gosub Start1 Loop End Start1: Do Rotate P2 , Left , 1 Waitms 10 Loop Return
------
歡迎光臨 輕巧工作室 網站 http://www.handystudio.tw 控制電路板客製設計、製作交貨 8051專題製作/專題客製 |
romextromext
一般會員 發表:6 回覆:26 積分:11 註冊:2009-08-24 發送簡訊給我 |
|
handystudio
高階會員 發表:1 回覆:81 積分:106 註冊:2005-03-26 發送簡訊給我 |
|
mekelvin
一般會員 發表:2 回覆:16 積分:8 註冊:2009-03-15 發送簡訊給我 |
===================引 用 衝爆蛋蛋 文 章=================== 我用以下程式碼控制步進馬達可是不知道為什麼 我打好了~ 可是他只在那邊微微抖動~左右搖能請大大幫我看一下我的問題嗎~謝謝^^~ 2相步進馬達 6線 A /A- B /B- 2條正電 之前會轉 可是程式碼 被我用掉了 我從新打以後就出現這問題~ Dim N As Byte P1 = &B11111111 P2 = &B11001100 Do If P1.4 = 0 Then Gosub Start1 Loop End Start1: Do Rotate P2 , Left , 1 Waitms 10 Loop Return ''''''''''''''''''''''''' "Dim N As Byte"請問你為何要宣告N為byte形態 這一定有它的作用 我想加入 "for N=1 TO X '''''''NEXT 這一句 N的宣告才有意義阿.....是吧 |
阿信
版主 發表:111 回覆:983 積分:813 註冊:2005-03-10 發送簡訊給我 |
|
mekelvin
一般會員 發表:2 回覆:16 積分:8 註冊:2009-03-15 發送簡訊給我 |
電線接好了嗎
程式碼愈看愈奇怪 "P2 = &B11001100"應是二相激磁 低態動作 依照你的寫法作動應是 ' 按一下p1.4 左旋一步(不是一圈喔) 可是又多了"dim n as byte"與"waitms 10" 真詭異阿 如果按一下p1.4 左旋一步就不須"waitms 10" 這一句 如果要多走幾步就要"for......nex與t"waitms 10" 至於要走幾步就要看"n =1 to ''''''' " ===================引 用 衝爆蛋蛋 文 章=================== 我用以下程式碼控制步進馬達可是不知道為什麼 我打好了~ 可是他只在那邊微微抖動~左右搖能請大大幫我看一下我的問題嗎~謝謝^^~ 2相步進馬達 6線 A /A- B /B- 2條正電 之前會轉 可是程式碼 被我用掉了 我從新打以後就出現這問題~ Dim N As Byte P1 = &B11111111 P2 = &B11001100 Do If P1.4 = 0 Then Gosub Start1 Loop End Start1: Do Rotate P2 , Left , 1 Waitms 10 Loop Return |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |