Visual Basic 2008 Talking Alarmclock

Make your alarm clock talk. This is just a simple alarm clock program in Visual Basic 2008 that will read the message that you type into the settings tab. Here is the code.

Clock Form


Public Class Form1 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Label1.Text = TimeOfDay + " " End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If TimeOfDay = Label2.Text Then Dim SAPI SAPI = CreateObject("sapi.spvoice") SAPI.Speak(TextBox2.Text) End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label4.Text = DateString End Sub Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click settings.Show() End Sub
End Class



Settings Form




Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form1.ControlBox = True End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Form1.ControlBox = False End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Close() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Form1.Timer1.Stop() Form1.Label2.Hide() End Sub Private Sub settings_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub
End Class

Category:

Howto & Style

Tags:

• clock
• alarm
• alarmclock
• text to speach
• Visual Basic 2008
• Visual
• Basic