سلام دوستان. من با استفاده از دستور shiftout از پورت A در مگا32 استفاده کردم در پروتوس اجرا می شود ولی به صورت عملی جواب نمی دهد. 12 عدد آی سی 74HC595 گذاشتم تا بر روی هر کدام به ترتیب عدد 0 و 255 به صورت باینری نشون دهد. مشکل کجاست؟
این هم برنامه.
این هم برنامه.
$regfile = "m16def.dat"
$crystal = 8000000
Serial_r Alias Porta.0
Colock_r Alias Porta.1
Latch_r Alias Porta.2
Config Serial_r = Output
Config Colock_r = Output
Config Latch_r = Output
Dim A As Long
Dim Abuffer1(11) As Byte
Abuffer1(1) = 255
Abuffer1(2) = 0
Abuffer1(3) = 255
Abuffer1(4) = 0
Abuffer1(5) = 255
Abuffer1(6) = 0
Abuffer1(7) = 255
Abuffer1(8) = 0
Abuffer1(9) = 255
Abuffer1(10) = 0
Abuffer1(11) = 255
Abuffer1(12) = 0
Do
For A = 1 To 11
Shiftout Serial_r , Colock_r , Abuffer1(a) , 1 , 8
Next
Set Latch_r
Reset Latch_r
Loop
End
$crystal = 8000000
Serial_r Alias Porta.0
Colock_r Alias Porta.1
Latch_r Alias Porta.2
Config Serial_r = Output
Config Colock_r = Output
Config Latch_r = Output
Dim A As Long
Dim Abuffer1(11) As Byte
Abuffer1(1) = 255
Abuffer1(2) = 0
Abuffer1(3) = 255
Abuffer1(4) = 0
Abuffer1(5) = 255
Abuffer1(6) = 0
Abuffer1(7) = 255
Abuffer1(8) = 0
Abuffer1(9) = 255
Abuffer1(10) = 0
Abuffer1(11) = 255
Abuffer1(12) = 0
Do
For A = 1 To 11
Shiftout Serial_r , Colock_r , Abuffer1(a) , 1 , 8
Next
Set Latch_r
Reset Latch_r
Loop
End
دیدگاه