Cara Membuat Alarm Dengan Visual Basic .NET

Tutorial Gratis Cara Membuat Alarm Dengan Visual Basic .NET. Kembali pada tutorial Visual Basic ..NET kali ini saya akan memandu anda dalam membuat Aplikasi Alarm Dengan Visual Basic .NET. Fungsi nantinya juga bisa anda kembangkan untuk membuat Aplikasi Antrian di Bank atau Alarm Bel Sekolah, Aplikasi Alert dan lain sebagainya.

Sebelum anda mengikuti turorial kali ini, pastikan anda sudah menginstall Aplikasi Visual Basic, kemudian anda mempunyai file Musik. Jika sudah, mari kita lanjutkan cara membuat Alarm dengan VB .NET.

Silahkan anda nyalakan Komputer atau Laptop anda
Silahkan buka Aplikasi Visual Basic .NET
Buatlah design Form1 seperti gambar dibawah ini :

Gambar diatas terdapat :
Label1, Label2, Label3, DateTimePicker1, Button1, Button2, Button3, TextBox1
Windows Media Player, Timer1, Timer2 dan OpenFileDialog1

Untuk memunculkan Windows Media Player pada ToolBox VB .NET anda bisa lihat Tutorial dibawah :

Cara Menambahkan Windows Media Player Pada Toolbox VB .NET

Jika anda sudah bisa membuat Form1 seperti gambar diatas, silahkan masukan koding dibawah ini :

Imports System.IO
Public Class Form1
    Dim s As Integer = 0
    Dim d As Path

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DateTimePicker1.Format = DateTimePickerFormat.Time
        Timer2.Enabled = True
        TextBox1.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Silakan Pilih Musik Alarm Dahulu!")
        Else
            Timer1.Enabled = True
            DateTimePicker1.CalendarForeColor = Color.Blue
        End If
    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
    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 Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label2.Text = DateTime.Now.ToLongTimeString
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
End Class

Kemudian silahkan Run atau Jalankan Project anda, atau anda bisa tekan F5 pada Keyboard komputer anda. Untuk menjalankan aplikasinya :
Silahkan Pilih Waktu Alarm, Pilih Musik, Tekan Tombol Set Waktu Alarm.
Dan Tunggu Sampai Waktu alarm datang. dan Jangan Kaget jika musik yang anda pilih langsung berbunyi pada Aplikasi VB .NET anda.

Demikian Cara Mudah Membuat Alarm Dengan Visual Basic .NET, semoga bermanfaat.
Silahkan KLIK DISINI untuk download Project Alarm diatas.

Tweet