چگونگی شناسائی اتوماتیک پورت comو خواص آن در vb.net

[morteza_rk]

سلام

کسی می دونه که چطور میشه با VB.NET برنامه ای نوشت که خودش بتونه لیست پورت های COM مورد استفاده در قسمت Device Manager رو پیدا کنه و خواص هر پورت رو بفهمه؟ مثلا میزان باودریت ، شماره پورت ، فعال بودن یا نبون Hand Shak و ...

فکر می کنم این برنامه یکم اختصاصیه و خوراک بهنام باشه! نه؟

[ama_trig]

VB.NET

Imports System.IO.Ports

Dim mysp As New SerialPort
Dim pnames() As String
pnames = SerialPort.GetPortNames()

For i As Integer = 1 To pnames.Length
cbPN.Items.Add(pnames(i - 1))
Next

خواص که سخت افزار شما زمان وصل شدن تایین می کنه، تنظیمات dm کار خاصی انجام نمی دن و برنامه به راحتی می تونه override کنه، اما اگه منزور پرت باز شده هست، فکر نمی کنم با .net بشه.
اگر هم پرت بسته است، تک تک پرت ها را باید باز کرد و چک کرد.
منطقی ترین راه اینه که سخت افزار مرتب 2 کاراکتر پشت سر هم بفرسته، شما توی نرم افزار با بادریت های مختلف مثلا از 300+ شروع به چک کردن می کنین، روی هر پرت با یک تاخیری ورودی می خونین هر موقع AB یا BA رسید می تونین baud رو درست فرض کنین، لاقل توی صنعت این روش کاربرد داره، روش های دیگه ام هست، مثلا سخت افزار TXD برای یه مدت مشخص که پروتوکل شده است high نگه می داره، portبعد بافر خودش رو مرتب چک کنه اگه چیزی نرسید دوباره TXD ... با نرم افزار port باز می شه، چند بار اندازه می گیره، با baud مورد نظر یه پیام توقف میفرسته که می تونه بگه handshake و ... تنظیمات ثانویه چی باشه.

روشه هم که من استفاده می کنم، سخت افزار و نرم افزار هر دو 38400 پرت باز می کنن، نرم افزار یکی یکی پرت ها رو چک می کنه، هر موقع A رسید، وضعیت درسته!

[morteza_rk]

سلام دادا

منظور من پورت باز شده نیست. همه ی ما می دونیم که 256 تا پورت کام توی Device Manager وجود داره که معمولا فقط 4 - 5 تاش مورد استفاده هستن ، حالا ما می خوایم از بین این 256 تا اون پورتی که مد نظر خودمون هست پیدا کنیم.

برای مثال من یه مبدل پورت USB به COM رو وصل می کنم به پورت USB در این زمان این مبدل به جای یکی از پورت های COM شماره 1 تا 256 قرار می گیره. حالا من می خوام برنامه ام توی VB.NET بیاد اولا شماره ی این پورت که درواقع همون مبدل هست رو پیدا کنه و ثانیا مقدار باودریت رو تشخیص بده و احیانا سایر موارد. (فعلا این دو مورد در اولویت هستن)

البته روشی که برای تشخیص میزان باودریت گفتید جالبه ريال ولی من فکر می کنم که باید راهی آسونتر برای این مقصود وجود داشته باشه.

راستی اگه ممکنه یه مقدار راجع به کدی که گذاشتید توضیح بدید!

[behnam6500]

روشی که دوست عزیز گذاشتن، میاد نام تمامی پورتهای سریال که در سیستم تعریف شده رو برمیگردونه. و در یک combo box که تعریف کردن میریزه.

از ادرس زیر میتونید لیست پورت ها رو ببینید:

HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM

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

[PHP]
Private Sub GetPortInfo()


Dim searcher As New ManagementObjectSearcher("select * from Win32_SerialPortConfiguration")

Try
For Each share As ManagementObject In searcher.[Get]()


Try
textBox1.Text += share("Name").ToString() + vbCr & vbLf
Catch
textBox1.Text += share.ToString() + vbCr & vbLf
End Try

If share.Properties.Count <= 0 Then
MessageBox.Show("No Information")
Return
End If

For Each PC As PropertyData In share.Properties


textBox1.Text += PC.Name + ": "

If PC.Value IsNot Nothing AndAlso PC.Value.ToString() <> "" Then
Select Case PC.Value.[GetType]().ToString()
Case "System.String[]"
Dim str As String() = DirectCast(PC.Value, String())

Dim str2 As String = ""
For Each st As String In str
str2 += st + " "
Next

textBox1.Text += str2 + vbCr & vbLf

Exit Select
Case "System.UInt16[]"
Dim shortData As UShort() = DirectCast(PC.Value, UShort())


