PDA

View Full Version : حرفه ای: شناسایی اتوماتیک Device



mdanger
یک شنبه 29 تیر 1393, 19:43 عصر
سلام.
دوستان بنده یه مداری رو طراحی کردم (رشتم الکترونیک هستش) حال تو قسمت ویژوال بیسیک از اساتید محترم راهنمایی میخوام
مداری که طراحی کردم از طریق پورت Usb به کامپیوتر وصل میشه .
تو ویژوال بیسیک تو بحث ارتباط سریال مشکلی ندارم . میخوام بدونم راهی وجود داره که بصورت اتوماتیک پورت متصل شده رو شناسایی و اتوماتیک کانکت بشه ؟
تو این روشی که خودم استفاده کردم یه کامبوباکس گذاشتم که port number رو نوشتم و از این طریق با مدارم ارتباط برقرار میکنم اما میخوام بصورت اتوماتیک این امر صورت بگیره
از اساتید محترم تقاضا راهنمایی دارم

meys34
یک شنبه 29 تیر 1393, 21:40 عصر
این کد برای پیدا کردن مودم هست شما میتونید از همین روش برای برنامه تون استفاده کنید...

به جای دستور "AT" میتونید به عبارت دلخواه استفاده کنید... میکرو پس از دریافت این عبارت باید خروجی "OK" بفرسته...

Private Sub DetectModem()

Dim intLoopCount As Integer, intModemFound As Integer, strInput As String

intModemFound = 0
For intLoopCount = 1 To 256
MSComm.CommPort = intLoopCount
MSComm.Settings = "9600,N,8,1"

On Error Resume Next
MSComm.PortOpen = True
If Err.Number = 0 Then
MSComm.Output = "AT" & vbCr
strInput = MSComm.Input
If InStr(strInput, "OK") > 0 Then
intModemFound = MSComm.CommPort
MSComm.PortOpen = False
Exit For
End If
MSComm.PortOpen = False
Else
MSComm.PortOpen = False
End If
Next intLoopCount

If intModemFound > 0 Then
MsgBox "Modem Found On " & "COM" & Trim$(Str(intModemFound)), vbInformation, ""
txtComPort.Text = "COM" & Trim$(Str(intModemFound))
Else
MsgBox "Modem Not Found", vbCritical, ""
End If
End Sub