[dubai.eig]

(30-08-18, 03:03 PM)عابر سبيل 2 كتب :

(30-08-18, 02:15 PM)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

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

جرب هذه الطريقة 

PHP كود :

receivedData = ReceiveSerialData().replace(";",(";" & vbnewline)) 


جميل جدا بارك الله فيك

الحمدالله ضبط

بس باقي شي واحد 

الان يطلع كذا

إقتباس :;FA14077030
;FB07077845

الان اريد اقول اذا حصلت في المربع بداية الجمله تبدا في FA  خذ الثمان ارقام البعده
ونفس الشي في FB


الكود الي عندي هذا

كود :

  If txtReceived.Text.Substring(0, 2) = "FA" Then


           MsgBox(FRQ)

       ElseIf txtReceived.Text.Substring(0, 2) = "FB" Then
 
           MsgBox(FRQ)
 End If

غير شغال




جربت هذا الكود

كود :

If txtReceived.Text.Contains("FA") Then

MsgBox(FRQ)
         

       ElseIf txtReceived.Text.Contains("FB") Then
           MsgBox(FRQ)
 End If

اشتغل على If txtReceived.Text.Contains("FA") Then فقط وما قراء الثاني
FB



وبارك الله فيك وشكرا على وقتك ومجهودك