Dim tstr2 As String = ""
For Each st As UShort In shortData
tstr2 += st.ToString() + " "
Next

textBox1.Text += tstr2 + vbCr & vbLf

Exit Select
Case Else

textBox1.Text += PC.Value.ToString() + vbCr & vbLf
Exit Select
End Select

End If
Next
Next

Catch
End Try

End Sub

[/PHP]

[morteza_rk]

ممنون بهنام جان

من قطعه کد بالارو کپی کردم توی ویژوال استودیو 2010 در یک پروژه ی VB.net اما موقع اجرا کردن از قسمت ManagementObjectSearcher ایراد می گیره!

الان کد علاوه بر استخراج اطلاعات پیکره بندی پورت ، شماره ی پورت رو هم مشخص می کنه؟

[behnam6500]

فضای نام system.management رو اضافه کن، همچنین اگه رفرنس system,.management.dll به پروژه اضافه نشده بود، ضاافه کن...

بله شماره پورت رو هم میده. در اصل این روشی که اینجا اوردم، نه فقط برای پورت سریال، بلکه برای مشاهده پیکربندی سیستم به کار میره...

[morteza_rk]

بهنام جان هر کاری میکنم نمیشه

فضای نام system.management رو اضافه کردم رفرنسشم خودش داشت ولی باز از همون قسمت ایراد میگیره
اگه میشه فقط همین تکه کد رو توی پروژه ی vb.net کامپایل کن و ضمیمه کن .

[behnam6500]

دو قطعه کد گذاشتم... یکی این، یکی هم مثل روشی که دوستمون در این تاپیک گذاشتن...

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

[ama_trig]

روشی که خودم گفتم + روش دوست عزیز رو پیوست (البته فقط کامپایل شدنی )کردم.
ABR یا Automatic baud rate detection
تنها فکر می کنم با نمونه برداری ممکن هست و دیگر هیچ!
چون فقط سیگنالی که دارین، جنسش از نوع خود کلاک شده هست

حالا من می خوام برنامه ام توی VB.NET بیاد اولا شماره ی این پورت که درواقع همون مبدل هست رو پیدا کنه و ثانیا مقدار باودریت رو تشخیص بده و احیانا سایر موارد. (فعلا این دو مورد در اولویت هستن)

منظوررتون از این قسمت چی هست، baud و شما تعیین نمی کنین، یعنی سخت افزار و شما توافق می کنین، که با چه سرعتی حرف بزنین، موقعی که از توافق نامه اطلاع ندارین، فکر نمی کنم راهی بجز آزمایش وجود داشته باشه، بخصوص اگر از سری های FT232 استفاده می بکنین، حتی اگه پرت با baud اشتباه باز کنین، مجبورین کل این ic ریست کنین(ورژن های قدیمی). چون خودش بقیه تنظیمات و از روی packet تشخیض می داد، مگر این که با سرعت بیشتر اون هم از مضربی از سرعت اصلی باز کنین.

البته تشخیص baud روی سخت افزار کمی جالب تره، کافی با تایمر 1 زمان و اندازه بگیرید، بعدش ...
در مورد تشخیص هم که کارو آسون تر کردین، کافی vendor id, pid و بدونین روی device قفل کنین

ref:
http://stackoverflow.com/questions/3...r-using-vb-net
http://www.pjrc.com/tech/8051/autobaud.html
http://social.msdn.microsoft.com/For...6-680a5d24d845
http://en.wikipedia.org/wiki/Automat...rate_detection
http://social.msdn.microsoft.com/For...6-24f625186c5d

[ama_trig]

اینهم برای سکن هاب

        Dim mos As New ManagementObjectSearcher("SELECT * FROM Win32_USBHub")

        For Each mo As ManagementObject In mos.Get()
            MessageBox.Show(mo.Properties.Item("Description").Value + vbCrLf + mo.Properties.Item("DeviceID").Value)
        Next

[behnam6500]

من از این روش، برای بدست اوردن مو به مو جزئیات سیستم استفاده میکنم...

[morteza_rk]

ممنون از هر دو عزیز

الان فقط یه مشکلی هست!

ببینید من وقتی از توی رجیستری میرم و نگاه می کنم چهارتا از پورت های COM من اونجا هستن که به ترتیب اینجوریه COM2 و COM4 و COM1 و COM8 ، وقتی هم که کدهای شمارو اجرا می کنم دقیقا همین چهارتا پورت توی کمبو باکس ظاهر میشه. ولی موقع دریافت خواص هر پورت ، بجز پورت COM8 خواص بقیه مو به مو نشون داده میشه.

حالا پورت COM8 چیه؟ دقیقا همون پورتیه که من بهش مبدل USB to COM وصل کردم!

بنظر شما قضیه چیه؟

[behnam6500]

نام پورت 8 چی هست؟

وقتی که مبدل رو میکشی از تو رجیستری حذف میشه؟

