[dubai.eig]

السلام عليكم ورحمة الله

عندي textbox   ينزل في كلام والكلام يكون مشبوك مع بعض

إقتباس :;FA14070795;FB07077845;MD0C

اريد اعطي امر له بان اذا حصلت هذه العلامه ";"

ابدى بسطر جديد

ليكون الناتج

إقتباس :;FA14070795
;FB07077845
;MD0C

حاولت مع هذا الكود

كود :

       'هنا استقبل اكلام
       Dim receivedData As String = ""
       receivedData = ReceiveSerialData()


       If receivedData.Contains(";") Then
           txtReceived.Text &= receivedData & Environment.NewLine
       End If

بس ما ضبط

كود :

  Function ReceiveSerialData() As String
       Dim Incoming As String
       Try
           Incoming = SerialPort1.ReadExisting()

           If Incoming Is Nothing Then
           Return "nothing" & vbCrLf
       Else
           Return Incoming
       End If
       Catch ex As TimeoutException
       Return "Error: Serial Port read timed out."
       End Try

   End Function

بارك الله فيكم وشكرا لكم