VB.NET School Assignment? Project Due Tomorrow? Chat LIVE With A Programming Expert!

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

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




SMS APPLICATION

 

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

Dyslexics Untie!
Group Icon

Joined: 26 Jul, 2007
Posts: 14,714



Thanked: 501 times
Dream Kudos: 11450
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: 153


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: 635



Thanked: 8 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

Dyslexics Untie!
Group Icon

Joined: 26 Jul, 2007
Posts: 14,714



Thanked: 501 times
Dream Kudos: 11450
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: 11/8/09 05:06AM

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