[newaudrey]

this is my codes to send message

                With Port

                    .Write("AT" & vbCrLf)
                    .Write("AT+CMGF=1" & vbCrLf) 'Instruct the GSM / GPRS modem to operate in SMS text mode
                    .Write("AT+CMGS=" & Chr(34) & txtnumber.Text & Chr(34) & vbCrLf)
                    .Write(txtmessage.Text & Chr(26))
                End With

i can receive the message but how to know if the at command is successfully executed.

the output of the command AT is "ok" and at+cmgs is ">"

does the ">" simply mean that it executed properly the at+cmgs command?

[tlhIn`toq]

Here's a way to do your own testing...
Send a completely bad command on purpose.
Send the command "Ghostbuster" to the modem. What response do you get?

[newaudrey]

tnx for the reply sir


with this code

Write("AT" & vbCrLf)

i received "ok"

with this code

Write("Ghostbuster" & vbCrLf)

no output

[tlhIn`toq]

Great so you have your answer. If you don't get an affirmative response of "ok" then it failed.

[newaudrey]

tnx sir. can u give me a link how to read message on my sim

i have this command but give me error

Write("AT+CMGL=\"ALL\"" & vbCrLf)
 

[tlhIn`toq]

Sorry. I have no experience with that sort of thing. You're going to have to keep Google-ing for examples and tutorials. You might check with the maker of the modem as they probably have an API for developers.

[newaudrey]

ok thank you sir ill wait if someone knows how to solve my problem. i cant find a solution. im google-ing it for almost 3 days

[newaudrey]

this is my code

when i set to pdu

.Write("AT+CMGF=0" & vbCrLf)

i can receive message by this code
but the output are numbers

.Write("AT+CMGL=4" & vbCrLf)

so i want to set in text mode

.Write("AT+CMGF=1" & vbCrLf)

but the output are ERROR using this code

.Write("AT+CMGL=all" & vbCrLf)

the at command for read sms are at+cmgl="all"
so i wrote this code

.Write("AT+CMGF="all"" & vbCrLf)

but vb.net says

Comma, ')', or a valid expression continuation expected

so please how to solve this

This post has been edited by newaudrey: 15 February 2013 - 06:34 AM

[tlhIn`toq]

Should be merged with
http://www.dreaminco...1&#entry1802498

[quote]1 .Write("AT+CMGF="all"" & vbCrLf)
[/quote]

You can't put quotes inside of quotes.
The first quote before AT would be the open quote
The second quote before all would be the close quote
that means all is not inside quotes at all.

If you have no clue about the language you are coding in you should stop trying to design a program in it and just study a couple "Learn VB.NET in 30 days" type books. You can't just make up syntax as you go along and expect the compiler to know what you want. You have to take the time to learn before you can build.

[newaudrey]

i forgot the qoutes
i solved the receiving of sms by this code. but i cant read the message its all number

i even set GPRS modem to operate in SMS text mode

please help me.

.Write("AT+CMGF="all"" & vbCrLf)

This post has been edited by newaudrey: 16 February 2013 - 07:04 AM

[lar3ry]

The AT+CMGF= command takes a 0 or a 1.

As well, as has been pointed out to you, you cannot use quotes inside quotes.

Have a look at the GSM AT Command Set to see what you can use to control your modem.

As for your AT+CGML command, you need to send AT+CGMK="ALL", but you can't send it as you did. Use:

.Write("AT+CGML=""ALL""" & vbCrLf)

Whenever you need to put a quotation mark inside a String, use two quotaion marks. In the example above, ""ALL"" gives you "ALL" in the string. So the output from the Write is AT+CGML="ALL"

Here's another link for you. it's a GSM tutorial.

[newaudrey]

ive got it working using this codes.

'Instruct the GSM / GPRS modem to operate in SMS text mode

.write ("AT+CMGF=1" & vbcrlf)

'read SMS text messages from SIM

.write ("AT+CPMS=""SM""" & vbcrlf)

'read all message

qw = AT(Port, "AT+CMGL=""all""" & vbCrLf) 'read
TextBox1.Text = qw

but how to list all the message in the listbox or listview. it shows all the message in my listview by just one line

i want every message to go to the next line. how to do it?

This post has been edited by newaudrey: 17 February 2013 - 03:25 AM

[lar3ry]

newaudrey, on 16 February 2013 - 11:40 PM, said:

i want every message to go to the next line. how to do it?

That depends on how you are storing your messages, how they are delimited, and so on. Without seeing your code that gets the messages, it's hard to figure out what you should do.

Basically, split the messages into individual messages, then add them one at a time to the ListBox or ListView.

[newaudrey]

This post has been edited by newaudrey: 17 February 2013 - 03:27 AM