اطلاعیه

Collapse
No announcement yet.

مشکل با خواندن پایه های میکرو

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

    مشکل با خواندن پایه های میکرو

    سلام دوستان
    یه مشکل دارم
    وقتی که به یکی از پایه های میکرو یک میدم نمیتونه اونو بخونه و صفر رو بر میگردونه
    به طور مثال برنامه زیر رو ببینید

    Dim Q As Byte
    Dim Co As Byte
    Config Portc.0 = Input
    Q = Portc.0
    Do
    If Q = 1 Then Co = 5
    Locate 1 , 1
    Lcd Co
    Loop
    End
    ممنون میشم از اساتید اگه زودتر جواب بدن

    #2
    پاسخ : مشکل با خواندن پایه های میکرو

    برای خوندن از ورودی باید از PIN استفاده کنید.به این صورت
    Q=pinc.0

    دیدگاه


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

      نوشته اصلی توسط hemati01
      سلام دوستان
      یه مشکل دارم
      وقتی که به یکی از پایه های میکرو یک میدم نمیتونه اونو بخونه و صفر رو بر میگردونه
      به طور مثال برنامه زیر رو ببینید

      Dim Q As Byte
      Dim Co As Byte
      Config Portc.0 = Input
      Q = Portc.0
      Do
      If Q = 1 Then Co = 5
      Locate 1 , 1
      Lcd Co
      Loop
      End
      ممنون میشم از اساتید اگه زودتر جواب بدن
      سلام رفیق خوبی حالا چرا از متغیر برای پورتت استفاده کردی ؟؟؟ به نظر من بهتره بجای If Q = 1 Then Co = 5
      بنویسی If pinc.0 = 1 Then Co = 5
      راستی بهتره یه مقاومت 10 کیلو به همون پایه ورودی وصل کن اون سرش هم به مثبت موفق باشی
      AV Maziton 100
      Render By Artlantis Studio
      [img width=346 height=100]http://maziyar123.persiangig.com/View.jpg[/img]

      دیدگاه


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

        البته دوستان توجه کنند که برنامه آقای همتی ایراد داره که من درستشو میزارم:
        Dim Q As Byte
        Dim Co As Byte
        در این خط باید از CONFIG PINC.0=INPUT استفاده کنی. باید حواست باشه که از یک PIN استفاده می کنی نه از کل پورتC
        Config Portc.0 = Input
        این خط هم همونطور که دوستمون گفت حذف کن
        Q = Portc.0
        Do
        اینجا هم Q حذف و از همون PINC.0=1 استفاده کن
        If Q = 1 Then Co = 5
        Locate 1 , 1
        Lcd Co
        Loop
        End
        ببین جواب می ده؟ تشکر یادت نره oo:
        جانم به فدای ائمه اطهار
        می دونستم تحمل مرگ اعضای خانواده خیلی سخته ولی نه تا این حد،ایکاش پدرم بیشتر می موند.روحش شاد.

        دیدگاه

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