كمك درموردتابلو16*64

akbar10331033

باسلام خدمت دوستان .بنده نقشه وبرنامه بسكام تابلو 16*64 رو ميخواستم دوستان لطفا راهنمايي بكنيد خوب كسي جواب نميده

اين برنامه رو خودم نوشتم .فقط نميدونم فايل پروتيوس روچجوري بزارم تا ببينيد پورت cبه وسيله دوعدد 74573به دورديف ماتريس led(مثبتماتريسها)وخروجي portd به دورديف ماتريس(منفي ماتريس)متصل ميشود porta.0بهle يكي از لچها وporta.1 هم بهle لچ بعدي oe ها هم به منفي
ابتدا خروجي portc برابر 8بيت خط اول ميشود واين 8بيت زماني درخروجي لچ كه همان ورودي ماتريس 8رديف اول ميايدكهporta.0=1شودسپس 0شده وporta.1=1شده وفرمان به لچ وماتريس خط دوم ميدهد

$regfile = "m32def.dat"
$crystal = 8000000
Config Porta = Output
Config Portb = Output
Config Portc = Output
Config Portd = Output
Portc = 0

Dim Row As Byte
Dim Col As Byte
Dim Refresh As Byte
Dim U As Byte
Dim H As Word
Dim G As Word
Dim K As Byte

L:
Do

U = &B11111110

For G = 0 To 42 Step 2

For K = 0 To 100

H = G
For Row = 0 To 7

Portd = U
Portc = Lookup(h , Dr)

Set Porta.0

H = H + 1
Reset Porta.0

Portc = Lookup(h , Dr)
Set Porta.1

Reset Porta.1

Rotate U , Left
Waitus 400
H = H + 1
Next Row

Next G
Next K

Loop

Dr:

Data &H1F , &HF8 '...@@@@@@@@@@...
Data &H1F , &HF8 '...@@@@@@@@@@...
Data &H10 , &H00 '...@............
Data &H10 , &H00 '...@............

[/align][/align][s][u]

adelavr

دوست عزیز متوجه نشدم که مشکل شما کجاست توی برنامه مشکل داری یا توی مدار؟
برای تابلو 16*64 یه نمونه تو همین سایت هست اون رو الگو قرار بدین و در صورت مشکل نقشه مداری که بستید رو همراه با برنامه رو بذارید اینجا نا بهتر بتونیم کمک کنیم ...

adelavr

دوست عزیز متوجه نشدم که مشکل شما کجاست توی برنامه مشکل داری یا توی مدار؟
برای تابلو 16*64 یه نمونه تو همین سایت هست اون رو الگو قرار بدین و در صورت مشکل نقشه مداری که بستید رو همراه با برنامه رو بذارید اینجا نا بهتر بتونیم کمک کنیم ...

	HLachini.elewiz.com صفحه اول انجمن -> تابلو روان -> نقشه و سورس برنامه های تابلو روان	زمان پيشفرض سايت: ساعت گرينويچ + 3.5 ساعت
صفحه 1 از 1