کمک اتصال کیبرد به تابلو روان !

[درود]

سلام

من یه نمونه کدی برای تابلو روان با بیسکام نوشتم که اشکالاتی داره

ازتون میخام که یکمی در این مورد کمکم کنید

این کد هستش :
کد:

$regfile = "m32def.dat"
$crystal = 8000000

Config Portb = Output
Config Portd = Output

Dim Col As Byte
Dim Scan As Byte
Dim Refresh As Byte
Dim Index As Byte
Dim S As Byte
Dim K As Byte
Dim J As Byte
Dim B As Byte
Dim A As Byte
Dim M(100) As Byte
K = 1 : J = 0 : B = 8 * K : B = B + 7
M(1) = 19
M(2) = 40



Do
For S = 0 To B
For Refresh = 1 To 10
Scan = &B00000001
For Col = 0 To 7
Index = S + Col


Select Case Index
Case 0 To 7 : Gosub Start1
Case 8 To 15 : Gosub Start2
Case 16 To 23 : Gosub Start3


End Select


Next Col
Next Refresh
Next S
Loop

End



Start1:

Portb = Lookup(index , Gelayof)
Portd = Scan
Waitms 3
Rotate Scan , Left
Portd = &H00
Incr J
If J = 8 Then J = 0
Return

Start2:

A = M(1) + J
Portb = Lookup(a , Gelayof)
Portd = Scan
Waitms 3
Rotate Scan , Left
Portd = &H00
Incr J
If J = 8 Then J = 0
Return


Start3:

A = M(2) + J
Portb = Lookup(a , Gelayof)
Portd = Scan
Waitms 3
Rotate Scan , Left
Portd = &H00
Incr J
If J = 8 Then J = 0
Return

Gelayof:
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111

Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111

Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111

Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111

Data &B10000011
Data &B11110101
Data &B11110110
Data &B11110101
Data &B10000011

Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111

Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111

Data &B10000011
Data &B11110101
Data &B11110110
Data &B11110101
Data &B10000011

Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111

Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111




من فرض کردم که آرایه های که تو برنامه تعریف کردم کدهای حروفی که باید نمایش داده شوند و اینه را از کیبرد گرفتم

حالا وقتی یه جدول لوک پ تعریف می کنم ، یه حرفی مثلا a در ردیف اول جدول هستش و حرفی مانند z در ردیف مثلا20 جدول

وقتی میخام بعد از a برم z رو نمایش بدم نمی تونم برنامه رو طوری بنویسم که نمایش صحیح باشه
مثلا فایل پروتوس رو ببینید :


http://www.4shared.com/file/210394280/f90251e6/tablo_codes.html



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

ممنون

[saeed bagherani]

پاسخ : کمک اتصال کیبرد به تابلو روان !

جناب درود درود برشما
توی همین سایت ذاجع به تابلو روان چند تا تاپیک خوب هستش
بیس کار رو بر مبنا اونا بزار و بعدش شروع کن به ویرایش اون برنامه ها تا برنامه دلخواهن بدست بیاد
یا اگه می خوای اون برنامه رو خودت بنویسی از اون برنامه ها چند تا الگو بگیر ببین چطوری نوشتن بعدش بقیه برنامه رو خودت بنویس
این جوری هم ذهنت یکمی باز تر میشه و بعضی از سوالاتت هم جواب داده می شه

[درود]

پاسخ : کمک اتصال کیبرد به تابلو روان !

درود بر شما دوست عزیز

راستش من این کدها رو هم از تو اینترنت یاد گرفتم و همه تایپیک ها رو گشتم ولی متاسفانه چیز به درد به خوری که شمکلی رو که در بالا عرض کردم حل کنه ندیدم
اگر شما مطلبی در این مورد دیده اید متشکر می شوم که لینکش را بزارید
با سپاس از توجه شما

[saeed bagherani]

پاسخ : کمک اتصال کیبرد به تابلو روان !

من قبلا اونو توی همین سایت دیدم
راستش رو بخوای حال و حوصله ندارم سرچ کنم
ولی برنامه ای که بود قشنگ جواب می داد
اگه قسمتی از برنامه ات جواب نمیده میتونی اونو دوباره بنویسی
من پیشنهاد می کنم قبلش بشین فلوچارت برنامه رو بنویس
خیلی خیلی کمک میکنه