اطلاعیه

Collapse
No announcement yet.

مشکل ساده در راه اندازی اینتراپت

Collapse
X
Collapse
 
  • صفحه of 1
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی template بعدی
    #1

    مشکل ساده در راه اندازی اینتراپت

    سلام
    برنامه ی ساده برای اینتراپت نوشتم اما نمیدونم مشکل کجاست oo:
    وقتی کلیدی رو فشار میدم این بعضی اوقات 2 یا 3 یا 1 مرتبه متغییر رو افزایش میده :eek:

    دوستان مشکل از چی می تونه باشه؟؟؟؟
    $regfile = "m16def.dat"
    $crystal = 8000000
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Pina.3 , Db5 = Pina.2 , Db6 = Pina.1 , Db7 = Pina.0 , Rs = Pina.5 , E = Pina.4
    Config Pind.0 = Input
    Config Pind.1 = Input
    Config Pind.4 = Input
    Config Portd.5 = Output
    Config Portd.6 = Output
    Config Portd.7 = Output
    Config Int0 = Rising
    Config Int1 = Rising
    Dim A As Byte , B As Byte , C As Byte , D As Byte
    Enable Interrupts
    Enable Int0
    Enable Int1
    On Int0 Q
    On Int1 W
    Cls
    Home : Lcd "AVR , ARM" : Wait 1
    Cls
    D = 0
    Do
    Locate 1 , 1 : Lcd D ; " " ; C : Wait 1
    Loop
    End 'end program
    '***********************
    Q:
    Incr D
    Cls : Lcd D
    Return
    '***********************
    W:
    Disable Int1
    Waitms 500
    Incr C
    Cls : Lcd C
    Enable Int1
    Return
    '***********************
    وقتي گريبان عدم با دست خلقت مي دريد/وقتي ابد چشم تو را پيش از ازل مي آفريد/وقتي زمين ناز تو را در آسمانها مي کشيد/وقتي عطش طعم تو را با اشکهايم مي چشيد/من عاشق چشمت شدم ، نه عقل بود و نه دلي/چيزي نمي دانم از اين ديوانگي و عاقلي/يک آن شد اين عاشق شدن ، دنيا همان يک لحظه بود/آن دم که چشمانت مرا از عمق چشمانت ربود/وقتي که من عاشق شدم شيطان به نامم سجده کرد/آدم زميني تر شد و عالم به آدم سجده کرد /بودم و چشمان تو ، نه آتشي و نه گلي/چيزي نمي دانم از اين ديوانگي و عاقلي/.
    برچسب ها: اندازي, اينتراپت, در, راه, ساده, مشکل
    #2
    پاسخ : مشکل ساده در راه اندازی اینتراپت

    موقعی که وارد زیربرنامه مربوط به وقفه میشید یه حلقه بی نهایت مثل while با شرط حالت فشار داده شده کلید بزارید تا زمانی که کاربر دستش رو بر نداشته اونجا بمونه. به این صورت مشکل حل خواهد شد. در ضمن مقاومت pullup فراموش نشه.
    چرا ناراحتی پاتریک!
    + امروز ی بچه دیدم سرچهارراه گل میفروخت
    - از دیدنش ناراحت شدی؟
    + نه
    پس چی ناراحتت کرده
    + اینکه دیدن اینجور بچه ها انقدر واسم عادی شده که دیگه ناراحتم نمیکنه
    ------------------------------------------------------------------------------------------------------
    تاحالا فکر کردی بیسواد کیه؟- بی سواد یعنی کسی که نمیتونه ذهنیاتش رو عملی کنه!
    ------------------------------------------------------------------------------------------------------
    محصولات

    دیدگاه

      #3
      پاسخ : مشکل ساده در راه اندازی اینتراپت

      نوشته اصلی توسط سوران آراسته
      موقعی که وارد زیربرنامه مربوط به وقفه میشید یه حلقه بی نهایت مثل while با شرط حالت فشار داده شده کلید بزارید تا زمانی که کاربر دستش رو بر نداشته اونجا بمونه. به این صورت مشکل حل خواهد شد. در ضمن مقاومت pullup فراموش نشه.
      مهندس PULL UP رو گذاشتم ، امکانش هست یه مثال بزنین؟
      وقتي گريبان عدم با دست خلقت مي دريد/وقتي ابد چشم تو را پيش از ازل مي آفريد/وقتي زمين ناز تو را در آسمانها مي کشيد/وقتي عطش طعم تو را با اشکهايم مي چشيد/من عاشق چشمت شدم ، نه عقل بود و نه دلي/چيزي نمي دانم از اين ديوانگي و عاقلي/يک آن شد اين عاشق شدن ، دنيا همان يک لحظه بود/آن دم که چشمانت مرا از عمق چشمانت ربود/وقتي که من عاشق شدم شيطان به نامم سجده کرد/آدم زميني تر شد و عالم به آدم سجده کرد /بودم و چشمان تو ، نه آتشي و نه گلي/چيزي نمي دانم از اين ديوانگي و عاقلي/.

      دیدگاه

        #4
        پاسخ : مشکل ساده در راه اندازی اینتراپت

        اگه اشتباه نکنم اینتراپت 1 پایه d.3 باشه.
        طبق این من زیربرنامه w رو برات ویراش کردم. تستش کن و نتیجه رو بگو.
        راستی من بسکام ندارم تا کامپایل کنم و امیدوارم به دستور while گیر نده.

        کد:
        [ltr]
