--- In [email protected], "ianoca18" <[EMAIL PROTECTED]> wrote:
>
> mau tanya nih, caranya mengeluarkan suara alarm gimna ya??
> misalnya kalo tgl 2 juli jam xxx alarmnya bunyi
> atau ada karyawan A yang tidak masuk gitu??
> trus download suara2 gitu darimana ya?
> terima kasih sebelumnya
>
pada module tulis scrib berikut:
''Suara
Dim Wflags As Long, x As Long
''Sound
Private Declare Function sndPlaySound Lib "winmm.dll" Alias
"sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
''fungsi
Function Suara(pathBunyi As String)
Wflags = SND_ASYNC Or SND_NODEFAULT
x = sndPlaySound(Trim(pathBunyi), Wflags)
End Function
pada Form:
''misal jam alarm jam 12:00:00, file suara ok.wav
Private Sub Timer1_Timer()
if Format(Now, "hh:mm:ss")="12:00:00" then
Suara app.path & "\ok.wav"
end if
End Sub
