Menambakan Efek suara pada Project di VB 6.0

Cara mendapatkan 3 Dolar per hari, kerjanya cuma klik iklan yang muncul langsung dibayar caranya:klik gambar dibawah ini atau klik Register Clixsense, lengkapi identitas, tekan Sign-Up kemudian konfirmasi Email.Anda siap klik iklan. Info Lengkap

1. Menambahkan Efek Suara pada Form

• Kopikan File Suara apa saja yang ber extension.wap, saya mengambil Applause.wap dan masukan ke folder  tempat penyimpanan Project (harus di jadikan satiu folder)
• Buka jendela kode, ketik kode berikut:

Private Declare Function sndPlaySound Lib “winamm.dll” Alias “sndPlaySoundA” (Byval  lpszSoundName As String, Byval  uFlags As Long) AsLong

Private Const SND_SYNC=&H0

Private Const SND_ASYNC=&H1

Private Const SND_LOOP=&H8

Dim Musik As String

Private Sub Form_Load()

Musik=App.path & “\Applause.wap”

sndPlaySound Musik, SND_ASYNC or  SND_LOOP

End Sub

Private Sub Form _Unload(Cancel As Integer)

sndPlaySound vbNullstring, SND_ASYNC

End Sub

Setelah program dijalankan maka muncul suara tepuk tangan  terus menerus dan di ulang

Untuk menStop musik yang diputar tambahkan 2 Command Button di form :

1   CommandButton1                     Caption: STOP

2.  CommandButton2                     Caption: PLAY

Jika anda ingin menghentikan suara, tulis kode pada CommandButton1:

Private Sub Command1_Click()

sndPlaySound vbNullstring, SND_ASYNC

End Sub

Jika anda ingin memutar  suara lagi, tulis kode pada CommandBotton2:

Private Sub Command2_Click()

sndPlaySound Musik, SND_ASYNC or  SND_LOOP

End Sub

2. Menambahkan Efek Suara pada Mouse

Private Declare Function sndPlaySound Lib “winamm.dll” Alias “sndPlaySoundA” (Byval  lpszSoundName As String, Byval  uFlags As Long) AsLong

Private Sub Form_Click()

Musik=App.path & “\Applause.wap”

sndPlaySound Musik, SND_ASYNC or  SND_LOOP

End Sub

Demikaian cara menambahka efek suara pada project di VB 6.0, semoga artikel ini bermanfaat...

 

Penulis: tutorial ~ Nurhasan Blogger | Blog Tutorial dan Informasi |

Artikel Menambakan Efek suara pada Project di VB 6.0 ini dipublish oleh tutorial pada hari Friday 29 May 2015
Terima kasih Anda telah membaca artikel tentang Menambakan Efek suara pada Project di VB 6.0.