کار با پورت 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

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

[Michka]

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

[lemaghsoodi@gmail.com]

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

با تشکر