ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

[ehsanshaieste]

سلام :smile:
من میخواهم با یک ارتباط یکطرفه(فقط از طرف کامپیوتر به طرف میکرو) به صورت زیر :

(اتصال پایه 3 پورت rs232 یعنی txd به پایه rxd میکرو و اتصال زمین میکرو و پورتrs232 به همدیگه)

یک بایت را از طریق کامپیوتر(پورت rs232) به میکرو ارسال کنم. :icon_razz:

:question: دستور ارسال یک بایت از طریق پورت rs232 (پایه txd) در ویژوال بیسیک چیست؟
:question: با استفاده از چه دستوری در بسکام باید این یک بایت را دریافت کرد و در یک متغیر ذخیره کرد؟

[hossein_edison]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

سلام دوست من
شما اول باید از آیسی max232 استفاده کنی برا تبدیل منطق rs232 به منطق میکرو و بلعکس .
برا دریافت دیتا از کامپیوتر از دستور input استفاده کنی.
برا ارسال دیتا از کامپیوتر میتونی از hyper termiinal استفاده کنی.
از vb اطلاعی ندارم

موفق باشی

[majid.4206]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

سلام دوست عزیز
یه سوالی داشتم میشه بگین تو نصب ویژوال بیسیک مشکلی داشتین یا نه...
اخه من از یه DVD رایت شده اقدام به نصب کردم ولی هر کاری میکنم نمیشه نمیدونم اشکال از کجاست هی پیغام میده dvd اصلی رو بذار (منم میگم از کجا بیارم )

اگه نکته خاصی داره لطف کنید منو راهنمایی کنید ... :cry2:
در مورد سوالتون شرمنده من فعلا تازه او ل راهم ولی یه پیشنهاد میکنم اونم اینکه کتابشو بخری نمیدونم اسمش چی بود فکر کنم اموزش ویژوال بیسیک در 21 روز یا 21 سال نمیدونم تو همین مایه ها بود

[hadi_sl66]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو



با سلام

در بخش ابزارهای سمت چپ محیط VB کلیک راست کرده و گزینه Components را میزنیم و در پنجره باز شده آیتم Microsoft Comm Control 6.0 را تیک دار کرده و OK میکنیم و سپس آن را از ابزارهای ظاهر شده در بخش ابزارها بر روی فرم کشیده و بوسیله کد های زیر استفاده میکنم:

Private Sub Form_Load()
MSComm1.CommPort = 2
MSComm1.PortOpen = True
End Sub


Private Sub MSComm1_OnComm()
Dim RecData As String

If MSComm1.CommEvent = comEvReceive Then
RecData = MSComm1.Input
text1.Text = text1.Text & RecData
End If
End Sub


اگه کامپوننت رو نداشتی اینم دانلودش.
همه دستوراتشم نوشته.حتما این سایت رو ببین.خیلی راحته.MAX232 هم یادت نره بزاری
http://www.yes-tele.com/mscomm.html

[hadi_sl66]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

