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

[reza barani]

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

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


Dim Row As Byte
Dim Scan As Byte
Dim I As Integer
Dim X0 As Byte
Dim Y0 As Byte
Dim X1 As Byte
Dim Y1 As Byte
Dim X2 As Byte
Dim Y2 As Byte
Dim X3 As Byte
Dim Y3 As Byte
Dim X As Integer
Dim Y As Integer

Config Porta = Output
Config Portc = Output
Config Portd = Output
Config Portb = Output
Reset Portc.0
Y = 0


Do

''''''''&# 039;'''''''&#03 9;'''''''' '''
For Y = 0 To 65 ''''number of shift text'''' if speed less then 50 moovig is defeated
X0 = 0 ''''''''&# 039;'''''''&#03 9;'''''''' '''
Y0 = 7
X1 = 8
Y1 = 15
X2 = 16
Y2 = 23
X3 = 24
Y3 = 31



X0 = X0 + Y 'adding to coloumn for moving (chanching the coloumn)
Y0 = Y0 + Y
X1 = X1 + Y
Y1 = Y1 + Y
X2 = X2 + Y
Y2 = Y2 + Y
X3 = X3 + Y
Y3 = Y3 + Y



''''''''&# 039;'''''''&#03 9;'
For I = 1 To 10 'speed moving text'
''''''''&# 039;'''''''&#03 9;'
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Set Portd.5 ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.4
Reset Portd.3 ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.2
Reset Portd.1
Reset Portd.0

Scan = &B11111110
For Row = X0 To Y0
Porta = Scan
Rotate Scan , Left
Portb = Lookup(row , Gelayof)
Waitus 200
Portb = 0
Next Row

'when the text is gharashmish you should change number of set lach'''''''
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.5
Set Portd.4
Reset Portd.3 ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.2
Reset Portd.1
Reset Portd.0




Scan = &B11111110
For Row = X1 To Y1
Porta = Scan
Rotate Scan , Left
Portb = Lookup(row , Gelayof)
Waitus 200
Portb = 0
Next Row



''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.5
Reset Portd.4
Set Portd.3 ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.2
Reset Portd.1
Reset Portd.0



Scan = &B11111110
For Row = X2 To Y2
Porta = Scan
Rotate Scan , Left
Portb = Lookup(row , Gelayof)
Waitus 200
Portb = 0
Next Row


''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''



Reset Portd.5 ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.4
Reset Portd.3 ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Set Portd.2
Reset Portd.1
Reset Portd.0

Scan = &B11111110
For Row = X0 To Y0
Porta = Scan
Rotate Scan , Left
Portb = Lookup(row , Gelayof)
Waitus 200
Portb = 0
Next Row

'when the text is gharashmish you should change number of set lach'''''''
''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.5
Reset Portd.4
Reset Portd.3 ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.2
Set Portd.1
Reset Portd.0




Scan = &B11111110
For Row = X1 To Y1
Porta = Scan
Rotate Scan , Left
Portb = Lookup(row , Gelayof)
Waitus 200
Portb = 0
Next Row



''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.5
Reset Portd.4
Reset Portd.3 ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;''''''
Reset Portd.2
Reset Portd.1
Set Portd.0



Scan = &B11111110
For Row = X2 To Y2
Porta = Scan
Rotate Scan , Left
Portb = Lookup(row , Gelayof)
Waitus 200
Portb = 0
Next Row

Next I
Next X


Loop

End

' data for disply on led arrey


Gelayof:
Data &B00000000 'space
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000

Data &B00000000 'space
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000 'space
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000 'space
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000


Data &H18 'È
Data &H24
Data &H5A
Data &HA5
Data &H42
Data &H81 ' ä
Data &H00
Data &H00
Data &B00000000


Data &H18 'È
Data &H24
Data &H5A
Data &HA5
Data &H42
Data &H81 ' ä
Data &H00
Data &H00 'space
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000


Data &H8 'Î
Data &H18
Data &H28
Data &H28
Data &H88



Data &H8 'Ï
Data &H8
Data &HC
Data &H12
Data &H2

'Ç
Data &B00000000
Data &HF8
Data &B00000000
Data &B00000000



Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000 'space
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000 'space
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000 'space
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000

[alirezalahij]

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

سلام

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

یک تابلو روان ۸ *۳۲

حرکت به نام خدا به سمت راست

به همراه فایل شبیه سازی شده در پروتیوس

به همراه سور س بسکام

لینک دانلود مدار کامل تابلو روان:

http://www.4shared.com/file/56841140/be0b55d0/in_the_name_of_god_moving_to_right__tablooravan__a lireza.html

[reza barani]

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

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

[reza barani]

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

ولی این برنامه که شما در تابلوی 32*8استفاده کردین من با کمی تغییر در تابلوی 48*8 استفاده کردم اما گفتم متن از پایین به بالا وبرعکس حرکت می کنه مخوام از چپ به راست وبرعکس حرکت کنه فکر کنم باید کمی برنامه رو تغییر داد میگم اگه تو پروتئوس 90درجه ماتریکسها رو بچرخانم درست میشه اما تابلو که آماده است چیکار کنم؟ :cry2:

[reza barani]

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

خوب آره دوستان حالا که کسی به من کمک نمی کنه خودم مشکلم حل کردم میدونین چطوری ؟

[alirezalahij]

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

سلام آقا رضا

فکر کنم دیتا رو برعکس دادی بهش
یعنی موقع وارد کردن دیتا اونو با 90 درجه اختلاف وارد کنی و چون تابلو 90 درجه کج بود مشکلت حل می شه

[reza barani]

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

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