اطلاعیه

Collapse
No announcement yet.

مشکل با صفر و یک کردن پین

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

    مشکل با صفر و یک کردن پین

    سلام. من یه مشکلی با این برنامه دارم. وقتی pinb.1 رو یک میکنم Pinc.1 هم یک میشه . اما همین طوری یک میمونه. درحالی که من میخوام بعد از 300 میلی ثانیه دوباره صفر بشه. البته همینطوری که یک میمونه تگه دوباره pinb.1 رو یک کنم اینبار Pinc.1 صفر میشه
    $regfile = "m8def.dat"
    $crystal = 1000000


    Dim I As Single
    I = 0
    '******tayin kelid haye segane******
    Config Portb.1 = Input : Portb.1 = 0 : Key_up Alias Pinb.1
    Config Portb.2 = Input : Portb.2 = 0 : Key_down Alias Pinb.2
    Config Portb.3 = Input : Portb.3 = 0 : Key_stop Alias Pinb.3
    '******************************************** *****************

    '******Tayin sensor (ha)**************************************
    Config Portb.4 = Input : Portb.4 = 0 : Ir_sen Alias Pinb.4
    '******************************************** *****************

    '******Tayin khorooji haye segane******
    Config Portc.1 = Output : Portc.1 = 0 : R_up Alias Pinc.1
    Config Portc.2 = Output : Portc.2 = 0 : R_down Alias Pinc.2
    Config Portc.3 = Output : Portc.3 = 0 : R_stop Alias Pinc.3
    '******************************************** *****************

    Do
    I = 0
    'Reset R_up
    'Reset R_down
    'Reset R_stop

    If Key_up = 1 Then
    Waitms 1000
    Gosub Up_opr
    End If

    If Key_down = 1 Then
    Gosub Down_opr
    End If

    If Key_stop = 1 Then
    Gosub Stop_opr
    End If

    Waitms 100
    Loop
    End

    '******Submenu ha********************************************
    Up_opr:
    Pinc.1 = 1
    Waitms 300
    Pinc.1 = 0
    Return
    وقتي كسي فقير مي شود خوبيهايش حقير مي شود و كسي كه زور و زر دارد عيبهايش هنر مي شود
    برچسب ها: با, پین, صفر, کردن, مشکل, یک
    #2
    پاسخ : مشکل با صفر و یک کردن پین

    سلام
    برای چی رجیستر PIN را تغیر می دی برای 0 و 1 کردن پایه ها باید رجیستر PORT را تغیر بدی .
    باد می وزد ...
    میتوانی در مقابلش هم دیوار بسازی ، هم آسیاب بادی
    تصمیم با تو است ...

    دیدگاه

      #3
      پاسخ : مشکل با صفر و یک کردن پین

      درود بر شما
      ظاهرا که برنامه درسته اگه میشه فایل برنامه و شماتیک رو ضمیمه کنید یه نگاه بندازم راستی دوستمون درست میگن برای خروجی باید می نوشتید portc.1 نه pinc.1...............
      در روزگاري که لبخند ادم ها بخاطر شکست توست برخيز تا بگيرند.........

      دیدگاه

        #4
        پاسخ : مشکل با صفر و یک کردن پین

        نوشته اصلی توسط ATROBOT
        سلام
        برای چی رجیستر PIN را تغیر می دی برای 0 و 1 کردن پایه ها باید رجیستر PORT را تغیر بدی .
        وای وای وای........
        مرسی
        وقتي كسي فقير مي شود خوبيهايش حقير مي شود و كسي كه زور و زر دارد عيبهايش هنر مي شود

        دیدگاه

          #5
          پاسخ : مشکل با صفر و یک کردن پین

          نوشته اصلی توسط مجتبی رضائی
          سلام. من یه مشکلی با این برنامه دارم. وقتی pinb.1 رو یک میکنم Pinc.1 هم یک میشه . اما همین طوری یک میمونه. درحالی که من میخوام بعد از 300 میلی ثانیه دوباره صفر بشه. البته همینطوری که یک میمونه تگه دوباره pinb.1 رو یک کنم اینبار Pinc.1 صفر میشه
          $regfile = "m8def.dat"
          $crystal = 1000000


          Dim I As Single
          I = 0
          '******tayin kelid haye segane******
          Config Portb.1 = Input : Portb.1 = 0 : Key_up Alias Pinb.1
          Config Portb.2 = Input : Portb.2 = 0 : Key_down Alias Pinb.2
          Config Portb.3 = Input : Portb.3 = 0 : Key_stop Alias Pinb.3
          '******************************************** *****************

          '******Tayin sensor (ha)**************************************
          Config Portb.4 = Input : Portb.4 = 0 : Ir_sen Alias Pinb.4
          '******************************************** *****************

          '******Tayin khorooji haye segane******
          Config Portc.1 = Output : Portc.1 = 0 : R_up Alias Pinc.1
          Config Portc.2 = Output : Portc.2 = 0 : R_down Alias Pinc.2
          Config Portc.3 = Output : Portc.3 = 0 : R_stop Alias Pinc.3
          '******************************************** *****************

          Do
          I = 0
          'Reset R_up
          'Reset R_down
          'Reset R_stop

          If Key_up = 1 Then
          Waitms 1000
          Gosub Up_opr
          End If

          If Key_down = 1 Then
          Gosub Down_opr
          End If

          If Key_stop = 1 Then
          Gosub Stop_opr
          End If

          Waitms 100
          Loop
          End

          '******Submenu ha********************************************
          Up_opr:
          Pinc.1 = 1
          Waitms 300
          Pinc.1 = 0
          Return
          فک کنم قرمزها باید port بشن

          دیدگاه

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