Alarm Clock with Sound Message in VB.NET
Submitted by donbermoy on Tuesday, April 15, 2014 - 11:10.
In this tutorial, we will make a program that has an alarm clock function with sound message using vb.net.
Now, let's start this tutorial!
1. Let's start with creating a Windows Form Application for this tutorial by following the following steps in Microsoft Visual Studio: Go to File, click New Project, and choose Windows Application.
2. Next, add two Timers named Timer2 for displaying the current time and Timer1 for displaying the time to be alarmed. Insert DateTimePicker named DateTimePicker1 to be used as getting the alarmed time, one TextBox named TextBox1 for inputting a message for the alarm, two Labels named Label1 for displaying if the alarm clock is set and lblCurtime for displaying the current time in this label, and one Button named Button1 for the setup of the time to be alarmed. You must design your interface like this:
3. In Timer2_Tick control, put this code below.
The label named lblCurtime in Timer2 displays the current time of the day. This TimeOfDay property gets the time of day for this instance and will display to this label.
4. In Timer1_Tick control, put this code below.
If the current time is equal to the alarmed time in DateTimePicker.
5. In our Form1_Load, put this code below.
This will display the current time when loading the form.
6. In our Button1_Click for the setup of the alarm, put this code below.
Timer1 is enabled because we have set the time of the alarmed time to be equal to the current time and will display to the user that time is now set!
Output:
Download the source code below and try it! :)
For more inquiries just contact my number or e-mail below.
Best Regards,
Engr. Lyndon R. Bermoy
IT Instructor/System Developer/Android Developer
Mobile: 09488225971
Telephone: 826-9296
E-mail:[email protected]
Follow and add me in my Facebook Account: https://www.facebook.com/donzzsky
Visit my page on Facebook at: https://www.facebook.com/BermzISware
3. In Timer2_Tick control, put this code below.
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- lblCurtime.Text = TimeOfDay
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TimeOfDay = DateTimePicker1.Text Then
This will instantinize a new "voice" for this to speak through
Dim voice = CreateObject("SAPI.spvoice")
What the content of message in textbox1 will be passed to voice.speak
voice.speak(TextBox1.Text)
After being alarmed the status will be going back to not set.
- lblStatus.Text = "Alarm is not set!"
- End If
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Timer2.Enabled = True
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetAlarm.Click
- Timer1.Enabled = True
- lblStatus.Text = "Alarm is set!"
- End Sub
Download the source code below and try it! :)
For more inquiries just contact my number or e-mail below.
Best Regards,
Engr. Lyndon R. Bermoy
IT Instructor/System Developer/Android Developer
Mobile: 09488225971
Telephone: 826-9296
E-mail:[email protected]
Follow and add me in my Facebook Account: https://www.facebook.com/donzzsky
Visit my page on Facebook at: https://www.facebook.com/BermzISware
Add new comment
- 1448 views