Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/10/2014, 08:34
emilio_alac05
 
Fecha de Ingreso: septiembre-2012
Mensajes: 75
Antigüedad: 9 años
Puntos: 2
Evento DataReceived vb.net

la idea es si se recibe un sms +CMTI en el evento datareceived entonces

se liste el sms recibido y se divida en partes, ya intente hacerlo pero no me esta quedando, cual creen que sea mi error , ayuda porfa lo necesito, saludos.

este es mi codigo
Código:
Private Sub SerialPort1_DataReceived(sender As Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        Dim buffer As String
        Dim partir As String()
 	buffer = SerialPort1.ReadExisting
        EventsReceived.Text = ("Recivido:" & buffer & vbCrLf)

If InStr(EventsReceived.Text, "+CMTI") Then
            
            SerialPort1.WriteLine("AT+CMGF=1" & Chr(13))
            SerialPort1.Write("AT+CMGL=" & Chr(34) & "ALL" & Chr(34) & Chr(13))
            partir = EventsReceived.Text.Split(",")

            For i = LBound(partir) To UBound(partir)
        
                 MsgBox(partir(i))

            Next
        End If
 End Sub