مشکل در ارتباط rs232

[parsegade]

کد:

$regfile = "m8def.dat"
$crystal = 16000000
$baud = 19200

Dim B As Byte
B = 2





Do

Open "comd.7:19200,8,n,1" For Output As #1
Print #1 , B
Waitms 100
Open "comd.6:19200,8,n,1" For Input As #2



Loop

اقا من تو ارتباط مشکل دارم. هر کاری میکنم نمیشه.نمیخوام از پایه های اصلی rx tx استفاده کنم.سرچ هم کردم چیزی گیرم نیومد

[omid_phoenix]

شما دقیقا هدفتون چی هست؟
در مورد کارتون بیشتر توضیح بدید

[parsegade]

میخوام میکرو رو با کامپیوتر ارتباط بدم.ضمن اینکه تا الان با این پروتکل کار نکردم و میخوام یاد بگیرم.میکرویی که دارم پورت مورد نظر این پروتکل استفاده دیگه ای شد ه و من میخوام پورتهای این پروتکل رو نرم افزاری تغییر بدم

[omid_phoenix]

سلام
این برنامه فرستنده
از اون ور با چه دستوری دیتا رو میگیرید؟
برنامه گیرنده هم بذارید

[parsegade]

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

[omid_phoenix]

شما دارید دیتا رو ارسال میکنید دستور دریافت دارید
اون دستوری که رو کامپیوتر باهاش دیتا رو دریافت میکنید اون و منظورم هست
چون با این مد ارسال شرایط دریافت دیتا فرق میکنه
+
برنامه ال سی دی رو نذاشتید که بررسی بشه
از دوتا خط دستور که نمیشه تشخیص داد
الان این دستورات ارسال شما مشکلی ندارن
باید تو کل برنامه بررسی بشه تا مشخص بشه مشکل از کجاست

شبیه سازم داشتید پیوست کنید راحت تر بشه مشکل و رفع کرد

[kimiafars]

اولا باید مشخص کنید کریستال تون را این کریستال رو به 8000000 تغییر بدهید برنامه دریافت توی کامپیوتر را هم بفرمایید نرخ انتقال را هم به 9600 تغییر دهید

[parsegade]

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

[parsegade]

اینم برنامه.خیلی خلاصه و مفید.ولی کار نمیکنه

کد:

$regfile = "m8def.dat"
$crystal = 16000000
$baud = 19200
Cursor Off
Config Lcd = 16 * 2


Config Lcdpin = Pin , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = Pinc.0 , Rs = Pind.0 , E = Pind.1


Dim B As Byte
B = 2

Do

Locate 1 , 1
Lcd "a"



Open "comd.7:19200,8,n,1" For Output As #1
Print #1 , B
Waitms 100
Open "comd.6:19200,8,n,1" For Input As #2

Loop

[omid_phoenix]

سلام
عزیز
شما گفتید چیزی رو lcd نشون نمیده
نبایدم انتظار داشته باشید چیزی نشون بده!

شما اومدید متغیر a رو روی lcd نمایش دادید
درحالیکه هیچ مقداری به a داده نشده!!

و ایرادات بعدی برنامه تون
Cursor Off و همیشه بعد پیکر بندی lcd بنویسید

کد:

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = Pinc.0 , Rs = Pind.0 , E = Pind.1

Cursor Off

مورد بعدی
فرکانس و نرخ بیت مناسبی واسه ارسال و دریافت انتخاب نکردید
اینایی که دوستمون اشاره کردن و اعمال کنید

اولا باید مشخص کنید کریستال تون را این کریستال رو به 8000000 تغییر بدهید برنامه دریافت توی کامپیوتر را هم بفرمایید نرخ انتقال را هم به 9600 تغییر دهید

[parsegade]

دوست عزیز اگه دقت کرده باشید من a را داخل " " قرار دادم پس دیگه متغیر نمیشه.در مورد Cursor Off هم ربطی به نشون دادن نداره. و همچنین کریستال.اما با این حال من این دوتا مورد رو انجام دادم ولی انجام نشد.