Thursday, May 6, 2021

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.

Cara Membuat Alarm Dengan Visual Basic .NET

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

Cara Membuat Alarm Dengan Visual Basic .NET

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 di blog ini:
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.

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

No comments:

Post a Comment

Cafe Terbaik di Siantar, Astro Coffeeshop dan AutoCare

Rekomendasi kafe atau tempat cafe untuk bersantai ria bersama kolega serta kerabat kerja harus dibarengan dengan tempat nyaman dan memiliki ...