我用以下程式碼控制步進馬達可是不知道為什麼 我打好了~ 可是他只在那邊微微抖動~左右搖能請大大幫我看一下我的問題嗎~謝謝^^~ 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

左右遙動應該是輸入訊號有問題
我只學8051的組合語言
如果你要的話我在給你
你檢查一下的產生訊號的程式
A :0110
A":1001
B :0011
B":1100
應該是這樣反正就是
一個訊號反相一個不動下一次就換另外一個反相另外一個不動
檢查看看是不是這樣

------
這啥需要簽嗎
拿筆來

步進馬達有可能壞掉嗎~?

有線路圖嗎? 這樣比對程式較方便些.
===================引 用 衝爆蛋蛋 文 章===================
我用以下程式碼控制步進馬達可是不知道為什麼 我打好了~ 可是他只在那邊微微抖動~左右搖能請大大幫我看一下我的問題嗎~謝謝^^~ 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專題製作/專題客製

有沒有壞是可以拿電表測出來的
我很久沒用了有點忘記了
不過應該是你先量有三隻腳會互通
又有另外三隻腳會互通
互通的三隻腳中間有阻抗
因為他是線圈中間有一隻共同腳所以共同腳到第一個腳阻抗會是R
共同腳到另外一隻腳也應該是R
不測共同腳測另外兩隻腳阻抗會是 2R
另外一組也是這樣做
記得沒錯應該是這樣試試看吧!~

------
這啥需要簽嗎
拿筆來

馬達有抖動就應該是沒壞,把 10ms 延長至 100ms 試試
===================引 用 衝爆蛋蛋 文 章===================
步進馬達有可能壞掉嗎~?

------
歡迎光臨 輕巧工作室
網站 http://www.handystudio.tw
控制電路板客製設計、製作交貨
8051專題製作/專題客製

===================引 用 衝爆蛋蛋 文 章===================
我用以下程式碼控制步進馬達可是不知道為什麼 我打好了~ 可是他只在那邊微微抖動~左右搖能請大大幫我看一下我的問題嗎~謝謝^^~ 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的宣告才有意義阿.....是吧

＞馬達 6線 A+/A-  B+/B-  2條正電 
線的順序是A B A- B- 才會轉呀!

電線接好了嗎
程式碼愈看愈奇怪
"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