سلام ممنون که جواب دادین ولی اینبار با سخت افزار مشکل پیدا کردم :cry2:
این شماتیکو میزارم که دقیقا همونطور وصل کردم
595 مدل nxp
با سه تا کلید امتحان کردم کار میگنه دیتارو وارد میکنم و شیفت میدم منتها وقتی به اتمگا وصلش می کنم کار نمی کنه وقتی با ال ای دی پایه هارو چک می کنم هیچ یک از پایه ها روشن نمی شن بجز پایه پین a.2 مشکل از کجاس ؟
دوستان اگه کار کردن و برنامشو دارن یه نمونه برنامه که فقط یه متغییرو انتقال بده با بسکام بزارین ممنون میشم
$regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
Config Portb = Output
Dim A As Byte
A = &B10101010
Do
Reset Porta.2
Shiftout Pina.0 , Pina.1 , A
Waitms 100
Set Porta.2
Waitms 100
اقا به نتیجه رسیدم :applause: انقد سر به سرش گذاشتم حل شد مدارو یبار دیگه بستم
اینم برنامه برای کسایی که تازه می خوان شروع کنن
$regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
Dim A(4) As Byte
A(1) = &B11000000
A(2) = &B00110000
A(3) = &B00001100
A(4) = &B00000011
Dim I As Byte
Do
For I = 1 To 4
Reset Porta.2
Wait 1
Shiftout Porta.0 , Porta.1 , A(i)
Set Porta.2
Waitms 100
Next I
Loop
دیدگاه