Membuat alarm dengan excel macro - Penunjuk waktu yang paling umum digunakan oleh manusia adalah jam, dengan jam kita bisa mengetahui kapan waktu tidur kapan waktu bangun, berangkat sekolah atau berangkat kerja. Zaman sudah mulai bergeser jam tidak hanya berfungsi sebagai petunjuk waktu akan tetapi juga bisa digunakan sebagai alat peringatan atau yang biasa disebut dengan nama Alarm.

Alarm merupakan alat sebagai bentuk bunyi pemberitahuan dan bisa juga dibuat sebagai bunyi peringatan, disebut pemberitahuan bila digunakan untuk mengatur tanda pengingat misalkan pengingat waktu bangun tidur atau waktu jam makan siang atau waktu pulang sekolah, bisa disebut sebagai istilah peringatan jika digunakan untuk menandai bahaya misalkan bahaya terjadinya kebakaran, atau peringatan peningkatan suhu pada mesin dan lain lain.

Untuk kesempatan kali ini admin akan membagikan tips membuat alarm pemberitahuan dengan aplikasi microsoft exel macro, alarm ini bisa anda gunakan untuk pemberitahuan jam istirahat sekolah, pemberitahuan jam pulang sekolah, atau bagi anda yang kerja kantoran bisa digunakan sebagai jam istirahat makan siang serta jam pulang kantor, sebagai pelengkap tidak ada salahnya adna juga membaca artikel sebelumnya

Baca : Cara membuat jam digital

Baca : Cara memainkan music dengan excel macro

Baca : Cara membuat kalender

Baca : Cara membuat excel berbicara

Membuat alarm dengan excel macro

Membuat alarm dengan excel macro

Buka mirosoft excel pada komputer anda, silahkan save as dengan format enabled macro

Masuk kejendela Visual Basic Editor (VBE) dengan menekan kombinasi tombol ALT+F11

Lihat menu bar pilih > Insert > Insert Userform, pada userform silahkan masukan toolbox berupa Textbox

Langkah selanjutnya kita membuat jam digital terlebih dahulu, ketikan kode macro dibawah ini kedalam kode area userform

Private Sub UserForm_Activate()
Running = Not Running
Do While Running = True
DoEvents
TextBox1.Value = Format(Now(), "hh:mm:ss")
Loop
End Sub

Masih di kode area userform, kita buat logika jika waktu (baca jam) menunjukan waktu 07:00:00 maka excel akan memainkan musik peringatan masuk sekolah

Private Sub TextBox1_Change()
If TextBox1.Value = "07:00:00" Then
Call sndPlaySound32("C:\Windows\Media\Windows Shutdown.wav", 0)
End If
End Sub

Cara penulisan waktu adalah Format(Now(), "hh:mm:ss") atau 07:00:00, penulisan format waktu mengikuti format jam, jika anda ingin menulis waktu seperti ini 07:00 maka anda juga harus merubah format jam menjadi Format(Now(), "hh:mm")

sndPlaySound32 : Ini merupakan fungsi memainkan musik dengan excel

("C:\Windows\Media\Windows Shutdown.wav", 0) z: Merupakan file musik yang akan dimainkan, anda bisa merubah jenis musiknya dengan lagu Westlife atau lagu Boyband :D. Misalkan anda ingin memainkan lagu MP3 berjudul "Eta Katakanlah" yang ada difolder "Musik" drive D , maka anda harus merubah extensinya menjadi ("D:\Musik\Eta Katakanlah Mp3", 0), angka 0 dibelakang merupakan angka pengulangan, jika ingin mengulang 2 kali silahkan ganti angka 0 menjadi 1


Langkah selanjutnya adalah membuat modul agar excel bisa memainkan musik, lihat menu bar >Insert > Insert Module, ketikan kode macro ini dalam modul

Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Simpan project Membuat alarm dengan excel macro, silahkan dicoba caranya Ganti kode macro "07:00:00" dengan waktu yang mendekati saat ini tekan F5 dan tunggu alarmnya

Download File Membuat alarm dengan excel macro
Link download alarm dengan excel macro tersedia
Mau semua fle sampel silahkan klik > disini

Jika anda menginginkan alarm terletak pada worksheet bukan userform, dibawah ini admin sudah menyediakan contoh alarm yang dibuat pada workksheet, sudah dilengkapi dengan pengaturan waktu alarm, jadi anda tidak perlu merubah kode macronya

Download File Membuat alarm dengan excel macro (V2)
Link download alarm dengan excel macro tersedia
Mau semua fle sampel silahkan klik > disini

Coba buka file sampel yang kedua, anda akan menemukan pengaturan waktu masuk kerja, waktu istirahat makan siang, waktu pulang kerja. Bagi anda yang berprofesi sebaga guru sekolah silahkan tinggal ganti istilahnya

Kode macro yang ada pada are textbox adalah

Private Sub TextBox1_Change()
waktu_M = Format([B1], "HH:MM:SS")
waktu_I = Format([C1], "HH:MM:SS")
waktu_P = Format([C1], "HH:MM:SS")
If TextBox1.Value = waktu_M Then
Call sndPlaySound32("C:\Windows\Media\Windows Shutdown.wav", 0)
ElseIf TextBox1.Value = waktu_I Then
Call sndPlaySound32("C:\Windows\Media\Windows Shutdown.wav", 0)
ElseIf TextBox1.Value = waktu_P Then
Call sndPlaySound32("C:\Windows\Media\Windows Shutdown.wav", 0)
End If
End Sub

waktu_M : Format([B1], "HH:MM:SS") : Sel waktu alarm masuk kerja
waktu_I : Format([C1], "HH:MM:SS") : Sel waktu alarm istirahat makan siang
waktu_P : Format([C1], "HH:MM:SS") : Sel waktu alarm pulang kerja

Anda bisa merubah masing masing bel / musik yang akan dimainkan, misalkan bel pada jam pulang dengan jam masuk anda buat berbeda dan lain lain

Baca : Aplikasi Pembayaran SPP

Demikianlah cara Membuat alarm dengan excel macro untuk kali ini, semoga artikel yang admin publish di asis10.com bisa menginspirasi anda untuk bekerja lebih baik lebih maju dan mencapai efesiensi yang tinggi, selamat bekerja dan beraktifitas . Salam persatuan dari desa Binangun Singgahan Tuban Jawa Timur
No comments