ايران ويج

نسخه‌ی کامل: wait در باسکام
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
ها بازم میگین به این باسکام فحش ندم آ :)
( خدائیش خیلی زبون خوبیه )
4 خط نوشتم برای کنترل استپر موتور
کد:
Call Direction_right()
    Call Make_pulse(tedad)
    Waitms 20
    Call Direction_left()
    Call Make_pulse(tedad)
    Waitms 20
داخل تابع makepulse نوشتم
کد:
Sub Make_pulse(tedad As Integer)
'Tedad = Tedad - 1
'           Reset Puls
        Reset Pulse
Temptedad = Tedad - 1
   For I = 0 To Temptedad

'           Waitms 1

Call Timeout()
        Set Pulse
Call Timeout()
'           Waitms 1
        Reset Pulse

   Next

End Sub
و داخل روتین تایم آوت نوشتم :
کد:
Sub Timeout()
For I = 1 To 2
   Waitus 250
Next

End Sub
خب توی تابع MakePulse وقتی از waitms 1 استفاده میکنم مشکلی ندارم
ولی وقتی از تابع شبیه سازی تایم آوت به جای waitms استفاده میکنم ، میکرو قاط میزنه و دیگه موتور تغییر جهت نمیده ! علت ؟
مهندس یکم خودت دقت کنی می فهمی !!!

میشه برنامه کاملتو بذاری !!!

این متغیر I ایراد کارته !!!

تو Timeout از یه متغیر دیگه استفاده کن !!!
اوه بعله اشکال از I بود....
این متغییر توی یک تابع دیگه هم استفاده شده بود و عملا منو مورد عنایت قرار میداد :)
تشکرآت فراوان.
من میدوووووونم تا تریپ هست ، مشکلی نیست که حل نشه :) ( پاچه خواری در حد آآآآآآآآآآآآآآآآه )
ممنون

فقط تو رو خدا هم هر چی می شه نگین بسکام فلانه !!!!!!!
(۰۸-اسفند-۱۳۸۸, ۱۹:۵۵:۴۱)t3r!p3000 نوشته است: [ -> ]فقط تو رو خدا هم هر چی می شه نگین بسکام فلانه !!!!!!!
پس چطوری تو را حرص بدیم ؟ Wink