۰۶-بهمن-۱۳۸۸, ۱۸:۴۳:۳۱
سلام
من چن روزه که د ارم برای بچه های کلاس برنامه می نویسم دیگه گاتی کردم !
( همه فارغ التحصیل میشن به جز من ! ولی پروژه هاشون رو من انجام میدم
)
یکی از بچه ها پروژه اش در مورد ربات دست ورزه که با موتور پله ای کار می کنهولی این بین یه مشکلی پیش میاد
و با برنامه زیر بهش پاس میدم ولی به طور نا مرتب یکمی میره و بعد می ایسته !
$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 فازه