[عابر سبيل 2]

(30-08-18, 05:13 PM)dubai.eig كتب :

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

(30-08-18, 03:44 PM)dubai.eig كتب :

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

(30-08-18, 02:15 PM)dubai.eig كتب : السلام عليكم ورحمة الله

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





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

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

ليكون الناتج





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

كود :

       'هنا استقبل اكلام
       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



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

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

PHP كود :

Dim arr() As String
arr = Regex.Matches(receivedData, "(?<=\w+)\d+?(?=;)").
      Cast(Of Match).Select(Function(x As Match) x.Value).ToArray 


ستحصل على مصفوفة فيها الأرقام فقط

---

وهذا كامل الكود

PHP كود :

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

Dim arr() As String
arr = Regex.Matches(receivedData, "(?<=\w+)\d+?(?=;)").
      Cast(Of Match).Select(Function(x As Match) x.Value).ToArray

For Each a As String In arr
    MsgBox(a)
Next 


شغلك جميل بارك الله فيك

بس الان لان عندي اكثر من عمليه في نفس الوقت وفي المربع يطلع

;FA14070795
;FB07077845
;MD0C


علشان كذا اريد اوضح  اقول للكود في حالت حصلت اول حرفين

FA

او

FB
او
MD

لكل حرفين اريد اعمل عمليه

ان شاءالله قدرة اوصل الفكرة

وشكرا من جديد

جرب هذا الكود

PHP كود :

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

Dim arr() As String = receivedData.ToString.Split({";"}, StringSplitOptions.RemoveEmptyEntries)
For Each a As String In arr
    Select Case a.Substring(0, 2)

        Case "FA"
            MsgBox("---FA---")

        Case "FB"
            MsgBox("---FB---")

        Case "MD"
            MsgBox("---MD---")

    End Select
Next