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!
GSM Modem po ang gamit mo sir tingin ko mali syntax mo sa pag read ng message..
This is how to Read Message:
AT+CMGR="all"
AT+CMGR="REC UNREAD"
AT+CMGR="REC READ"
AT+CMGR="STO READ"
AT+CMGR=1
then i think need mo mag palit ng Prefered Message Storage(PMS)
Use this either:
AT+CPMS="SM"
hello po sir Vince.. ty po sa help
sa ngayon po, kkpag read lang po ako ng message using GSM modem kapag nkk receive ako ng message gamit po yung CMGL="ALL".. nag ERROR po ang lumalabas kpag gamit ko ang AT+CMGR. k2lad po ni2
![]()
sa ngayon po.. ang objective ko ay kung paanu ko ma i ta-table ang mga na receive kong messages. into list view with columns..
![]()
any idead pra mo magawa i2?? kht anung search ang gawin ko kay kuya google wla pa ako nkkuha na exact solution to complete this..
Thank you and more power.
ListView1.View = View.Details
ListView1.Columns.Add("INDEX", 50, HorizontalAlignment.Left)
ListView1.Columns.Add("SENDER", 130, HorizontalAlignment.Left)
ListView1.Columns.Add("MESSAGE", 250, HorizontalAlignment.Left)
ListView1.Columns.Add("DATE", 137, HorizontalAlignment.Left)
For i = 0 To limit
With comSerial
.Open()
.Write("AT+CMGR=" & i & vbCrLf)
Ret = .ReadTo("OK")
Ret.Replace(vbCrLf, "")
sms = Ret.Split("-")
smsclean = sms(0).Split("""")
dt = smsclean(5).Split(",")
.Close()
End With
If Ret.Contains("+") Then
ListView1.Items.Add(i)
ListView1.Items(SubItemIndex).SubItems.Add(smsclean(3))
ListView1.Items(SubItemIndex).SubItems.Add(sms(1))
ListView1.Items(SubItemIndex).SubItems.Add(dt(0))
SubItemIndex += 1
End If
do you have knowledge also in c++ Sir, basically reverse Asm? thanks
Panu po ang code sa vb.net na maglolog off ang client compute ?Thanks![]()
Sir vinceky02 , may tanung lng po ako, ndi po ito tunkol sa database ^_^
.. gumagawa kc ako ng application, Wattpad2PDF po, nagcoconvert sia nga mga wattpad books or chapters to pdf files ^_^
may naencounter lng po akong problem sa Webclient class
sa DownloadStringAsync po at sa DownloadFileAsync.
may way po ba kau kung panu madedetect or show ung progress ng download?
i have done that, pero buggy masiado... ^_^
sana matulungan nio ako
mga boss... panu b mag run ng program n may 3rd party s ibang pc?? hnd q ma run ung prog q eh.. encounters a problem and need to close dw.. ung 3rd party q eh krypton toolkit.. sinma q nman ung DLL file nya s release pero wla prin nanyare.. ayaw magrun.. patulong nman mga boss.![]()
hi i would like to say na hindi advisable ang CMGL="all" sa VB.. advisable lang yan sa HYPERTERMINAL..
i will suggest to use CMGR then use this code:
Code:ListView1.View = View.Details ListView1.Columns.Add("INDEX", 50, HorizontalAlignment.Left) ListView1.Columns.Add("SENDER", 130, HorizontalAlignment.Left) ListView1.Columns.Add("MESSAGE", 250, HorizontalAlignment.Left) ListView1.Columns.Add("DATE", 137, HorizontalAlignment.Left) For i = 0 To limit With comSerial .Open() .Write("AT+CMGR=" & i & vbCrLf) Ret = .ReadTo("OK") Ret.Replace(vbCrLf, "") sms = Ret.Split("-") smsclean = sms(0).Split("""") dt = smsclean(5).Split(",") .Close() End With If Ret.Contains("+") Then ListView1.Items.Add(i) ListView1.Items(SubItemIndex).SubItems.Add(smsclean(3)) ListView1.Items(SubItemIndex).SubItems.Add(sms(1)) ListView1.Items(SubItemIndex).SubItems.Add(dt(0)) SubItemIndex += 1 End If
Variable used:
sms(ARRAY STRING)
smsclean(ARRAY STRING)
ret(STRING)
dt(ARRAY STRING)
subitemindex(INTEGER)
OBJECT USED:
LIST VIEW
BUTTON
This is my code that i generate while doing a prototype auto reply application.
Dim sms As String
Dim smsclean As String
Dim ret As String
Dim dt As String
Dim SubItemIndex As Integer
Private Sub frminbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
frmmain.TimerSignal.Enabled = False
ListView1.View = View.Details
ListView1.Columns.Add("Index", 50, HorizontalAlignment.Left)
ListView1.Columns.Add("Sender", 130, HorizontalAlignment.Left)
ListView1.Columns.Add("Message", 250, HorizontalAlignment.Left)
ListView1.Columns.Add("Date", 137, HorizontalAlignment.Left)
For i = 0 To limit [COLOR="Lime"]'variable 'limit' not declared[/COLOR]
With frmCOMPort.SerialPort1
.Write("AT+CMGR=" & i & vbCrLf)
ret = .ReadTo("OK")
ret.Replace(vbCrLf, "")
sms = ret.Split("-") [COLOR="Lime"] 'value of '1-dimensional array string' cannot converted to string [/COLOR]
smsclean = sms(0).Split("""")[COLOR="Lime"] 'Split' is not a member of 'Char'[/COLOR]
dt = smsclean(5).Split(",") [COLOR="Lime"] 'Split' is not a member of 'Char' [/COLOR]
End With
Next i
If ret.Contains("+") Then
ListView1.Items.Add(i) [COLOR="Lime"]'variable 'i' not declared [/COLOR]
ListView1.Items(SubItemIndex).SubItems.Add(smsclean(3))
ListView1.Items(SubItemIndex).SubItems.Add(sms(1))
ListView1.Items(SubItemIndex).SubItems.Add(dt(0))
SubItemIndex += 1
End If
End Sub
Try
Do Until Recepients.Items.Count = 0 And txtsendingnumber.Text = vbNullString
txtsendingnumber.Text = Recepients.Items.Item(0) 'get the 1st number from the listbox
Delay(2)
Try
If frmCOMPort.SerialPort1.IsOpen Then
With frmCOMPort.SerialPort1
.Write("AT" & vbCrLf)
.Write("AT+CMGF=1" & vbCrLf)
.Write("AT+CMGS=" & Chr(34) & txtsendingnumber.Text & Chr(34) & vbCrLf)
.Write(rtbmsg.Text & Chr(26))
End With
Else
MsgBox("Error on the port selected", vbOKOnly + vbExclamation, "Information")
End If
Catch ex As Exception 'catch the error if fails
MsgBox("Error:" & ex.Message, vbOKOnly + vbInformation, "Error")
End Try
Recepients.Items.RemoveAt(0) 'removes the last sended recepient
Delay(2)
Delay(1)
txtsendingnumber.Text = vbNullString
Loop 'loops the sequence
Catch ex As Exception
MsgBox("Error:" & ex.Message, vbOKOnly + vbInformation, "Error")
End Try
.. well, ndi po sia nahahang kc po po DownloadStringAsync at DownloadFileAsync po ung gamit ko.. nag-eexecute na sia from another thread, ndi na sia dun sa UI thread...never tried doing that.. pero i think.. Sa pag dodownload lang naman sa internet ang problem mo right?? You are reading string online.. then use it in your program later..
ang problem mo is nag hahang yung apps mo habang nag dodonwload..? Yan din problem ko sa mga apps ko dati pero hindi ko na sinubukang ayusin..
Eto lang iniisip kong solution.. Download mo ung need mo i download sa ibang fom instead sa main form mo. next na iniisip ko,, use Backgroundworker para yun ang mag dodownload ng need mo i download to avoid or minimize the lag..
explain ko muna kung anung ginagawa ng code ko
yung system na yan is automated Auto Reply for Our University..
ang ginagawa nyan ireread nyahh lahat ng index sa sim if may laman itong message.. ung Sim ko is kayang humawak ng 50 Sms
so:
variable 'limit' not declared
-> yung limit deneclare ko yan na integer then 49 ang value nasa isang module yun naka declare..
then mag loloop na sya
[0] declare i as = 0
[1] Read muna ang index "i"
[2] if may laman basahin ang laman
[3] tapos idisplay
[4] alamin ang request nung nag text
[5] gawin ung request ng nag text
[6] mag add kay "i" ng isa
[7] if walang laman
[8] mag add ng isa si "i"
[9] tapos balik sa [0]
variable 'i' not declared: Kaya mo to na encounter kasi mali yung pinag lagyan mo ng "next i" mo
[QOUTE]
Next i 'Mali to
If ret.Contains("+") Then
ListView1.Items.Add(i) 'variable 'i' not declared
ListView1.Items(SubItemIndex).SubItems.Add(smsclean(3))
ListView1.Items(SubItemIndex).SubItems.Add(sms(1))
ListView1.Items(SubItemIndex).SubItems.Add(dt(0))
SubItemIndex += 1
End If
Next i 'Dito Dapat
[/QOUTE]
'value of '1-dimensional array string' cannot converted to string
'Split' is not a member of 'Char'
'Split' is not a member of 'Char'
[QOUTE]sabi ko po last time.. Declare those mariables in string array..
kung saan mo diniclare ung limit isama mo yung mga variables na yan
example sa isang module dineclare mo silang lahat ganto dapat itsura nun:
public limit as integer
public sms() as string
public smsclean() as string
public ret as string
public dt() as string
public subitemindex as integer
[/QOUTE]
sir Vince sinunod ko na po yung cnabi ninyo sakin peropa rin po.. wla po lumalabas na SMS mula sa "SIM" Memory
sir yung mga declaration of variables, hindi po ba pwede cia i lagay nlang sa isang form kung saan ilalabas yung mga SMS messages since Public Variable naman po siya..
nahi-na rin po ako kung panu po gagawin dito.. hahaha
pero thank you so much po tlga for the effort to my problem.