Cara membuat Aplikasi Alarm Pesan dengan Visual Basic 6.0

Assalamualaikum Wr.Wb.

Postingan ane kali ini, saya akan berbagi bagaimana cara membuat Alarm Pesan menggunakan Visual Basic 6.0. Aplikasi alarm ini dilengkapi dengan informasi pesan berupa teks yang dapat ditampilkan pada jam tertentu. jadi, dengan adanya aplikasi ini, sedikit banyaknya akan membantu anda dikala anda sedang lupa, ya, mungkin dikarenakan kesibukan anda atau hal-hal lainnya.

Berikut langkah pembuatannya :

       1.     Bukalah aplikasi visual basic 6.0 yang sudah terinstal pada PC anda.

       2.     Akan muncul kotak dialog New Project. Pilihlah Standart EXE lalu open.

kotak dialog New Project

        3.     Kemudian tambahkan beberapa objek ke dalam form. Yaitu :

\

a.      Dua (2) Objek Textbox,

b.     CommandButton,

c.      Dua (2) Objek Label,

d.     dan Timer.

Desain form aplikasi Alarm Pesan

          4.     Atur setiap properti form diatas seperti tabel berikut :

Komponen	Properti	Nilai
Form	Name	FmPesan
	Caption	Alarm Pesan
Textbox	Name	TxtPesan
Textbox	Name	TxtWaktu
Label	Name	Label1
	Caption	Pesan
Label	Name	Label2
	Caption	Waktu
Timer	Name	Timer1
	Interval	50
CommandButton	Name	TbStart
	Caption	Start

          5.     Lalu masuk kedalam halaman kode dan ketikkan kode program berikut secara lengkap.

Option Explicit

Private Pesan As String

Private Waktu As Date

Public MaxTime As Long

Public StartTime As Date

Public CurrentTime As Long

Private Sub Form_Load()

    TxtWaktu.Text = Format(Time, "hh:mm")

End Sub

Private Sub TbStart_Click()

    If TxtPesan.Text = "" Then

        MsgBox "Tulis Pesan Alarm Anda", _

        vbCritical, "Info"

        TxtPesan.SetFocus

    ElseIf TxtWaktu.Text = "" Then

        MsgBox "Isi Waktu pesan", vbCritical, "Info"

        TxtWaktu.SetFocus

    Else

        Pesan = TxtPesan.Text

        Waktu = TxtWaktu.Text

       

        TxtPesan.Enabled = False

        TxtWaktu.Enabled = False

        Timer1.Enabled = True

    End If

End Sub

Private Sub Timer1_Timer()

    StartTime = Format(Time, "hh:mm")

    If StartTime = Waktu Then

        MsgBox "" & Pesan, vbInformation, "Perhatian"

        Timer1.Enabled = False

    End If

End Sub

         6.  Setelah selesai , jalankan program dengan menekan tombol F5

           Pesan -> Silahkan isi Pesan yang akan ditampilkan di kolom Pesan.

           Waktu -> atur waktu sesuai dengan waktu alarm pesan akan dimunculkan.

hasil program Aplikasi Alarm Pesan

 May it usefull . . . :)