W:
while PIND.3=0
wend
Incr C
Cls : Lcd C
Enable Int1
Return
[/ltr]
        چرا ناراحتی پاتریک!
        + امروز ی بچه دیدم سرچهارراه گل میفروخت
        - از دیدنش ناراحت شدی؟
        + نه
        پس چی ناراحتت کرده
        + اینکه دیدن اینجور بچه ها انقدر واسم عادی شده که دیگه ناراحتم نمیکنه
        ------------------------------------------------------------------------------------------------------
        تاحالا فکر کردی بیسواد کیه؟- بی سواد یعنی کسی که نمیتونه ذهنیاتش رو عملی کنه!
        ------------------------------------------------------------------------------------------------------
        محصولات

        دیدگاه

          #5
          پاسخ : مشکل ساده در راه اندازی اینتراپت

          نوشته اصلی توسط سوران آراسته
          اگه اشتباه نکنم اینتراپت 1 پایه d.3 باشه.
          طبق این من زیربرنامه w رو برات ویراش کردم. تستش کن و نتیجه رو بگو.
          راستی من بسکام ندارم تا کامپایل کنم و امیدوارم به دستور while گیر نده.

          کد:
          [ltr]
W:
while PIND.3=0
wend
Incr C
Cls : Lcd C
Enable Int1
Return
[/ltr]
          سلام
          من اینطور نوشتم و جواب گرفتم ، اما یه مشکل این بود که حدود 2% از مواقع چندتایی میشمرد
          ضمنا توی حلقه ی اصلی هم باید حداقل تاخیر حدود 1 ثانیه داشته باشیم تا میکرو هنگ نکنه .
          W:
          Waitms 30
          If Pind.3 = 0 Then

          Else
          Incr C
          End If
          Cls : Lcd C
          Return
          وقتي گريبان عدم با دست خلقت مي دريد/وقتي ابد چشم تو را پيش از ازل مي آفريد/وقتي زمين ناز تو را در آسمانها مي کشيد/وقتي عطش طعم تو را با اشکهايم مي چشيد/من عاشق چشمت شدم ، نه عقل بود و نه دلي/چيزي نمي دانم از اين ديوانگي و عاقلي/يک آن شد اين عاشق شدن ، دنيا همان يک لحظه بود/آن دم که چشمانت مرا از عمق چشمانت ربود/وقتي که من عاشق شدم شيطان به نامم سجده کرد/آدم زميني تر شد و عالم به آدم سجده کرد /بودم و چشمان تو ، نه آتشي و نه گلي/چيزي نمي دانم از اين ديوانگي و عاقلي/.

          دیدگاه

            #6
            پاسخ : مشکل ساده در راه اندازی اینتراپت

            منظورتون از تاخیر داخل حلقه اصلی چیه ؟؟؟؟
            من بارها تو حلقه اصلی چیزی ننوشنم و تا این دقیقه هم مشکلی نبوده!
            در هر صورت...
            موفق باشید
            چرا ناراحتی پاتریک!
            + امروز ی بچه دیدم سرچهارراه گل میفروخت
            - از دیدنش ناراحت شدی؟
            + نه
            پس چی ناراحتت کرده
            + اینکه دیدن اینجور بچه ها انقدر واسم عادی شده که دیگه ناراحتم نمیکنه
            ------------------------------------------------------------------------------------------------------
            تاحالا فکر کردی بیسواد کیه؟- بی سواد یعنی کسی که نمیتونه ذهنیاتش رو عملی کنه!
            ------------------------------------------------------------------------------------------------------
            محصولات

            دیدگاه

              #7
              پاسخ : مشکل ساده در راه اندازی اینتراپت

              نوشته اصلی توسط سوران آراسته
              منظورتون از تاخیر داخل حلقه اصلی چیه ؟؟؟؟
              من بارها تو حلقه اصلی چیزی ننوشنم و تا این دقیقه هم مشکلی نبوده!
              در هر صورت...
              موفق باشید
              این قسمت در do و loop
              Do
              Locate 1 , 1 : Lcd D ; " " ; C : Wait 1
              Loop
              اگه اینو ننویسم ، میکرو هنگ میکنه
              وقتي گريبان عدم با دست خلقت مي دريد/وقتي ابد چشم تو را پيش از ازل مي آفريد/وقتي زمين ناز تو را در آسمانها مي کشيد/وقتي عطش طعم تو را با اشکهايم مي چشيد/من عاشق چشمت شدم ، نه عقل بود و نه دلي/چيزي نمي دانم از اين ديوانگي و عاقلي/يک آن شد اين عاشق شدن ، دنيا همان يک لحظه بود/آن دم که چشمانت مرا از عمق چشمانت ربود/وقتي که من عاشق شدم شيطان به نامم سجده کرد/آدم زميني تر شد و عالم به آدم سجده کرد /بودم و چشمان تو ، نه آتشي و نه گلي/چيزي نمي دانم از اين ديوانگي و عاقلي/.

              دیدگاه

              قبلی template بعدی
              لطفا صبر کنید...
              X