خواندن اطلاعات از پورت سریال RS232

[saminco]

سلام دوستان خسته نباشید

من می خوام یه مداری طراحی کنم که توش از مگا 32 استفاده بشه برای مثال هرلحظه به پورت B0 میکرو 1 ارسال کنم بعد با استفاده از ویژوال بیسیک یا csharp پورت سریال رو بخونم (همون پورتی که میکرو به 1 ارسال میکنه) اگه دریافتی من از پورت 1 بود یه کاری رو انجام بدم

میشه منو راهنمایی کنید؟؟؟

[maziyar123]

پاسخ : خواندن اطلاعات از پورت سریال RS232

سلام دوستان خسته نباشید

من می خوام یه مداری طراحی کنم که توش از مگا 32 استفاده بشه برای مثال هرلحظه به پورت B0 میکرو 1 ارسال کنم بعد با استفاده از ویژوال بیسیک یا csharp پورت سریال رو بخونم (همون پورتی که میکرو به 1 ارسال میکنه) اگه دریافتی من از پورت 1 بود یه کاری رو انجام بدم

میشه منو راهنمایی کنید؟؟؟

سلام
منظورتون دقیقا چیه ؟؟ میخواین از کامپیوتر به میکرو ارسال کنی یا از میکرو به کامپیوتر ؟؟ منظورت از ارسال کردن 1 به میکرو ارسال دیتا از کامپیوتر هست ؟ یا 1 سطح منطق؟؟؟ :-? :-?
اگه از میکرو میخوای به کامپیوتر بفرستی برنامشو با VB نوشتم اگه خواستی برات بزارم :rolleyes:

[ehsanarn]

پاسخ : خواندن اطلاعات از پورت سریال RS232

سلام دوست عزیز
این که کاری نداری کافی هست شما هر وقت پورت مورد نظر 1 شد یه عبارتی را بفرستی روی پورت سریال و بعد تو برنامه نویسی اون را بخونی و کار مورد نظر را انجام بدی
اگه باز جایی سوال داشتی من در خدمتم.

[saminco]

پاسخ : خواندن اطلاعات از پورت سریال RS232

مرسی

منظورم اینه که باید تو میکرو چی بنویسیم؟؟ (سورس تو میکرو) که میکرو برامون مثلاً کاراکتر 'a' رو ارسال کنه؟

[ehsanarn]

پاسخ : خواندن اطلاعات از پورت سریال RS232

سلام دوست عزیز
$regfile = "m32def.dat"
$crystal = 11059200
$baud = 9600
Do
Print "A"
Wait 2
Loop
End
این هم یه نمونه برنامه
فقط حواست باشه میکرو رو روی کریستال خارجی بزاری

[saminco]

پاسخ : خواندن اطلاعات از پورت سریال RS232

مرسی از لطف شما دوست عزیز

من طبق راهنمایی های شما اطلاعات رو از پورت خوندم ولی یه چیزهای نامفهوم برام به نمایش در اومدن

مثلا: ف5@7اگ..ه8ف

[maziyar123]

پاسخ : خواندن اطلاعات از پورت سریال RS232

مرسی از لطف شما دوست عزیز

من طبق راهنمایی های شما اطلاعات رو از پورت خوندم ولی یه چیزهای نامفهوم برام به نمایش در اومدن

مثلا: ف5@7اگ..ه8ف

سلام باید از دستور printbin استفاده کنی چون کامپیوتر اطلاعات رو به صورت باینری از پورت سریالش میگیره
طبق مثال زیر ::

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Do
Printbin "A"
Wait 2
Loop
End

فقط حواست باشه میکرو رو روی کریستال خارجی بزاری

اصلا ربطی به فرکانس میکرو نداره شما اگه رو 8 مگ داخلی هم بزاری جواب میده باود ریت رو هم سعی کن روی 9600 باشه میگن کمتر نویز میندازه :mrgreen:
راستی بین میکرو و کامپیوتر از max232 یا max233 استفاده کردی ؟؟؟

[saminco]

پاسخ : خواندن اطلاعات از پورت سریال RS232

همون کارها رو انجام دادم ولی فرقی نکرد همون چیزهارو نشون میده

[ehsanarn]

پاسخ : خواندن اطلاعات از پورت سریال RS232

سلام دوست عزیز
میتونید مدار و برنامه میکرو را بزارید تا یه نگاهی بزنیم

[saminco]

پاسخ : خواندن اطلاعات از پورت سریال RS232

برنامه همون برنامه هست:


$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Do
Printbin "A"
Wait 2
Loop
End

تو قسمت printBin بسکام ایراد می گیره

[ehsanarn]

پاسخ : خواندن اطلاعات از پورت سریال RS232

برنامه همون برنامه هست:


$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Do
Printbin "A"
Wait 2
Loop
End

تو قسمت printBin بسکام ایراد می گیره

دوست عزیز
از printاستفاده کن
printbinیه متغیر عددی میگیره

[saminco]

پاسخ : خواندن اطلاعات از پورت سریال RS232

من همه کارایی که شما گفتین رو انجام دادم.اطلاعات رو دریافت می کنم ولی چیزهای نامفهومی بدستم می رسن

من یه بارم سوالمو مطرح می کنم:

من می خوام تو ویژوال بیسیک درون یه textbox مثلا بنویسم 1 بعد تو سخت افزارم PORT A.0 یک بشه یعنی اگه یه led بهش وصل کنم روشن بشه موقع ارسال محتویات textbox به میکرو

[maziyar123]

پاسخ : خواندن اطلاعات از پورت سریال RS232

من همه کارایی که شما گفتین رو انجام دادم.اطلاعات رو دریافت می کنم ولی چیزهای نامفهومی بدستم می رسن

من یه بارم سوالمو مطرح می کنم:

من می خوام تو ویژوال بیسیک درون یه textbox مثلا بنویسم 1 بعد تو سخت افزارم PORT A.0 یک بشه یعنی اگه یه led بهش وصل کنم روشن بشه موقع ارسال محتویات textbox به میکرو

سلام
بله حق با شماست بایدم از printbin ایراد بگیره همونطور که دوستمون گفتن متغیّر میگیره من حواسم نبود متغیّر تایین کنم شرمنده :angry:
ولی با همین printbin مشکل حل میشه چون pc دیتا رو باینری میگیره پس کلّا میشه این ::

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
dim a as string * 8
a = "A"
Do
printbin a
Wait 2
Loop
End

و اما در مورد برنامه که میخواین با pc عدد 1 رو بفرستین و تو سخت افزار porta.0 مثلا یه led رو روشن کنه
پس میشه این چون pc دیتا رو باینری میفرسته پس میشه inputbin
تو این برنامه هربار کلمه A رو بفرستی led یه بار روشن و اگه دوباره A بفرستی led خاموش میشه البته a حروف کوچیک:

:

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Porta.0 = Output
Dim A As String * 1

Do
Inputbin A
If A = "a" Then Toggle Porta.0

Loop

سمت مثبت led رو بزن به porta.0 با یه مقاومت بین 330 اهم تا 3.3 کیلو اهم

[saminco]

پاسخ : خواندن اطلاعات از پورت سریال RS232

من سورسی رو که شما گفتین نوشتم ولی واسه Config Porta.0 = Output و If A = "a" Then Toggle Porta.0 ایراد میگیره

[saminco]

پاسخ : خواندن اطلاعات از پورت سریال RS232

اقا ایرادش حل شد دیگه نمیگیره


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