اطلاعیه

Collapse
No announcement yet.

یه مشکل ساده با ifآ‌ در بسکام لطفا کمک کنید ...

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    یه مشکل ساده با ifآ‌ در بسکام لطفا کمک کنید ...

    سلام
    چرا نمیشه با دستور if شرایط یک پایه را چک کرد مثل اینکه حالت اولین تغییر وضعیت پایه توش ذخیره میشه و میمونه با دستور if و Debounce هم نوشتم به زبان بیسیک باز هم حالت پایه ذخیره میشه چیکار کنم کلا می خوام دو تا پایه را چک کنم اگه اولی 1 بود به شرط 0 بودن دومی یه ال ای دی سمت راست روشن بشه اگه دومی 1 شد به شرط 0 بودن اولی ال تیدی سمت چپ روشن باشه برنامه خیلی ساده ای با دو تا if نوشتم اما برای بار اول جواب مبده واسه بقیهدفعه ها حالتاول توش ذخیره شده و عمل نمیکنه با دوتا Debounce هم نوشتم همین مشکل پیش اومد نمیدونم چیکار کنم یه هفته الاف همین موضوع به ظاهر سادم لطفاکمک کنید. :angry:

    #2
    پاسخ : یه مشکل ساده با ifآ‌ در بسکام لطفا کمک کنید ...

    من هم این مشکل رو داششتم شرط ت این شکلیه؟

    if pinb=&b01010101 then
    ...
    ...
    end if


    اره؟

    دیدگاه


      #3
      پاسخ : یه مشکل ساده با ifآ‌ در بسکام لطفا کمک کنید ...

      با چه میکرو ای مینویسی؟ بگو تا کامل برات برنامه رو بزارم

      دیدگاه


        #4
        پاسخ : یه مشکل ساده با ifآ‌ در بسکام لطفا کمک کنید ...

        مشکلت اینه که پین میکرو برنامه ی نوشته شده چند بار عمل رو انجام میده یا نه ؟

        دیدگاه


          #5
          پاسخ : یه مشکل ساده با ifآ‌ در بسکام لطفا کمک کنید ...

          این یه نمونه برنامه با مگا32 و فایل پروتیوس اشم ضمیمه کردم

          $regfile = "m32def.dat"
          $crystal = 8000000

          Config Portb = Input
          Config Portc = Output


          Do

          If Pinb.0 = 1 Then
          If Pinb.1 = 0 Then
          Set Portc.0
          Reset Portc.1
          End If
          End If

          If Pinb.1 = 1 Then
          If Pinb.0 = 0 Then
          Set Portc.1
          Reset Portc.0
          End If
          End If

          Loop

          End

          http://www.mediafire.com/download/kv7wo5y10wk4a6v/test1.zip
          من نمىآ‌توانم فرضیه «بىآ‌اخلاقى انسان» را بپذیرم، و من اخلاق را منحصرا امرى انسانى و متعلق به انسان مىآ‌دانم که هیچ نوع قدرت مافوق انسانى در پشت آن وجود ندارد
          آلبرت اینشتین
          منبع: http://fa.wikiquote.org

          دیدگاه


            #6
            پاسخ : یه مشکل ساده با ifآ‌ در بسکام لطفا کمک کنید ...

            کد:
            $regfile = "m8def.dat"
            $crystal = 1000000
            Config Pinc.4 = Input                    '' vooroodi aval
            Config Pinc.5 = Input                    '' vooroodi dovom
            Config Portb = Output                    '' khoroojiha
            Dim A As Byte , B As Byte , C As Byte , S(2) As String * 1 , Adad As String * 2
            
            Do
            If Pinc.4 = 0 Then A = 0
            If Pinc.4 = 1 Then A = 1
            If Pinc.5 = 0 Then B = 0
            If Pinc.5 = 1 Then B = 1
            ''//////////kenare ham gozashtane do adad pin ha
            S(1) = Str(a)
            S(2) = Str(b)
            Mid(adad , 1 , 1) = S(1)
            Mid(adad , 2 , 1) = S(2)
            C = Val(adad)
            ''//////////
            ''entekhabe halat
            Select Case C
            '' LED chap roshan
            Case 10:
            Portb.0 = 1
            Portb.1 = 0
            '' LED rast roshan
            Case 1:
            Portb.0 = 0
            Portb.1 = 1
            Case 11:
            Portb.0 = 0
            Portb.1 = 0
            Case 0:
            Portb.0 = 0
            Portb.1 = 0
            End Select
            
            Loop
            End
            این برنامه به هیچ وجه هنگ نمیکنه

            دیدگاه

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