Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.
All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!
Mga MASTERS
^RSSI:14
^BOOT:20373527,0,0,0,89
AT
OK
AT+CMGF=1
OK
AT+CMGR="PCCP437"
ERROR
AT+CPMS="ME"
+CPMS: 0,23,22,35,22,35
OK
AT+CMGL="REC UNREAD"
OK
problem occured sa AT+CMGR eh for read message nmn ung CMGR eh bakit kea ganun? di ma read ung message??
and panu ko po kea magagawang ganayan??? ung lalabas lang sa listview ung mga text message then ma babasa ko ng maaus sa text box??
Code:Public Function ParseMessages(ByVal Input As String) As ShortMessageCollection Dim Messages As New ShortMessageCollection() Try Dim r As New Regex("\+CMGL: (\d+),""(.+)"",""(.+)"",(.*),""(.+)""\r\n(.+)\r\n") Dim m As Match = r.Match(Input) While m.Success Dim msg As New ShortMessage() 'msg.Index = int.Parse(m.Groups[1].Value); msg.Index = m.Groups(1).Value msg.Status = m.Groups(2).Value msg.Sender = m.Groups(3).Value msg.Alphabet = m.Groups(4).Value msg.Sent = m.Groups(5).Value msg.Message = m.Groups(6).Value Messages.Add(msg) m = m.NextMatch() End While Catch ex As Exception MessageBox.Show(ex.Message) End Try Return Messages End Function Public Function ReadSMS(ByVal Port As SerialPort, ByVal Command As String) Dim Messages As ShortMessageCollection = Nothing Dim ReceivedData As String = "" ExecCommand(Port, "AT" & vbCr, "Unable to connect.") System.Threading.Thread.Sleep(200) ExecCommand(Port, "AT+CMGF=1" & vbCr, "Failed to set message format.") System.Threading.Thread.Sleep(200) ExecCommand(Port, "AT+CMGR=" & Chr(34) & "PCCP437" & Chr(34), "Failed to set character set.") System.Threading.Thread.Sleep(200) ExecCommand(Port, "AT+CPMS=" & Chr(34) & "ME" & Chr(34), "Failed to select message storage.") System.Threading.Thread.Sleep(200) ReceivedData = ExecCommand(Port, "AT+CMGL=" & Chr(34) & "REC UNREAD" & Chr(34), "Failed to read all message.") System.Threading.Thread.Sleep(200) Messages = ParseMessages(ReceivedData) If Not Messages Is Nothing Then Return Messages Else Return Nothing End If End Function
yan po ung code na ginagamit ko... di nga lang po na didisplay sa listview ^_^
mga tropa! may napansin kasi ako sa VB.NET parang kada gagamit ka ng table kailangan pa iopen ulit ung Connection? kasi sa VB6.0 ioopen ko muna ung Connection tapos declare n lng ako ng declare ng recordset para gumamit ng table.... ngaun gusto ko pong malaman kung paano ko maiiwasan ung pag open ng connection ng paulit ulit sa VB.NET???
guys up ko lang po ulit..
hnd ko pa po kc na ssolve kung panu po cia gawin tlga.. hnd pa rin ako mka receive ng SMS using vs 2010.
pa request po ng source code kung meron po kayo guys... thank you po...
mga tropa! may napansin kasi ako sa VB.NET parang kada gagamit ka ng table kailangan pa iopen ulit ung Connection? kasi sa VB6.0 ioopen ko muna ung Connection tapos declare n lng ako ng declare ng recordset para gumamit ng table.... ngaun gusto ko pong malaman kung paano ko maiiwasan ung pag open ng connection ng paulit ulit sa VB.NET???
panu ivalidate ung datetime? ex ung isang user 1 beses lng mag register sa isang date
Ex. Si a ng register ng jan 1 tpos mvvalidate n register n sa ng jan 1 at hnd n pde
Sir vince vb.net po ivavalidte sa mysql n nlpag register n siya mung date n un pde b sa vb.net n code o sa database n mismo
opo sir vince