ITSourceCode.com

We Exist to Provide 100% Free Source Code and Tutorials

Custom Search

Simple alarm Clock using Visual Basic.Net

In this tutorial, we’re going to create a simple alarm clock. This alarm clock can be used to wake a person in at a specific time. To start with this application, open visual basic and create a new project and name it as “Alarm Clock”. The application when finished, it looks like as shown below.

simple clock

Next, add five labels, and name the label1 as “lblcurtime” and label2 as “lblstatus” then,set the text property of the other label as “Current Time”, “Alarm Time” and “Message”. Add a Datetimpicker, then set it into “Time” format. Then add a textbox and a Button, after this rename the textbox1 as “txtmsg” and the button1 as “btnsetalarm”. And lastly add two timer.

This time, we will add functionality to our application. First double click the “timer1” and add the following code:

This code will simply check if the current settings of DateTimePicker1 match the Time of the day and the time is based on your local machine. So if match, it performs the following statements.

  1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  2.  
  3. If TimeOfDay = DateTimePicker1.Text Then
  4.  
  5. 'This will instantinize a new "voice" for this app to speak through
  6.  
  7. Dim voice = CreateObject("SAPI.spvoice")
  8.  
  9. 'what the content of txtmsg will be passed to  voice.speak
  10.  
  11.  
  12.  
  13. voice.speak(TextBox1.Text)
  14.  
  15. lblstatus.Text = "Status:Alarm is not set!"
  16.  
  17. End If
  18.  
  19.  
  20.  
  21. End Sub

Then, double click the “timer2” and add the following code:

This will display the current time based on the local machine.

  1. lblcurtime.Text = TimeOfDay

Next on the “form1_load” add the following code:

  1. Timer2.Enabled = True

And finally on the “btnsetalarm” button add the following code:

It enables the timer1 and set the alarm clock.

  1. Timer1.Enabled = True
  2.  
  3. lblstatus.Text = "Status:Alarm is set!"

This time you can now try testing your program by pressing “F5”.

Facebook Comments

Check Your Domain Ranking

Leave a Reply

Your email address will not be published. Required fields are marked *

ITSourceCode.com © 2016 Frontier Theme

Subscribe For Latest Updates

Signup for our newsletter and get notified when we publish new articles for free!