Aplikasi Alarm Musik Menggunakan VB Net

kali ini saya akan share bagaimana cara membuat Aplikasi Alarm menggunakan VB net 2008.

design form aplikasi Alarm Musik seperti dibawah ini.

dan codinganya seperti dibawah ini

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        lbwakeup.Text = "Waktu Sekarang"

        btchange.Visible = False

        btwakeup.Visible = True

    End Sub

    Private Sub btwakeup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btwakeup.Click

        mtTime.Enabled = False

        btchange.Visible = True

        btwakeup.Visible = False

        txname.Enabled = False

    End Sub

    Private Sub btchange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btchange.Click

        mtTime.Enabled = True

        btchange.Visible = False

        btwakeup.Visible = True

        txname.Enabled = True

    End Sub

    Private Sub btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click

        MsgBox("anda ingin keluar")

        Me.Close()

    End Sub

    Private Sub txname_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txname.Click

        OpenFileDialog1.ShowDialog()

        txname.Text = OpenFileDialog1.FileName

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim hr As String = TimeOfDay.Hour

        If hr.length = 1 Then

            hr = "0" + hr

        End If

        Dim mn As String = TimeOfDay.Minute

        If mn.length = 1 Then

            mn = "0" + mn

        End If

        Dim sc As String = TimeOfDay.Second

        If sc.length = 1 Then

            sc = "0" + sc

        End If

        lbwakeup.Text = hr + ":" + mn + ":" + sc

        If lbwakeup.Text = mtTime.Text Then

            AxWindowsMediaPlayer1.URL = txname.Text

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Process.Start("http://www.dum17.blogspot.com")

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

        Process.Start("http://www.dum17.blogspot.com")

    End Sub

End Class

jika anda kurang paham, anda bisa lihat video dibawah. video dibawah ini menjelaskan bagaimana cara membuat Aplikasi Alarm musik ini. monggo ditonton.

mungkin sekian cara membuat aplikasi Alarm musik menggunakan vb net 

jika anda ingin mendownload aplikasi alarm musik ini silahkan klik link download aplikasi

jika anda ingin mendownload source code aplikasi alarm musik ini silahkan klik link download source code 

saya teguh dumadi semoga bermanfaat