کار با پورت COM

[Michka]

سلام دوستان

میخوام ی برنامه بنویسم که داده ها رو از پورت کام کامپیوتر بخونه و بنویسه، کسی ی سورس کدی داره ک بتونم از اون جا شروع کنم

من با VB.6 اشنایی دارم ولی الان میخوام با VB.Net کار کنم که برام ی کمی گنگه
برا همین اگه سورس کدی باشه که کمک کنه ممنون میشم،

[gilsoft]

سلام دوست عزیز

این یک نمونه از ارتباط با پورت Com:

Dim com1 As IO.Ports.SerialPort = Nothing
Try
com1 = My.Computer.Ports.OpenSerialPort("COM1")
com1.ReadTimeout = 10000

Catch ex As TimeoutException
returnStr = "Error: Serial Port read timed out."
Finally
If com1 IsNot Nothing Then com1.Close()
EndTry


و مثالی دیگر :

Function ReceiveSerialData() As String ' Receive strings from a serial port.
Dim returnStr As String = ""

Dim com1 As IO.Ports.SerialPort = Nothing
Try
com1 = My.Computer.Ports.OpenSerialPort("COM1")
com1.ReadTimeout = 10000
Do
Dim Incoming As String = com1.ReadLine()
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
End If
Loop
Catch ex As TimeoutException
returnStr = "Error: Serial Port read timed out."
Finally
If com1 IsNot Nothing Then com1.Close()
End Try

Return returnStr
EndFunction

پیشنهاد من به شما اینه که : در گوگل جستجو کنی به نمونه‌های خوبی دسترسی پیدا میکنی:
how to read from com port in vb.net (https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=how%20to%20read%20from%20com%20port%20in%20vb. net)

موفق باشید .....

[Michka]

ممنونم - خیلی لطف کردی

[lemaghsoodi@gmail.com]

سلام دوستان من یه کد می خوام با دلفی در این رابطه خیلی لطف می کنید اگر پاسخ بدید

با تشکر