Re: ]] XL-mania [[ Bagaimana bikin program "Sule Prikitiew!"

 

Jadul....., jaman dulu... jaman Luna Maya belum netes...,

di milis ini kayaknya pernah ada member yg kurang kerjaan:

membunyikan file suara di Sheet excel dan/ di UserForm.

Malah belakangan untuk "SoundTract" game norak "Tower of Hanoi"....

 

Katanya cih harus pakai 'menanamkan' dulu sebuah object control (OCX)

bernama MMCI (Multi Media Control Interface) di sheet.

Prosesnya seperti "menggambar" CommandButton ke sheet, hanya

object-control nya harus dicari dulu melalui ikon 'More Controls'

yg ada di toolbar Control ToolBox.

 

Waktu itu cara membunyikannya dengan memencet CommandButton..

Nah untuk mengganti agar kita tidak perlu memencet tombol tetapi

suara langsung dimainkan jika Cell A1 diberi data / diganti data..

kita dapat mengganti "pemencetan" tombol itu dengan EVENT Change

yg terjadi pada sheet.

 

Coding "Pembunyiannya" sendiri, kira kira seperti ni

 

Private Sub ctv_PlaySound()
   Dim fpath As String
   fpath = ThisWorkbook.Path & "\"
   '--siapkan Media nya
   With MMCI_2
      .Notify = False
      .Wait = True
      .Shareable = False
      '--tentukan jenis Device
      .DeviceType = "WaveAudio"
      .Command = "Close"
      '--pilih Nama File yg mau dibunyikan
      '--berikut Path-nya
      .Filename = fpath & Range("C1").Text
      '--Buka dan Mainkan...
      .Command = "Open"
      .Command = "Play"
   End With
End Sub

 

Lho di codingnya: nama filenya kok di C1 bukan di A1, kenafa ??

Cell A1 'kan hanya berisi angka 1 sampai entah berapa, tergantung

kehendak kita mau menyuarakan berapa file suara..

Sebaiknya kita punya TABEL Daftar Nama File Suara, tulis saja di sheet

misal 

1   "AdaSule.wav"

2   "Prikitiew.wav"

dst

 

Trus... C1 diisi diisi formula nan cuanggih wal toB-markotop !!!,

(   yaitu ....   vlookup(A1,tabel,2,0) atau Index(Tabel,A1) )

dan nama file yg muncul (di C1) itulah yg dipanggil untuk dibunyikan,

gitu loch ceritaknya...

 

lha! pemanfaatan Event Change nya sendiri, biasa saja, cuma seperti ini:

 

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Cells.Count = 1 Then
      If Target.Address = "$A$1" Then
         If Target.Value > 0 And Target.Value <= 9 Then
            ctv_PlaySound
         End If
      End If
   End If
End Sub

---

----- Original Message -----
From: Eka Subyantara
To: XL-mania
Sent: Wednesday, March 24, 2010 7:27 AM
Subject: ]] XL-mania [[ Bagaimana bikin program "Sule Prikitiew!"

Tabik buat semua kawan dan penikmat XL-mania!
Terlintas ide nakal buat mempercantik kerjaan kita di excel:
Bagaimana caranya

jika kita menulis angka 1 di sel A1 lalu terdengar suara "Awas ada SULEEE!"
tapi bila yang ditulisnya angka 2 yang keluar adalah suara "Prikitiewwww!"

Tentu saja kita sudah punya file MP3 ataupun WAV kedua kalimat di atas hasil tangkapan dari TV :)
Nah, daku berharap keikhlasan para kawan-kawan untuk berbagi ...

Yang lagi penasaran banget
= eka =

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 80

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momods pecas ndaheeee... :( :( :(                                 | 
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___