Cara Membuat Program Aplikasi Alarm | VB.Net Visual Studio 2010

Kali ini saya akan berbagi cara bagaimana cara membuat aplikasi alarm. Aplikasi alarm Ini adalah salah satu aplikasi dasar yang dapat dicoba oleh para pemula yang masih belajar untuk membuat program aplkasi. Berikut langkah-langkahnya.

Langkah – langkah membuat program aplikasi alarm :

1.       Buka project baru,

2.       Objek-objek yang kita butuhkan diantaranya

·         4 Label

·         2 Textbox

·         2 Button

·         2 Timer

·         1 Openfile dialog

·         1 Windows Media Player

Biasanya untuk Windows Media Player tidak terdaftar secara default di dalam toolbox,oleh karena itu, kita harus memunculkannya terlebih dahulu yaitu dengan cara :

·         Klik kanan di dalam toolbox, pilih choose item

·         Pilih tab COM Components, lalu scroll ke bawah cari Windows Media Player kemudian ceklis, klik OK.

·         Objek Windows Media Player telah ditambahkan di dalam toolbox ‘All Windows Form’

3.       Susun objek-objek tersebut seperti gambar berikut:

4.       Kemudian ubah text dari masing – masing label dan button:

-          Label1 menjadi Alarm

-          Label2 menjadi Waktu Sekarang

-          Label3 menjadi Waktu Berdering

-          Label4 menjadi Bunyi Alarm

-          Button1 menjadi Atur

-          Button2 menjadi Browse

5.       Terakhir, double click pada form, lalu hapus semua tulisan kemudian salin semua kode di bawah ini :

Imports System.IO

Public Class Form1

    Dim s As Integer

    Dim d As Path

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

        Timer2.Enabled = True

        DateTimePicker1.Format = DateTimePickerFormat.Time

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Label2.Text = DateTime.Now.ToLongTimeString

    End Sub

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

        Try

            If TimeOfDay = DateTimePicker1.Text Then

                If s = 1 Then

                    AxWindowsMediaPlayer1.URL = TextBox1.Text.ToString

                Else

                    MsgBox(DateTimePicker1.Value)

                End If

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

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

        Timer1.Enabled = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If OpenFileDialog1.ShowDialog = DialogResult.OK Then

            TextBox1.Text = ""

            TextBox1.Text = OpenFileDialog1.FileName

            s = 1

        End If

    End Sub

End Class

6.       Selesai, sekarang tinggal tekan F5 untuk menjalankan programnya. Begini tampilan programnya :

Kalau bingung langsung download aja source codenya di link berikut:

download aplikasi alarm vb

Jangan lupa passwordnya :

Sekian. Selamat mencoba ..!!