۲۳-آذر-۱۳۸۷, ۲۱:۰۶:۱۵
[/size][b]میخواهم برنامه ای را که در باسکام نوشته ام را از طریق پورت سریال به میکرو بفرستم . از محیط امولاتور باسکام و یا هایپر ترمینال ویندوز نمیشود .
یعنی میخواهم هم بخواند و هم بنویسد . مدار راهم درست بسته ام . برنامه هم در زیر آورده ام .
البته تنظیمات باود را هم در برنامه(زیر) و در باسکام انجام داده ام . پایه 2 از پورت به پایه 14 و پایه 3 پورت را هم به پایه 13 max232 متصل نموده ام .
پایه های rx و tx میکرو را هم به ترتیب به 12 و 11 ای سی max232 وصل کرده ام .
خازنها را هم 1 میکروفارادی قرار داده ام .
محیط امولاتور را که باز میکنم اصلا به میکرو هیچ چیز ارسال ویا حتی دریافت نمیکند . و ارتباط کامپیوتر از طریق پورت سریال با میکرو برقرار نمیشود .
با هایپر ترمینال هم همین است .
پورت و سایر اتصالات سالم هستند.
باید چه کار خاصی را انجام بدهم تا این ارتباط برقرار شود و وقتی که شد چه علایمی دارد ؟
البته در محیط باسکام بعد از کامپایل از طریق امولاتور (شبیه ساز) انجام میشود ولی در موقع بستن مدار در واقعیت ارتباطی بین کیبرد و مدار برقرار نمیشود.
'end program[size=medium][/b]
یعنی میخواهم هم بخواند و هم بنویسد . مدار راهم درست بسته ام . برنامه هم در زیر آورده ام .
البته تنظیمات باود را هم در برنامه(زیر) و در باسکام انجام داده ام . پایه 2 از پورت به پایه 14 و پایه 3 پورت را هم به پایه 13 max232 متصل نموده ام .
پایه های rx و tx میکرو را هم به ترتیب به 12 و 11 ای سی max232 وصل کرده ام .
خازنها را هم 1 میکروفارادی قرار داده ام .
محیط امولاتور را که باز میکنم اصلا به میکرو هیچ چیز ارسال ویا حتی دریافت نمیکند . و ارتباط کامپیوتر از طریق پورت سریال با میکرو برقرار نمیشود .
با هایپر ترمینال هم همین است .
پورت و سایر اتصالات سالم هستند.
باید چه کار خاصی را انجام بدهم تا این ارتباط برقرار شود و وقتی که شد چه علایمی دارد ؟
البته در محیط باسکام بعد از کامپایل از طریق امولاتور (شبیه ساز) انجام میشود ولی در موقع بستن مدار در واقعیت ارتباطی بین کیبرد و مدار برقرار نمیشود.
کد php:
$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 20 * 4
Dim A As String * 50
Dim Pice As String * 50
Dim L As Byte
Dim W As Byte
Dim X As Byte
Dim Y As Byte
Dim I As Byte
Do
Cls
Home
Input "INPUT TEXT THEN PRESS ENTER :" , A
'A = "abolfazl is good"
L = Len(a)
For W = 1 To L
Pice = Mid(a , W , L)
Y = 16 - W
For I = 1 To Y
X = 16 - I
Locate 1 , X
Lcd Pice
Incr X
Locate 1 , X
Lcd " "
Waitms 5
Next
Next
Waitms 5
Loop
End