سلام. شهادت امام علی(ع) را تسلیت عرض میکنم
بدون حاشیه بگم :arrow:من یه برنامه نوشتم که اطلاعاتو از mmc میگیره و به روی تابلو نمایش میده.
حالا مشکلم اینه که تصویرم به صورت کامل نمایش داده نمیشه.توی این جیف که گذاشتم اسم محمد از چپ به راست حرکت میکنه و یه دایره از بالا به پایین حرکت میکنه.اما محمد تو تابلواصلا نشون داده نمیشه.خودتونم میتونید امتحانش کنید.تبدیل جیفها با برنامه اقای فتاحی انجام میشه
اما 4فریم را راحت نشون میده و تعداد بیشتر نه :cry:
برم سراغ توضیح برنامه
درضمن اگه میخواید خودتون متوجه بشید یه جیف بسازید و تعداد فریم و وقفه ها در فایل بانری باشه
تابلو هم 32*14هست
اینم شبیه ساز و فایل بسکام
http://city-upload.com/p9enqkk2sktr/New_WinRAR_ZIP_archive.zip.html
منتظر یاری سبزتان هستم
بدون حاشیه بگم :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
منتظر یاری سبزتان هستم
دیدگاه