Chat LIVE With Programming Experts! There Are 23 Online Right Now...

Welcome to Dream.In.Code
Become a VB.NET Expert!

Join 244,299 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 849 people online right now. Registration is fast and FREE... Join Now!




SMS APPLICATION

 
Reply to this topicStart new topic

SMS APPLICATION

InNeedOfHelp
6 Jan, 2009 - 08:09 PM
Post #1

New D.I.C Head
*

Joined: 6 Jan, 2009
Posts: 3

Im currently doing a project about SMS application. Now i would like to add a function that can help me multi send phone number. Just like our normal handphone that kind of function. What type of codings should i put in?

Thanks..


User is offlineProfile CardPM
+Quote Post


PsychoCoder
RE: SMS APPLICATION
6 Jan, 2009 - 08:14 PM
Post #2

loves.Coding(this);
Group Icon

Joined: 26 Jul, 2007
Posts: 12,283



Thanked: 372 times
Dream Kudos: 10775
Expert In: VB, VB.Net, C#, SQL, ASP, ASP.Net, Web Development, HTML, CSS, Win32 API, Javascript, mySQL, J#, Boo.Net, jQuery

My Contributions
Dream.In.Code has a policy by which we prefer to see a good faith effort on your part before providing source code for homework assignments. Please post the code you have written in an effort to resolve the problem, and our members would be happy to provide some guidance. Be sure to include a description of any errors you are encountering as well.

Please post like this:

Thank you for helping us helping you.
User is offlineProfile CardPM
+Quote Post

InNeedOfHelp
RE: SMS APPLICATION
7 Jan, 2009 - 12:10 AM
Post #3

New D.I.C Head
*

Joined: 6 Jan, 2009
Posts: 3

QUOTE(PsychoCoder @ 6 Jan, 2009 - 08:14 PM) *

Dream.In.Code has a policy by which we prefer to see a good faith effort on your part before providing source code for homework assignments. Please post the code you have written in an effort to resolve the problem, and our members would be happy to provide some guidance. Be sure to include a description of any errors you are encountering as well.

Please post like this:

Thank you for helping us helping you.


CODE

Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click

If SerialPort1.IsOpen Then
SerialPort1.Close()
End If

SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 115200
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.DataBits = 8
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.RtsEnable =True

SerialPort1.Open()

//Textbox3 is for me to key in phone number.
SerialPort1.WriteLine("AT+CMGS=" + TextBox3.Text + vbCr)
TextBox1.Text = vbNewLine & ".... SMS sending in progress ...."
Textbox1.Refresh()
System.Threading.Thread.Sleep(750)
SerialPort1.WriteLine(TextBox4.Text)
System.Threading.Thread.Sleep(500)
SerialPort1.WriteLine(Chr(26))
System.Threading.Thread.Sleep(5500)

TextBox1.Text = ""
Textbox1.Text = SerialPort1.ReadExisting

If InStr(TextBox1.Text, "OK") <> 0 Then
TextBox1.Text = "SMS message successfully sent!"
MessageBox.Show("SMS message successfully sent!'")
Else
MessageBox.Show("Try again")
End If

SerialPort1.Close()

End Sub



Im using a device called iTeGno for this SMS APPLICATION PROJECT.
User is offlineProfile CardPM
+Quote Post

InNeedOfHelp
RE: SMS APPLICATION
7 Jan, 2009 - 12:15 AM
Post #4

New D.I.C Head
*

Joined: 6 Jan, 2009
Posts: 3

QUOTE(InNeedOfHelp @ 7 Jan, 2009 - 12:10 AM) *

QUOTE(PsychoCoder @ 6 Jan, 2009 - 08:14 PM) *

Dream.In.Code has a policy by which we prefer to see a good faith effort on your part before providing source code for homework assignments. Please post the code you have written in an effort to resolve the problem, and our members would be happy to provide some guidance. Be sure to include a description of any errors you are encountering as well.

Please post like this:

Thank you for helping us helping you.


Attached File  SENDSMS.zip ( 41.49k ) Number of downloads: 126


CODE
-------
CODE

Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click

If SerialPort1.IsOpen Then
SerialPort1.Close()
End If

SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 115200
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.DataBits = 8
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.RtsEnable =True

SerialPort1.Open()

//Textbox3 is for me to key in phone number.
SerialPort1.WriteLine("AT+CMGS=" + TextBox3.Text + vbCr)
TextBox1.Text = vbNewLine & ".... SMS sending in progress ...."
Textbox1.Refresh()
System.Threading.Thread.Sleep(750)
SerialPort1.WriteLine(TextBox4.Text)
System.Threading.Thread.Sleep(500)
SerialPort1.WriteLine(Chr(26))
System.Threading.Thread.Sleep(5500)

TextBox1.Text = ""
Textbox1.Text = SerialPort1.ReadExisting

If InStr(TextBox1.Text, "OK") <> 0 Then
TextBox1.Text = "SMS message successfully sent!"
MessageBox.Show("SMS message successfully sent!'")
Else
MessageBox.Show("Try again")
End If

SerialPort1.Close()

End Sub



Im using a device called iTeGno for this SMS APPLICATION PROJECT.

User is offlineProfile CardPM
+Quote Post

sam_benne
RE: SMS APPLICATION
7 Jan, 2009 - 09:13 AM
Post #5

D.I.C Addict
Group Icon

Joined: 16 Jan, 2008
Posts: 512



Thanked: 4 times
Dream Kudos: 400
My Contributions
If you know how to send an email you can send an email to a persons phone so say if it was Vodafone(UK) you were sending it to then it would be
##########@vodafone.net then your subject then message. Thats is how it is done in other languages.
User is offlineProfile CardPM
+Quote Post

PsychoCoder
RE: SMS APPLICATION
7 Jan, 2009 - 09:16 AM
Post #6

loves.Coding(this);
Group Icon

Joined: 26 Jul, 2007
Posts: 12,283



Thanked: 372 times
Dream Kudos: 10775
Expert In: VB, VB.Net, C#, SQL, ASP, ASP.Net, Web Development, HTML, CSS, Win32 API, Javascript, mySQL, J#, Boo.Net, jQuery

My Contributions
Moved to VB.NET forum smile.gif
User is offlineProfile CardPM
+Quote Post

Fast ReplyReply to this topicStart new topic

Time is now: 7/4/09 05:08PM

Live VB.NET Help!

Be Social

Dream.In.Code RSS Feed Dream.In.Code LinkedIn Group Follow Us On Twitter Fan Us On Facebook

VB.NET Tutorials

Reference Sheets

VB.NET Snippets

DIC Chatroom

Bye Bye Ads

Monthly Drawing

Thumb Drive

Top Contributors

Top 10 Kudos This Month