یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

[Questioner]

سلام. کسی یه نمونه برنامه داره که توش از هر 2 تا USART میکروی MEGA64 استفاده شده باشه؟ من هر کار میکنم نمیتونم راش بندازم.
میخوام با کامپایلر BASCOM باشه. ممنونم.

[ahmadsamiee]

پاسخ : یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

برای تنظیم سخت افزاری باید جفت تنظیماتو انجام بدی
$baud = 9600 باود یک
$baud1 = 9600 باود دو
اینم واسه پورت دوم
Open "COM2:" For Binary As #2
اگه می خوای دیتا بخونی مثلا با waitkey باید بنویسی
Code = Waitkey(#2) واسه دومی
واسه اولی هم که همون Code = Waitkey() خالی کافیشه

[ahmadsamiee]

پاسخ : یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

اینم یه مثال با عکس
تشکر یادت نره :nice:

$regfile = "m64def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7 , Rs = Pina.0 , E = Pina.2
Config Lcd = 16 * 2

$baud = 9600
$baud1 = 9600
Open "COM2:" For Binary As #2

Dim Code1 As String * 1
Dim Code2 As String * 1

Do

Code1 = Waitkey()
Code2 = Waitkey(#2)

Cls
Locate 1 , 1
Lcd "code1=" ; Code1
Locate 2 , 1
Lcd "code2=" ; Code2
Wait 1

Print #2 , Code1
Print Code2

Loop
End

[Questioner]

پاسخ : یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

برای تنظیم سخت افزاری باید جفت تنظیماتو انجام بدی
$baud = 9600 باود یک
$baud1 = 9600 باود دو
اینم واسه پورت دوم
Open "COM2:" For Binary As #2
اگه می خوای دیتا بخونی مثلا با waitkey باید بنویسی
Code = Waitkey(#2) واسه دومی
واسه اولی هم که همون Code = Waitkey() خالی کافیشه

این خیلی مختصر بود و مفید. ممنونم.
یه سوال دیگه بپرسم؟ برای فهمیدن اینکه داده تو پورت USART اول وجود داره یا نه از رجیستر Ischarwaiting() استفاده میکنیم. درسته؟ حالا برای اینکه بفهمیم داده تو USART شماره 2 هست یا نه از چه رجیستری استفاده کنیم؟

[ahmadsamiee]

پاسخ : یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

خواهش می کنم.
فقط کافیه تو پرانتز #2 رو اضافه کنی.
یعنی Ischarwaiting(#2)

[Questioner]

پاسخ : یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

خواهش می کنم.
فقط کافیه تو پرانتز #2 رو اضافه کنی.
یعنی Ischarwaiting(#2)

وای چرا به ذهن خودم نرسیده بود؟!!!! :applause:

تشکرامو از سر راه نیاوردما. واقعا تشکر داشتن مطالبتون.

[ahmadsamiee]

پاسخ : یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

وظیفه ایه به گردن همه ی ما که باید ادا بشه.
خواهش می کنم :smile:

[حامد رحیمی]

پاسخ : یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

به من پیام خصوصی داده بودین
مشکلتون حل شده ؟ یا هنوز نیاط به کمک دارین ؟؟
من هر دو شو راه انداختم فایلاشونو دارم در صورت نیاز به من پیغام بدید تا من در خدمتتون باشم
متاسفانه به دلیل سخت شدن قسمت اپلود و کمبود وقت و هزاران مشکل دیگه نمیتونم توی سایت حضور چشم گیری داشته باشم
بازم در خدمتم

[Questioner]

پاسخ : یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

خواهش می کنم.
فقط کافیه تو پرانتز #2 رو اضافه کنی.
یعنی Ischarwaiting(#2)

آقا این دستور که برا یوزات 2 کار نمیکنه. لطفا کمک کنید

[ahmadsamiee]

پاسخ : یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

باید کار کنه چون تو help هم گفته var = ISCHARWAITING(#channel)
برنامتونو میشه بزارید تا بهتر بشه فهمید ایراد کار از کجاست.

[Questioner]

پاسخ : یه مثال برای هر 2ارتباط سریال MEGA64 نیاز دارم

باید کار کنه چون تو help هم گفته var = ISCHARWAITING(#channel)
برنامتونو میشه بزارید تا بهتر بشه فهمید ایراد کار از کجاست.

خیلی خیلی ممنون. درست شد. تو زیر برنامه باید مینوشتم Inkey(#2) اما اشتباهی Inkey() نوشته بودم