اطلاعیه

Collapse
No announcement yet.

مشکل بابرنامه تابلوروان بابیسکام(جان من یه نگاه بنداز)

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

    مشکل بابرنامه تابلوروان بابیسکام(جان من یه نگاه بنداز)

    سلام. شهادت امام علی(ع) را تسلیت عرض میکنم

    بدون حاشیه بگم :arrow:من یه برنامه نوشتم که اطلاعاتو از mmc میگیره و به روی تابلو نمایش میده.
    حالا مشکلم اینه که تصویرم به صورت کامل نمایش داده نمیشه.توی این جیف که گذاشتم اسم محمد از چپ به راست حرکت میکنه و یه دایره از بالا به پایین حرکت میکنه.اما محمد تو تابلواصلا نشون داده نمیشه.خودتونم میتونید امتحانش کنید.تبدیل جیفها با برنامه اقای فتاحی انجام میشه
    اما 4فریم را راحت نشون میده و تعداد بیشتر نه :cry:
    برم سراغ توضیح برنامه
    کد:
    Open "Tdata.txt" For Binary As #2
    
    Get #2 , Frc
    For Ltemp = 1 To Frc
    توی خط اول که فایل باز میشه
    خط 2 فریم ها رو میگیره 
    خط 3 حلقه هست که باید به تعداد فریم ها انجام بشه
    کد:
    Get #2 , Dly
      Dly = Dly / 10
    
      For Cnt = 1 To 14
       Get #2 , Dp1(cnt)
       Get #2 , Dp2(cnt)
       Get #2 , Dp3(cnt)
       Get #2 , Dp4(cnt)
      Next Cnt
    خ 1 وقفه هارو میگیره 
    خ 2 که مشخصه 
    حلقه cnt هم اطلاعات رومیگیره و 14 خط رو میخونه
    کد:
    For T1 = 1 To Dly
      For Cnt = 1 To 14
       Portd = 0
       Set Portc.0
       Set Portc.1
       Set Portc.6
       Set Portc.7
       Reset Portc.0
       Reset Portc.1
       Reset Portc.6
       Reset Portc.7
       Porta = 14 - Cnt
    
       Set Portc.0
       Portd = Dp1(cnt)
       Reset Portc.0
       Set Portc.1
       Portd = Dp2(cnt)
       Reset Portc.1
       Set Portc.6
       Portd = Dp3(cnt)
       Reset Portc.6
       Set Portc.7
       Portd = Dp4(cnt)
       Reset Portc.7
    
       Waitms 1
      Next Cnt
    Next T1
    Next Ltemp
    اینجام که اطلاعات بر روی تابلو نمایان میشه و فایل را میبندیم و از نو شروع میکنیم
    درضمن اگه میخواید خودتون متوجه بشید یه جیف بسازید و تعداد فریم و وقفه ها در فایل بانری باشه
    تابلو هم 32*14هست
    اینم شبیه ساز و فایل بسکام
    http://city-upload.com/p9enqkk2sktr/New_WinRAR_ZIP_archive.zip.html
    منتظر یاری سبزتان هستم

    #2
    پاسخ : مشکل بابرنامه تابلوروان بابیسکام(جان من یه نگاه بنداز)

    اومدیم بگیم نگاه بندازید بیشتر بدتر شد

    اقا کسی نیست به دادم برسه :cry2:

    دیدگاه


      #3
      پاسخ : مشکل بابرنامه تابلوروان بابیسکام(جان من یه نگاه بنداز)

      نبـــــــــــــود؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :bye :bye :bye :bye

      دیدگاه

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