تکرار کننده اطلاعات پورت سریال با امکانات ویژه

[mohammadp]

من از برنامه زیر استفاده کردم و با پروتئوس 6.9 عملکرد مدار را تست کردم متاسفانه اطلاعاتی را که از Rx شبیه سازی شده نرم افزاری باید دریافت شود 98 درصد ان دریافت نمیشود همچنین فشردن بعضی از کلید های صفحه کلید نتایج یکسانی را برمیگرداند
ایا مشکل بخاطر اسیلاتور داخلی است من از باد ریت 2400 استفاده کرده ام
یا ...
$regfile = "m8def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
$baud = 2400 ' use baud rate
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.0 , Db6 = Portc.1 , Db5 = Portc.2 , Db4 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Kbd = Portb , Debounce = 20 , , Delay = 100
Config Serialin = Buffered , Size = 30
Enable Interrupts
Dim P As Word
Dim Mymessage As Byte
Dim Mykey As Byte
Open "COMD.5:2400,8,N,1" For Input As #1
Cls
Lcd "start Program"
Do
Mymessage = Inkey(#1)

While Mymessage > 0
Lcd Mymessage;
Mymessage = Inkey(#1)
Wend

P = Inkey()
If P > 0 Then Print P 'Chr(p);
Mykey = Getkbd()
If Mykey <> 16 Then
Cls
Lcd Mykey ; "PRESSED"
Print Chr(mykey); ''Send TO Other PC Terminal
Do
Waitms 100
Mykey = Getkbd()
Loop Until Mykey = 16
End If
Loop
Close #1
End

[t3r!p3000]

کاش فایل پروتئوس رو هم قرار می دادید .

[mohammadp]

من اصل فایل پروتئوس و یک تصویر از شماتیک را ضمیمه کردم
ار اینکه در حل این مسئله کمک میکنید سپاسگزارم

[mohammadp]

  New Folder.zip (اندازه: 136.82 KB / تعداد دفعات دریافت: 90)

[t3r!p3000]

لطفا فایل هگز رو هم بذار .
این برنامه بالا رو که کپی پست می کنم , یه عالمه خطا می ده .
PLZ INSERT FILE " HEX"

[mohammadp]

من فایل Hex و سورس برنامه را ضمیمه کردم . شما از چه ورژنی از پروتئوس استفاده میکنید

$regfile = "m8def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
$baud = 2400 ' use baud rate
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.0 , Db6 = Portc.1 , Db5 = Portc.2 , Db4 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Kbd = Portb , Debounce = 20 , , Delay = 100
Config Serialin = Buffered , Size = 30
Enable Interrupts
Dim P As Word
Dim Mymessage As Byte
Dim Mykey As Byte
Open "COMD.5:2400,8,N,1" For Input As #1
Cls
Lcd "start Program"
Do
Mymessage = Inkey(#1)

While Mymessage > 0
Lcd Mymessage;
Mymessage = Inkey(#1)
Wend

P = Inkey()
If P > 0 Then Print P 'Chr(p);
Mykey = Getkbd()
If Mykey <> 16 Then
Cls
Lcd Mykey ; "PRESSED"
Print Chr(mykey); ''Send TO Other PC Terminal
Do
Waitms 100
Mykey = Getkbd()
Loop Until Mykey = 16
End If
Loop
Close #1
End

[mohammadp]

متاسفانه اجازه اپلود نمیده در اولین فرصت اپلود میکنم

[mohammadp]

فایل هگز ضمیمه شد

[t3r!p3000]

شما از چه ورژنی از پروتئوس استفاده میکنید ؟؟؟

همه رو دارم .
6.5
6.9
7.1
7.2
اگه جديد تر اومده كه خبر ندارم .

[mohammadp]

سلام دوست عزیز
آیا توانستید به مشکل برد من پی ببرید
اگر شما میخواستید این مسئله را حل کنید از چه مسیری میرفتید
با تشکر