[morteza_rk]

وقتی که مبدل رو میکشی از تو رجیستری حذف میشه؟

آره دادا ، حذف میشه. وقتی هم که می زنمش به یه پورت دیگه شماره پورت کامش عوض میشه که طبیعیه ، هم توی Device Manager عوض میشه هم توی رجیستری و هم توی برنامه ای که گذاشتین. ولی بازم موقع نمایش خواص اسم این پورت رو نشون نمیده.

من دوتا عکس از Device Manager و رجیستری پیوست کردم که اسمشم توی عکس مشخصه.

[morteza_rk]

ببینید من در اصل هدفم اینه که پروژه هایی که با VB.NET و AVR ارائه میدم خودش بطور اتوماتیک بتونه پورت COM مربوطه رو پیدا کنه و شروع به تبادل اطلاعات کنه و در صورت لزوم وضعیت باودریت ، DTR و RTS رو تغییر بده.

مثلا فرض کنید با میکرو برنامه ای نوشتیم که هر ثانیه اطلاعات دما رو می فرسته به کامپیوتر ، ما از یک مبدل COM to USB استفاده می کنیم. و برد میکرو رو وصل می کنیم به کامپیوتر ، حالا برنامه ی ویژوال باید داده هارو دریافت کنه و مثلا توی یه تکست باکس نشون بده.

در حالت عادی فرد برای ایجاد ارتباط بین سخت افزار و برنامه ی ویژوال باید اول بره توی Device Manager و ببینه که مبدل چه شماره ای از پورت COM رو داره و مقدار باودریت چقدره ، بعد بیاد توی برنامه ویژوال از یه کمبو باکس شماره پورت و باودریت رو ست کنه.

اما من می خوام کل این فرایند بطور اتوماتیک انجام بشه. و در ضمن اون ، بتونم مقدار باودریت رو کم و زیاد کنم.

[behnam6500]

اینکه چرا اون پورت رو نشون نداده من چیزی نمیدونم

ولی در پروژه ای که انجام داده بودم، دقیقن همین کار رو کرده بودم که نرم افزار بصورت اتوماتیک دو پورت کام رو شناسایی میکرد و برنامه رو برای اونا ست میکرد. شیوه کار هم بدین صورت بود که هر پورت رو داده ای میفرستادم و در صورت دریافت پاسخ شناساییش میکردم...

به همین سادگی شما هم میتونید پورت رو شناسایی کنید.

[morteza_rk]

اینکه چرا اون پورت رو نشون نداده من چیزی نمیدونم

بیشتر روی این قسمت کار می کنم.

شیوه کار هم بدین صورت بود که هر پورت رو داده ای میفرستادم و در صورت دریافت پاسخ شناساییش میکردم...

مهندس جان اگه میشه این بحث رو باز کن. ضمن اینکه من چطور می تونم پورتی که روی باودریت 9600 شناسائی شده رو بطور اتوماتیک ست کنم روی مثلا 57600 !؟

[morteza_rk]

راستی بهانم جان شما توی پروژه ای که انجام داده بودی از مبدل COM to USB استفاده کرده بودی؟

[morteza_rk]

آقا یه نکته ی کنکوری!

من روی مادربرد کامپیوترم یه پورت COM واقعی دارم. الان چک کردم ، دیدم وقتی خواصشو تغییر میدم (باودریت ، Parity ، Stop bit و ....) و بعدش میام از برنامه ی شما استفاده می کنم ،خواصی که توی برنامه نشون داده میشه همون خواص پیشفرض هست و هیچ تغییری نمی کنه!

نکته ی دوم اینکه خواصی که برای هر 3 پورت نشون داده میشه کاملا مثل هم هست! اصلا با هم فرق ندارن.

[behnam6500]

من از مبدل usb به serial استفاده کردم. این رو بگم که این مبدل ها در پروژه های صنعتی و پروژه هایی که نیاز به کار زیاد دارند، اصــــــــــــــــلا قابل اطمینان نیستند! خیلی راحت از کار می افتند! داده نمیفرستند و...

شما بیا باود ریت دیفالت درست کن به عنوان مثال 57600 و بریزش توی eeprom میکرو.

برنامه وی بی میاد به پورتهای سریال وصل میشه، دستور دریافت باود ریت رو میفرسته (قابل تعریف توسط شما)

در صورت درست باز شدن پورت، و باود صحیح، میکرو به دستور شما پاسخ میده و مقدار باود رو از eeprom میخونه و میفرسته! اینطر ی هم پورت رو پیدا کردی و باود رو.

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

برای تنظیم مقدار باود هم کافیه که با برنامه به میکرو دستور تغییر بدی و اونم توی حافظش مقدار جدید رو بنویسه. و بعدش هم ریست سریال و کار با باود جدید...