اطلاعیه

Collapse
No announcement yet.

استفاده همزمان از دو پورت مگا8

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

    استفاده همزمان از دو پورت مگا8

    سلام دوستان
    من برای رقص نور اومدم از مگا 8 استفاده کردم از 10 تا پین میکرو که هر پینم 32 تا ال ای دی رو راه اندازی میکنه
    البته بین میکرو و ال ای دی ترانزیستورم گذاشتم
    مشکل اینجاست که ال ای دی های وصل شده به پورت d درست عمل میکنن ولی 2 پینی که از یه پورت دیگست طبق برنامه عمل نمیکنن.
    مگه نمیشه همزمان از 2 تا پورت میکرو استفاده کرد.؟ :cry2:
    r.pسابق

    #2
    پاسخ : استفاده همزمان از دو پورت مگا8

    چرا میآ‌شه
    حتما یه جای برنامه مشکل داره
    نمونهآ‌ی برنامتو بذار

    دیدگاه


      #3
      پاسخ : استفاده همزمان از دو پورت مگا8

      $regfile = "M8def.dat"
      $crystal = 1000000
      Config Portd = Output
      Config Portb = Output
      Dim I As Byte
      1:

      'Config Portb = Input
      Do
      '*******************************
      'For I = 0 To 5

      '******************************
      Set Portb.0

      Waitms 150
      'rotate portb,left
      'Next

      Portd = &B11111110
      Waitms 150
      Portd = &B11111111
      Waitms 150
      Portd = &B11111101 $prog &HFF , &HE4 , &HD9 , &H00 ' generated. Take care that the chip supports all fuse bytes.
      Waitms 150
      Portd = &B11111111
      Waitms 150
      Portd = &B11111011
      Waitms 150
      Portd = &B11111111
      Waitms 150
      Portd = &B11110111
      Waitms 150
      Portd = &B11111111
      Waitms 150
      Portd = &B11101111
      Waitms 150
      Portd = &B11111111
      Waitms 150
      Portd = &B11011111
      Waitms 150
      Portd = &B11111111
      Waitms 150
      Portd = &B10111111
      Waitms 150
      Portd = &B11111111
      Waitms 150
      Portd = &B01111111
      Waitms 150
      Portd = &B11111111
      Waitms 150
      Reset Portb.0
      Set Portb.1
      Waitms 150
      Set Portb.0
      Reset Portb.1
      Waitms 150
      Set Portb.1
      Set Portb.0

      Loop
      اینم نمونه برنامه
      البته به خاطر مداری که بستم باید جای ست و ریست عوض کنم :mrgreen:
      r.pسابق

      دیدگاه


        #4
        پاسخ : استفاده همزمان از دو پورت مگا8

        این برنامه کاملا درسته
        تو پروتئوس هم جواب گرفتم
        http://persiandrive.com/114933

        دیدگاه


          #5
          پاسخ : استفاده همزمان از دو پورت مگا8

          پین b.1 همیشه روشن می مونه.
          علتش چیه؟
          r.pسابق

          دیدگاه


            #6
            پاسخ : استفاده همزمان از دو پورت مگا8

            همیشه روشن نمیآ‌مونه
            فقط دفعه اول روشنه،یه بار که خاموش میآ‌شه ،درست میآ‌شه
            یه reset portb.1 اول برنامت بزار

            دیدگاه


              #7
              پاسخ : استفاده همزمان از دو پورت مگا8

              مشکلم حل شد :wow:
              تا جایی که من فهمیدم نمیتونم 2 پورت با هم ست کنم.
              از اقا حمیدم ممنونم :applause:
              r.pسابق

              دیدگاه

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