با سلام
اول عذر خواهی کنم واسه اینکه این مطلبو جای دیگه هم بحث شده هم تو این سایت هم توسایت های دیگه ولی متاسفانه هیچکدوم به نتیجه نرسیده . من می خوام اینجا بحثو به نتیجه برسونم . امیدوام تموم مهندسین دست به دست هم بدن تا این موضوع را به نتیجه برسونیم .
اول بگم این موضوع تو این سایت تو این صفحات بحث شده :
حالا طرح مشکل :
اولا من از 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 یا کمو زیاد کردنشم نتیجه ای نگرفتم .
حالا مشکل :
آیا واقعا برنامم مشکل داره ؟
سرعت پایین رم دلیل این مشکل هست ؟
ببخشید سرتون را درد آوردم .
بیایید با هم این مشکل را حل کنیم . یکبار برای همیشه .


دیدگاه