PDA

View Full Version : کمک در کار با پورتهای سریال در ویژوال بیسیک



s.hematii
شنبه 19 فروردین 1391, 11:57 صبح
سلام
من تازه عضوشدم و همین طور 2هفته است که با ویژوال بیسیک آشنا شدم و خیلی تازه کارم کتابی که خوندم فقط رشته ای بحث کرده بود اما من از ابزارایی که مارو به پورت سریال و سخت افزار وصل میکنن اطلاعی ندارم مثل mscomm یعنی متد و دستوراتشو نمیشناسم یعنی صفرم خواهش میکنم فورا یه کمک اساسی و کامل بهم کنید.

galaxyking
یک شنبه 20 فروردین 1391, 19:39 عصر
این لینک شاید کمکت کنه:
http://uplod.ir/kvc1z7khnqn1/micro_controler_with_vb.pdf.htm

s.hematii
دوشنبه 21 فروردین 1391, 10:01 صبح
واقعا ممنونم از کمکت دوست خوبم galaxyking
من از این دستورات برای نمایش استفاده کردم تو شبیه سازی هم جواب میگیرم یعنی اطلاعات ارسال میشه اما این تیکه رو واسه نمایش اجرانمیکنه
(Private Sub MSComm1_OnComm(
For i = 1 To MSComm1.InBufferCount
List2.AddItem MSComm1.Input
Next
End Sub
یعنی این msgbox MSComm1.OutBufferCount که میزنم 0نشون میده انگار اطلاعاتی تو بافر نیس میشه کمکم کنید

galaxyking
دوشنبه 21 فروردین 1391, 21:09 عصر
سلام دوست عزیز
شما می خای چیکار کنی ؟
من رشتم الکترونیکه واسه همین تو قسمت الکترونیکیش بیشتر میتونم کمکت کنم
البته برنامه vb نوشم برای ارتباط با میکرو ولی خیلی تو بحثای برنامه vb نبودم در حدی بود که کارمو راه بندازه
الانم یه برنامه دیگه دارم واسه ارتباط میکرو با کامپیوتر ولی بازم وقت ندارم vbرو کامل یاد بگیرم
امیدوارم بقیه بچه ها کمکتون کنن

s.hematii
سه شنبه 22 فروردین 1391, 08:48 صبح
ممنونم که جوابم رو میدی
منم الکترونیکم 1جا تازه مشغول شدم و اصلا سابقه کار ندارمتازه 2هفتس خودم دارم یاد میگیرم وتاحالا به برد با کامپیوتر وصل نشدم و نیاز به هر نوع اطلاعات سخت افزاری و نرم افزاری در مورد پورت سریال چک کردن و .. دارم هر اطلاعاتی دارید به دردم میخوره چون متاسفانه کار نکردم و خیلی چیزارو نمیدونم مرسی
در ضمن درباره ابزارSPortAx هرکس اطلاعاتی داره بده

tehran206
سه شنبه 22 فروردین 1391, 08:50 صبح
با سلام
من هم مثل دوست عزیزمون نیاز به ارتباط با این پورت دارم، البته من میخوام اطلاعاتی رو که avr برام از روی یه سیستم میخونه (مثل ولتاژ) بوسیله پورت usb توی یه برنامه ویژوال بیسیک بخونم.
ممنون میشم راهنماییم کنید.

s.hematii
سه شنبه 22 فروردین 1391, 12:23 عصر
دوستایی که مثل من از پورت سریال یر در نمیارن اینو بخونن

galaxyking
سه شنبه 22 فروردین 1391, 18:02 عصر
سلام
شما برای ارتباط با کامپیوتر باید از دوتا از پایه های avr (یا هر میکروی دیگه) استفاده کنید با نام rxd و txd که rxd برای دریافت و txd برای فرستادنه
حالا شما یه آیسی واسط نیاز دارید که اطلاعاتو به زبون کامپیوتر در بیاره
شما اگر بخاید با پورت کام به طور مستقیم ارتباط داشته باشین باید از ایسی max232 استفاده کنید
ولی اگر می خاید با پورت usb کار کنین از ft232 باید استفاده کنید که البته کار اون تبدیل usb به پورت سریال (کام com ) هست
پس شما در واقع همیشه با پورت سریال کار میکنید
اینجا من چندتا مقاله میذارم تا بهتر متوجه بشین:[/URL]
[url]http://www.8pic.ir/images/7rtnwqcggen4jn4ilpo.rar (http://www.8pic.ir/images/7rtnwqcggen4jn4ilpo.rar)
http://www.8pic.ir/images/7rtnwqcggen4jn4ilpo.rar (http://www.8pic.ir/)
http://www.8pic.ir/images/7rtnwqcggen4jn4ilpo.rar (http://www.8pic.ir/)

s.hematii
چهارشنبه 23 فروردین 1391, 15:36 عصر
ممنونم عالی بود
راستی دوستان 1سئوال دیگه چجور میشه 1خاصیت یا متد در ActiveXساخت که دو پارامتر داشته باشه این شکل مینویسم ارور میگیره
Public Property Get vall() As Integer

vall= vall

End Property
Public Property Let vall(ByVal x As Integer, ByVal y As Integer)

For i = 1 To 8
x = Str(i)
" ","y = Val(InputBox("en y", "en data))
Text2.Text = Text2.Text + Str(x, y)
PropertyChanged "vall"
Next