کمک و همکاری در برنامه نویسی و راه اندازی استپ موتور با فرمان for next و rotate

[rayanelectronic]

سلام
من یک استپ موتور دارم و میخوام اونو به مقدار لازم و دقیق به راست و بعد به چپ حرکت بدم .
کسی هست که بتونه با فرمان for next و rotate این کار را انجام بده . خودم چپ گرد رو می تونم انجام بدم و لی در همون برنامه راست گرد نمیشه مثل برنامه زیر : کسی هست بگه چرا در برنامه زیر E را مساوی 128 میگیریم و هر عدد دیگری استفاده می کنم دیگه 4 تا پین اول میکرو از برنامه ختارج می شوند ممنون میشم کمک کنید




$regfile = "m32def.dat"
$crystal = 8000000
Config Portb = Output
Dim B As Byte , A As Byte , E As Byte,


Main:
For A = 1 To 50
E = 128
For B = 1 To 4
Rotate E , Left
Portb = E
Waitms 20
Next A
Next B
Goto Main

[shayanmelody]

سلام
میخای استپ راه بندازی این کار رو بکن :


do
a=1

for b=0 to 3
portb=a
waitms 50
a=a*2
next
loop

حالا اگه میخای جهت حرکت رو برعکس کنی باس اینطوری بنویسی

do
a=8
for b=0 to 3
portb=a
waitms 50
a=a/2
next
loop

موفق باشی