pak Yusa.. coba code berikut.. sudah saya tes di windows 32-bit dan
berjalan dengan baik
Option Explicit
Private Declare Function SuaranyaDong _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal NamaLagu As String, _
ByVal Lama As Long) As Long
Sub BunyiBip()
Dim i As Integer
Dim c As Integer
For i = 1 To 10
If Range("a1").Value = "a" Then
If Application.Wait(Now() + TimeValue("00:00:02")) Then
Range("a1").Interior.ColorIndex = c
End If
SuaranyaDong "C:\Windows\Media\Chimes.wav", 0&
End If
c = c + 1
Next i
End Sub
untuk fungsi timernya saya belum ketemu.. ketemunya fungsi wait yang
dimerahin dari link berikut
http://msdn.microsoft.com/en-us/library/aa213656(office.11).aspx
mungkin dari para member millis ini maupun para master dapat memberikan
pencerahan mengenai fungsi timer
wassalam,
-aji mumpung-
Pada 23 September 2012 09:07, aji mumpung <[email protected]> menulis:
> hehehe... ternyata pak Yusa menggunakan windows 32-bit, jika anda menekan
> tombol Help maka ada keterangan sebagai berikut:
>
>
> - If you are working on a 32-bit Microsoft Windows platform, both the
> DLL name and alias (if used) must be correct.
>
> Make sure the DLL name and alias are correct.
>
> untuk code berikut:
>
> Alias "BunyiGakYa" ( _
>
> yang dimerahin harap diganti dengan sndPlaySoundA sehingga codenya
> menjadi:
>
> Alias "sndPlaySoundA" ( _
>
> berhubung saya juga masih dalam tahap belajar vba.. (baru baca 150 halaman
> dari 404 halaman) untuk timernya saya pelajari dulu ya pak hehehe.. ^_^
>
> wassalam,
>
> -aji mumpung-
>
> Pada 23 September 2012 08:31, Kurei recca <[email protected]>menulis:
>
> **
>>
>>
>> Dear Aji,
>>
>> Thx ya atas feedbacknya
>>
>> tapi kok fungsi "BunyiGaYa"-nya ga bisa jalan ya ? ada error yang
>> mengatakan bahwa DDL function not found,,
>>
>> codingnya saya taruh dalam module sheet1,,
>>
>> Lalu, Pak Aji kan menggunakan looping For Next agar cell tersebut kelap
>> kelip, bisa jika menggunakan timer karena jika menggunakan for next tidak
>> kelihatan kelapa kelipnya,
>>
>> Jadi agar kelihatan setidaknya satu warna itu 2 detik terpampangnya, lalu
>> ganti warna laen,,
>>
>> *Terlampir filenya ya pak : saya ubah kata "True" menjadi "a"
>>
>> Mohon Pencerahannya
>> ------------------------------
>> *Dari:* aji mumpung <[email protected]>
>> *Kepada:* [email protected]
>> *Dikirim:* Minggu, 23 September 2012 8:06
>> *Judul:* Re: [belajar-excel] CODING MACRO BUNYI BEEP
>>
>>
>> hai yusa..
>>
>> untuk dapat memainkan suara anda harus menggunakan function windows API
>> yang terdapat di dalam file winmm.dll, tetapi sebelum dapat menggunakannya
>> anda harus mendeklarasikan fungsi tersebut sehingga dapat dipanggil dalam
>> suatu prosedur
>>
>> codenya sebagai berikut:
>>
>> Option Explicit
>> Private Declare Function SuaranyaDong _
>> Lib "winmm.dll" _
>> Alias "BunyiGakYa" ( _
>> ByVal NamaLagu As String, _
>> ByVal Lama As Long) As Long
>>
>> Sub BunyiBip()
>> Dim i As Integer
>> Dim c As Integer
>>
>> For i = 1 To 10
>> If Range("a1").Value = "TRUE" Then
>> Range("a1").Interior.ColorIndex = c
>> SuaranyaDong "C:\Windows\Media\Chimes.wav", 0&
>> End If
>> c = c + 1
>> Next i
>> End Sub
>>
>> perhatikan yang diberi warna biru & merah, code ini ditulis di sheets
>> module sehingga hanya dapat berfungsi dengan baik di sheet tersebut, jika
>> anda menginginkan fungsi dapat dipanggil dari mana saja maka pindahkan yang
>> diberi warna *biru* & *merah* ke dalam suatu modul dan ubah warna *biru* dari
>> Private menjadi Public.
>>
>> untuk suaranya dapat anda ganti-ganti sesuka hati menggunakan file yang
>> berekstensi wav dan default lokasi pada pc saya adalah pada folder
>> C:\Windows\Media, silakan anda searching mengenai lokasi pada pc anda dan
>> jenis-jenis bunyi yang tersedis.
>>
>> wassalam,
>>
>> -aji mumpung-
>>
>> Pada 23 September 2012 07:01, Kurei recca <[email protected]>menulis:
>>
>> **
>>
>> Salam Para Master Excel,
>>
>> Ceritanya saya ingin membuat suatu coding dengan kondisi Jika Cell A1
>> bertuliskan kata "TRUE" maka akan ada bunyi beep berulang selama 20 detik
>> or periode tertentu dan Cell Tersebut kelap kelip berwarna kuning dan putih
>> selama 20 detik tersebut.
>>
>> Kira2 bagaimana ya codingnya,,?
>>
>> Mohon Pencerahannya...
>>
>> Best Regards
>>
>>
>>
>>
>>
>>
>
>
