این برنامه چه مشکلی دارد؟

[alirf]

سلام دوستان
این برنامه برای یک تابلو روان 5 *7 می باشد ولی در پروتئوس که اجرا می کنم چیزدرستی اجرا نمی شود؟
در این برنامه حرف a را نشان می دهد ولی هر کاری کردم نتوانستم برنامه را اجرا کنم


[]$regfile = "m16def.dat"
[/l]$crystal = 8000000
Config Portb = Output
Config Portd = Output
Dim Row As Byte
Dim Scan As Byte
Do
Scan = &B01111111
For Row = 0 To 6
Portb = Scan
Rotate Scan , Left
Portd = Lookup(row , Gelayof)
Waitus 20
Portd = 0
Next Row

Loop
Gelayof:
Data &B00000100
Data &B00001010
Data &B00010001
Data &B00010001
Data &B00011111
Data &B00010001
Data &B00010001

[سوران آراسته]

پاسخ : این برنامه چه مشکلی دارد؟

با سلام.
دوست عزیز مشکل شما فقط در wait برنامه بود که من اصلاح شده ی اون رو براتون می زارم.
الان می تونید بعد از اجرای برنامه حرف A رو ببینید.

$regfile = "m16def.dat"
$crystal = 8000000
Config Portb = Output
Config Portd = Output
Dim Row As Byte
Dim Scan As Byte
Do
Scan = &B01111111
For Row = 0 To 7
Portb = Scan
Rotate Scan , Left
Waitus 1
Portd = Lookup(row , Gelayof)
Waitus 20
Next Row
Loop
Gelayof:
Data &B00000100
Data &B00001010
Data &B00010001
Data &B00010001
Data &B00011111
Data &B00010001
Data &B00010001

[alirf]

پاسخ : این برنامه چه مشکلی دارد؟

با سلام.
دوست عزیز مشکل شما فقط در wait برنامه بود که من اصلاح شده ی اون رو براتون می زارم.
الان می تونید بعد از اجرای برنامه حرف A رو ببینید.

$regfile = "m16def.dat"
$crystal = 8000000
Config Portb = Output
Config Portd = Output
Dim Row As Byte
Dim Scan As Byte
Do
Scan = &B01111111
For Row = 0 To 7
Portb = Scan
Rotate Scan , Left
Waitus 1
Portd = Lookup(row , Gelayof)
Waitus 20
Next Row
Loop
Gelayof:
Data &B00000100
Data &B00001010
Data &B00010001
Data &B00010001
Data &B00011111
Data &B00010001
Data &B00010001

همان حالت قبلی است من دات ماتریس را مستقیم به میکرو وصل کردم مشکلی ندارد؟
همه سطر و ستون هنگام اجرای برنامه روشن می شود

[سوران آراسته]

پاسخ : این برنامه چه مشکلی دارد؟

منظورتون از اینکه مثل حالت قبله ، یعنی بازم برنامه کار نکرد ؟!!!
این رو تست کردم و فایلش رو در زیر می زارم. در مورد نحوه اتصال شما باید مواظب باشید که از پایه های میکرو زیاد جریان نکشید پس بهتره از یه بافر استفاده کنید.
هر چند در این مورد فکر کنم سری کردن یه مقاومت 470 اهم کارتون رو راه بندازه.

[alirf]

پاسخ : این برنامه چه مشکلی دارد؟

منظورتون از اینکه مثل حالت قبله ، یعنی بازم برنامه کار نکرد ؟!!!
این رو تست کردم و فایلش رو در زیر می زارم. در مورد نحوه اتصال شما باید مواظب باشید که از پایه های میکرو زیاد جریان نکشید پس بهتره از یه بافر استفاده کنید.
هر چند در این مورد فکر کنم سری کردن یه مقاومت 470 اهم کارتون رو راه بندازه.

فایل را نتوانستم باز کنم یک عکس از ان می توانید بزارید؟

[سوران آراسته]

پاسخ : این برنامه چه مشکلی دارد؟

اینم یه عکس از مدار :

[alirf]

پاسخ : این برنامه چه مشکلی دارد؟

اینم یه عکس از مدار :

سلام ممنون
در خط اول حرف "A" سه تا led روشن است در حالی که طبق برنامه باید یک led روشن باشد ؟
همچنین 2 تا خط وسط دارد؟

[سوران آراسته]

پاسخ : این برنامه چه مشکلی دارد؟

اینم فایل تصحیح شده نهایی + یه فایل آموزشی pdf
امیدوارم این بار مشکل حل شده باشه.
با تشکر

[alirf]

پاسخ : این برنامه چه مشکلی دارد؟

سلا م
این برنامه را از بیسیک به سی بردم ببین درست انجام دادم
این برنامه ای که حرف A را بهصورت متحرک روی یک تابلو روان 5*7 نمایش می دهد؟یک لطفی کنید ببینید برنامه درست است
بیسیک
$regfile = "m16def.dat"
$crystal = 8000000
Config Porta = Output
Config Portc = Output

Dim Scan As Byte
Dim Motion As Byte
Dim speed As Byte
Dim Num As Byte
Dim Index As Byte

Do
For Motion = 0 To 9
For Speed = 1 To 10
Scan = &B00000001
For Num = 0 To 4
Index = Num + Motion
(Porta = Lookup(index , Row
Portc = Scan
Waitus 250
Rotate Scan , Left
Portc = &H00
Next Num
Next Speed
Next Motion
Loop

Row:
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

سی


<include<mega16.h#
<include<delay.h#
<include<string.h#
<include<math.h#
unsigned char library[16]={0Xff,0Xff,0Xff,0Xff,0Xff,0X83,0Xf5,0Xf6,0Xf5,0X8 3,
;{0Xff,0Xff,0Xff,0Xff,0Xff
;unsigned char scan,motion,speed,num,index
()void main
}
;DDRA=0xFF
;DDRC=0xFF


(while(1
}
(++for(motion=0;motion<10;motion
(++for(speed=1;speed<=10;speed
;scan=0b00000001}
(++ for(num=0;num<5;num
}
; index=num+motion
;[PORTA=library[index
;PORTC=scan
;(delay_us(250
;scan=scan << 1
{
{
{
{