با سلام
اول عذر خواهی کنم واسه اینکه این مطلبو جای دیگه هم بحث شده هم تو این سایت هم توسایت های دیگه ولی متاسفانه هیچکدوم به نتیجه نرسیده . من می خوام اینجا بحثو به نتیجه برسونم . امیدوام تموم مهندسین دست به دست هم بدن تا این موضوع را به نتیجه برسونیم .
اول بگم این موضوع تو این سایت تو این صفحات بحث شده :
حالا طرح مشکل :
اولا من از Amtga32 استفاده میکنم . دو زبان برنامه نویسی Bascom . از فرمت Fat32 استفاده میکنم . متنم را داخل فایل تکست "ALI.TXT" ذخیره میکنم .
محتویات فایلم به این صورته :
یعنی هر خط یک کد برای یک ماتریکس 8در8 . تابلوی من 16 در 64 هست . جمعا 1024 led.
با تابع زیر هر خط از فایلو که میخوام می خونم :
در اصل مانند یک آرایه است که اندیس خط مورد نظر ورودی تابع است .
و حالا جاروب و خواندن از فایل :
اگر دو خطی که مانند توضیح درش آوردم را بردارم و 4 خط بعدی را حذف کنم برنامه عالی کار میکنه .
ولی در این صورت برنامه افتضاح کار میکنه و هر لحظه فقط یک ردیف اینم ردیفی که کد نداره !! روشنم میشه .
تازه با حذف اون waitms 5 یا کمو زیاد کردنشم نتیجه ای نگرفتم .
حالا مشکل :
آیا واقعا برنامم مشکل داره ؟
سرعت پایین رم دلیل این مشکل هست ؟
ببخشید سرتون را درد آوردم .
بیایید با هم این مشکل را حل کنیم . یکبار برای همیشه .
اول عذر خواهی کنم واسه اینکه این مطلبو جای دیگه هم بحث شده هم تو این سایت هم توسایت های دیگه ولی متاسفانه هیچکدوم به نتیجه نرسیده . من می خوام اینجا بحثو به نتیجه برسونم . امیدوام تموم مهندسین دست به دست هم بدن تا این موضوع را به نتیجه برسونیم .
اول بگم این موضوع تو این سایت تو این صفحات بحث شده :
http://www.eca.ir/forum2/index.php?topic=57078
http://www.eca.ir/forum2/index.php?topic=47538
http://www.eca.ir/forum2/index.php?topic=47234
http://www.eca.ir/forum2/index.php?topic=22904
حالا طرح مشکل :
اولا من از Amtga32 استفاده میکنم . دو زبان برنامه نویسی Bascom . از فرمت Fat32 استفاده میکنم . متنم را داخل فایل تکست "ALI.TXT" ذخیره میکنم .
محتویات فایلم به این صورته :
کد:
0 0 0 0 0 56 0 120 0 96 0 96 0 96 0 63 224 31 224 12
با تابع زیر هر خط از فایلو که میخوام می خونم :
کد:
Function Lookupf(byval Lin As Word) Dim Text As String * 4 Local Coun As Word Coun = 0 Open "ALI.TXT" For Input As #2 Do Line Input #2 , Text Incr Coun If Coun = Lin Then Lookupf = Text End If Loop Until Eof(#2) <> 0 Close #2 End Function
در اصل مانند یک آرایه است که اندیس خط مورد نظر ورودی تابع است .
و حالا جاروب و خواندن از فایل :
کد:
For B = 0 To 3 ' Porta = Lookup(u , Text00) 'Portd = Lookup(d , Text00) Kk = Lookupf(u) Porta = Val(kk) Ff = Lookupf(d) Portd = Val(ff) '= Val(ff) Portb = 2 ^ B Portb = 0 U = U + 16 D = D + 16 Next B Portc = Scan Rotate Scan , Left Waitms 5 Portc = 0 Next I
ولی در این صورت برنامه افتضاح کار میکنه و هر لحظه فقط یک ردیف اینم ردیفی که کد نداره !! روشنم میشه .
تازه با حذف اون waitms 5 یا کمو زیاد کردنشم نتیجه ای نگرفتم .
حالا مشکل :
آیا واقعا برنامم مشکل داره ؟
سرعت پایین رم دلیل این مشکل هست ؟
ببخشید سرتون را درد آوردم .
بیایید با هم این مشکل را حل کنیم . یکبار برای همیشه .
دیدگاه