آقا من هم مگا 16 هم یا مگا 128 رو میخوام ارتباط بدم به کامپوتر نمیدونم مشکل کجاست ؟ 
سخت افزار که عینا مثل Help بسکامه برنامه هم که پایینه ولی نمیدونم چرا تو امولاتور بسکام جوابی نه میاد نه میره اصلا صفحه به کل آبیه درست 3 روزه دارم صفحه آبی میبینم :cry2:چه کنم :cry2:مگا 16 و مگا 128 هم امتحان کردم همینه! فیوز بیتها رو نمیدونم چه کنم 3 جور کریستل داخلیه کدوم یکیرو امتحان کنم .آیا کار دیگهایم هست که نکردم؟
تو پروتئوس جواب گرفتم. :NO:
$regfile = "m16def.dat"
$crystal = 4000000
$baud = 9600
Dim A As Byte
Config Portd.6 = Output
Do
Portd.6 = 0
Waitms 1000
Portd.6 = 1
Waitms 1000
Portd.6 = 0
Print "LOTFAN RAMZ RA VARED ****D"
Waitms 1000
Print "VARED KARDANE RAMZ="
Input A
Waitms 100
If A = 20 Then:
Portd.6 = 1
Print "komak" : Waitms 200
Print "divone shodam" : Waitms 200
Print "safhe abi porsho de" : Waitms 200
Print " VAHAB" : Waitms 200
End If
Loop
End
سخت افزار که عینا مثل Help بسکامه برنامه هم که پایینه ولی نمیدونم چرا تو امولاتور بسکام جوابی نه میاد نه میره اصلا صفحه به کل آبیه درست 3 روزه دارم صفحه آبی میبینم :cry2:چه کنم :cry2:مگا 16 و مگا 128 هم امتحان کردم همینه! فیوز بیتها رو نمیدونم چه کنم 3 جور کریستل داخلیه کدوم یکیرو امتحان کنم .آیا کار دیگهایم هست که نکردم؟
تو پروتئوس جواب گرفتم. :NO:
$regfile = "m16def.dat"
$crystal = 4000000
$baud = 9600
Dim A As Byte
Config Portd.6 = Output
Do
Portd.6 = 0
Waitms 1000
Portd.6 = 1
Waitms 1000
Portd.6 = 0
Print "LOTFAN RAMZ RA VARED ****D"
Waitms 1000
Print "VARED KARDANE RAMZ="
Input A
Waitms 100
If A = 20 Then:
Portd.6 = 1
Print "komak" : Waitms 200
Print "divone shodam" : Waitms 200
Print "safhe abi porsho de" : Waitms 200
Print " VAHAB" : Waitms 200
End If
Loop
End
کد HTML:
<abbr=کاربر محترم ، لطفا از عنوان مناسب برای تاپیک استفاده نمائید></abbr>
oo:
اینه که زمین PC و زمین مدار AVR و زمین MAX232 باید همه به هم وصل باشند 
:rolleyes:
دیدگاه