این هم فایل آموزشی فارسی.
این یادم رفته بود.من خودم با این یاد گرفتم
[url=http://http://gigil.persiangig.ir/PDF/micro_controler_with_vb.pdf[/url]

[ehsanshaieste]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

این هم فایل آموزشی فارسی.
این یادم رفته بود.من خودم با این یاد گرفتم
[url=http://http://gigil.persiangig.ir/PDF/micro_controler_with_vb.pdf[/url]

فایل فارسی رو از کجا میتونم دانلود کنم؟

[ehsanshaieste]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

Private Sub Form_Load()
MSComm1.CommPort = 2
MSComm1.PortOpen = True
End Sub


Private Sub MSComm1_OnComm()
Dim RecData As String

If MSComm1.CommEvent = comEvReceive Then
RecData = MSComm1.Input
text1.Text = text1.Text & RecData
End If
End Sub

سلام hadi_sl66
مممنون از راهنماییت :applause:
میشه لطفا یه توضیح کوچولو در مورد برنامه بدی؟
همونطور که گفتم من میخوام از طریق پورت سریال rs232 ارسال کنم فکر میکنم برنامه ای که زحمت کشیدی گذاشتی واسه دریافت از طریق rs232 هست

[ehsanshaieste]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

سلام دوست عزیز
یه سوالی داشتم میشه بگین تو نصب ویژوال بیسیک مشکلی داشتین یا نه...
اخه من از یه DVD رایت شده اقدام به نصب کردم ولی هر کاری میکنم نمیشه نمیدونم اشکال از کجاست هی پیغام میده dvd اصلی رو بذار (منم میگم از کجا بیارم )
اگه نکته خاصی داره لطف کنید منو راهنمایی کنید ... :cry2:

من microsoft visual studio 6.0 رو نصب کردم و مشکلی نداشتم
فقط اگر جایی آدرس ازت خواست بهتره همون حالتی که خودش پیش فرض گذاشته رو انتخاب کنی تا تو مراحل بعدی که امکان داره واسه نصب قسمت دیگه ای ازت آدرس بپرسه دچار مشکل نشی.

[ronak66]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

سلام .....
اول اینکه: برای ارسال اطلا عات با استفاده از vb می توونی از این کدها استفاده کنی
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = "9600,n,8,1"
End Sub


Private Sub Command1_Click()
MSComm1.Output = Chr(54)
MSComm1.Output = Chr(53)
End Sub
نکته :توی قسمت settings هر مقداری قرار دادی ..باید مطابق با شه با مقدار settings در bascomm
بادستور mscomm1.output=chr(dyte morede nazar)i می تونی هر بایتی که مورد نظرت هست رو بفرستی
دوم در مورد برنامه ی bascomm
$regfile = "M32def.dat "
$crystal = 11059200
$baud = 9600
'* * * * * * * * * * * * * * * * * * * * *
Dim F As Byte
Dim C As Long

'* * * * * * * * * * * * * * * * * * * *
Enable Interrupts
On Urxc Computer
Enable Urxc

'* * * * * * * * * * * * * * * * * * * * *

Open "com1:9600,8,n,1" For Binary As #2

'* * * * * * * * * * * * * * * * * * * * *
Computer:
F = Udr
Disable Urxc
if f =53 then

.
.
.
end if
Enable Urxc
Return
اقا پسر حتما" از interrupt استفاده کن
اگه سوالی داشتی بازم بپرس روی پرتوکل rs232 rs485 کار کردم

[ronak66]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

سلام..
اقا مجید
اول اینکه vb6فایل های خودش رو به صورت کامل ریجیستر نمی کنه و اگه روی کامپیوتر خودت نصب نشد می توونی روی یه کامپیوتر دیکه نصبش کنی
بعد فایل های اوون رو بیاری روی کامپیوترت ..
دوم اینکه emperor یه مجموعه داره به اسم end of old programs واقعآ" خووب کرک شدند
من با هاشون خیلی حال کردم .اگه با این dvd کار به جایی نبردی امتحانش کن
سوم اینکه نرم افزارایی مثل vb6کرک های زیادی ندارند
توی پکیج من گفته شده به جای تمامی سریال ها 5 بزن شما هم امتحان کن

[ehsanshaieste]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو


ممنون از جوابتون :applause:
فعلا 2 تا سوال :agree:

این مساوی 1 قرار دادن اینجا یعنی چی؟
آیا معنی فعال کردنه؟
MSComm1.CommPort = 1

تو خط زیر چرا نوشتین #2 ؟ این عدد 2چیه؟

Open "com1:9600,8,n,1" For Binary As #2

[ehsanshaieste]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

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

اونی هم که من نصب کردم سریالش 0 بود یعنی باید تمام فیلدها رو با صفر پر میکردی
اینو هم امتحان کن :agree:

[ronak66]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو


سلام...
اول اینکه
توی این کد
mscomm1.commport=1
1 شماره ی com شما است ..اگه از com اصلی computer استفاده می کنی مقدارش 1 هست
ولی اگه از مبدل usb to rs232 داری استفاده می کنی هر عددی می تونه باشه
باید بری توی devise manager قسمت ports ببینی شماره comm چنده بعد به جای 1 اون مقدار رو وارد کنی
و برای فعال کردن port از دستور mscomm1.portopen=true استفاده شده
دوم اینکه
2# شماره ی کانال ارتباطی شما رو مشخص میکنه ..
ممکنه بگی اصلا" من نمی خوام مشخص کنه ..چی میشه؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
اگه شما چندتا لاین ارتباطی داشته باشید و بخواید برای همشون دیتا بفرستید .. باید مشخصه ای برای مجزا کردن اون داشته باشید
مثلا"printbin #2 ,77 مقدار کاراکتری 77 که معادل M هست رو میفرسته روی کانال 2 از خرووجی

[ehsanshaieste]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

سلام
بازم ممنون
این "شماره کانال ارتباطی" یه عدد دلخواه هست یعنی هر چیزی میتونیم قرار بدیم یا یه عددای مشخص داره؟

[ronak66]

پاسخ : ویژوال بیسیک و ارتباط کامپیوتر (پورتrs232) با میکرو

نه اقا احسان تنها مشخصه ای که داره اینه که باید مثبت باشه در ضمن :
شما توی این برنامه قرار نیست چیزی ارسال کنید .
وفقط از یه لاین ارتباطی استفاده می کنید .
پس فقط کافیه baud رو مشخص کنیید. که من پیش نهاد می کنم هر دو طر ف رو بذارید 9600
به عبارت دیگه توی این برنامه اگه کل Open "com1:9600,8,n,1" For Binary As #2 رو پاک کنیید هم هیچ اتفاقی نمی افته