[riad21]

عيد ك مبارك يا الوادي و كل عام وانت بخير
بالنسبة للكود الاخير يا الوادي لم يصلح
فمتلا فى Device model يعطي القيمة نفسها AT+CGMM
و هكدا مع باقى القيم الاخرى المشابهة و مهما يكن فلك كل الشكر يا الوادي مع تعديلات اخرى للكود

[الوادي]

يا رياض،

ممكن تحفظ القراءات كما هي في ملف نصي.

لان المشكلة ما اعرف طريقة البيانات من ناحية الترميز، مدري كيف اشرحها.

[riad21]

تفضل اخي الوادي النتائج بالصور 

قبل اضافة الكود

بعد اضافة الكود

[الوادي]

يا رياض،


ممكن تنفذ هذا الكود بزر وبعد نجاح التنفيذ ستجد ملف نصي باسم response.txt في مجلد debug ارسله لي

ملاحظة هامة لا تتصرف (يعني لا تحاول تعدل) بمحتويات الملف حتى اتأكد من الترميز الخاص بالبيانات المقروءة، يعني ارسله كما هو مباشرة

PHP كود :

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If SerialPort1.IsOpen Then
            SerialPort1.Close()
        End If
        Try
            With SerialPort1
                .PortName = cbCOMPort.Text
                .BaudRate = 115200
                .ReadBufferSize = 500
                .Parity = IO.Ports.Parity.None
                .DataBits = 8
                .StopBits = IO.Ports.StopBits.One
                .Handshake = IO.Ports.Handshake.None
            End With
            SerialPort1.Open()
            btnConnect.Text = "DISCONNECT"
            cbCOMPort.Enabled = False
            With lblStatus
                .Text = "Connected"
                .ForeColor = Color.Green
            End With

            '---------------------------------------------------'

            Dim resFilename As String = "response.txt"
            Dim response As String = ""

            '---------------------------------------------------'
            ' Read response data '
            '---------------------------------------------------'
            ' Device model -----------------'
            ' Command: AT+CGMM
            '
            SerialPort1.Write("AT+CGMM" & vbCr)
            System.Threading.Thread.Sleep(1000)
            response &= "Device model: [AT+CGMM] --------------------------" & vbNewLine &
                        SerialPort1.ReadExisting & vbNewLine

            ' Manufacturer -----------------'
            ' Command: AT+CGMI
            '
            SerialPort1.Write("AT+CGMI" & vbCr)
            System.Threading.Thread.Sleep(1000)
            response &= "Manufacturer: [AT+CGMI] --------------------------" & vbNewLine &
                       SerialPort1.ReadExisting & vbNewLine

            ' EMEI -------------------------'
            ' Command: AT+CGSN
            '
            SerialPort1.Write("AT+CGSN" & vbCr)
            System.Threading.Thread.Sleep(1000)
            response &= "EMEI: [AT+CGSN] --------------------------" & vbNewLine &
                        SerialPort1.ReadExisting & vbNewLine

            ' Network ----------------------'
            ' Command: AT+COPS?
            '
            SerialPort1.Write("AT+COPS?" & vbCr)
            System.Threading.Thread.Sleep(1000)
            response &= "Network: [AT+COPS?] --------------------------" & vbNewLine &
                        SerialPort1.ReadExisting & vbNewLine

            ' BATERY LEVEL -----------------'
            ' Command: AT+CBC
            '
            SerialPort1.Write("AT+CBC" & vbCr)
            System.Threading.Thread.Sleep(1000)
            response &= "BATERY LEVEL: [AT+CBC] --------------------------" & vbNewLine &
                        SerialPort1.ReadExisting & vbNewLine
            '---------------------------------------------------'

            response &= "============================="

            IO.File.WriteAllText(resFilename, response)

            MsgBox("تم حفظ النتائج في الملف")

            Process.Start(Application.StartupPath)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub 


[riad21]

تفضل الملف النصي

[الوادي]

يا رياض،

جرب الان

PHP كود :

'---------------------------------------------------'
' Read response data '
'---------------------------------------------------'
' Device model -----------------'
' Command: AT+CGMM
'
SerialPort1.Write("AT+CGMM" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox1.Text = Split(SerialPort1ReadExisting, vbNewLine)(1)

' Manufacturer -----------------'
' Command: AT+CGMI
'
SerialPort1.Write("AT+CGMI" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox2.Text = Split(SerialPort1ReadExisting, vbNewLine)(1)

' EMEI -------------------------'
' Command: AT+CGSN
'
SerialPort1.Write("AT+CGSN" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox3.Text = Split(SerialPort1ReadExisting, vbNewLine)(1)

' Network ----------------------'
' Command: AT+COPS?
'
SerialPort1.Write("AT+COPS?" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox4.Text = System.Text.RegularExpressions.Regex.Match(SerialPort1.ReadExisting, "(?<="").+?(?="")").Value.Trim

' BATERY LEVEL -----------------'
' Command: AT+CBC
'
SerialPort1.Write("AT+CBC" & vbCr)
System.Threading.Thread.Sleep(1000)
TextBox5.Text = System.Text.RegularExpressions.Regex.Match(SerialPort1.ReadExisting, "(?<=\:).+").Value.Trim
'---------------------------------------------------' 


[riad21]

بارك الله فيك اخي الوادي عمل اكثر من رائع
كل شيئ تمام