۰۶-بهمن-۱۳۸۸, ۱۸:۴۳:۳۱
سلام
من چن روزه که د ارم برای بچه های کلاس برنامه می نویسم دیگه گاتی کردم !
( همه فارغ التحصیل میشن به جز من ! ولی پروژه هاشون رو من انجام میدم
)
یکی از بچه ها پروژه اش در مورد ربات دست ورزه که با موتور پله ای کار می کنهولی این بین یه مشکلی پیش میاد
و با برنامه زیر بهش پاس میدم ولی به طور نا مرتب یکمی میره و بعد می ایسته !
$regfile = "M16def.dat" : $crystal = 8000000
Dim B As Byte , M As Byte
Config Portb = Output
Do
B = 4
For M = 0 To 3
Decr B
Portb = Lookup(m , Jadvalright)
Waitms 20
If B = 0 Then Exit For
Next M
Loop
End
Jadvalright:
Data &B00000001
Data &B00000010
Data &B00000100
Data &B00001000
سرعتش هم فرق می کنه
امکان داره که موتور من چون3 تومنی از موتور باشه !
اصلا جور در نمیاد
موتور هم دو قطبی و 4 فازه
من چن روزه که د ارم برای بچه های کلاس برنامه می نویسم دیگه گاتی کردم !
( همه فارغ التحصیل میشن به جز من ! ولی پروژه هاشون رو من انجام میدم
)یکی از بچه ها پروژه اش در مورد ربات دست ورزه که با موتور پله ای کار می کنهولی این بین یه مشکلی پیش میاد
و با برنامه زیر بهش پاس میدم ولی به طور نا مرتب یکمی میره و بعد می ایسته !
$regfile = "M16def.dat" : $crystal = 8000000
Dim B As Byte , M As Byte
Config Portb = Output
Do
B = 4
For M = 0 To 3
Decr B
Portb = Lookup(m , Jadvalright)
Waitms 20
If B = 0 Then Exit For
Next M
Loop
End
Jadvalright:
Data &B00000001
Data &B00000010
Data &B00000100
Data &B00001000
سرعتش هم فرق می کنه
امکان داره که موتور من چون3 تومنی از موتور باشه !

اصلا جور در نمیاد
موتور هم دو قطبی و 4 فازه