Cara Membuat Aplikasi Mengeluarkan Suara dengan Fungsi API

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Suara atau suara yang akan dimasukkan harus bertype wav .. Menambahkan Suara Pada Aplikasi Visual Basic pada aplikasi yang Anda buat dalam aplikasi yang bertujuan untuk memiliki yang Anda buat akan terlihat lebih menarik. Misalnya suara akan berbunyi ketika tombol perintah diklik, atau Anda juga dapat menyisipkan kode tersebut ke dalam gambar.

Untuk proyek ini kita perlu kontrol, yaitu:
- 1 kotak teks dengan nama text1 dan text2 properti
- 2 namenya tombol perintah properti dengan standar / default tanpa perubahan apapun.
- 3 label dengan nama default properti
- Examplecontoh-contoh file suara wav untuk aplications keluar.
- Timer Mencari Google Artikel sifat nama Timer1 Interval Dan Mencari Google Artikel 100.

Masukkan kode di bawah ini di modul:

Declare Function sndPlaySound Lib "winmm.dll" Alias ??"sndPlaySoundA" _
(LpszSoundName ByVal 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

Sub PlayWaveSoundOkExit_Click ()
soundfile $ = "audio \ rain_tag_water.wav"
wFlags% = SND_ASYNC Atau SND_NODEFAULT
HaHa = sndPlaySound (soundfile $, wFlags%)
End Sub

Sub StopTheSound_Click ()
StopTheSoundNOW = sndPlaySound (soundfile $, wFlags%)
End Sub

Sub PlayWaveSoundIntro_Click ()
soundfile $ = "audio \ a_sparrow.wav"
wFlags% = SND_ASYNC Atau SND_NODEFAULT
HaHa = sndPlaySound (soundfile $, wFlags%)
End Sub

Sub PlayWaveSoundLblTxt_Click ()
soundfile $ = "audio \ e_twigs.wav"
wFlags% = SND_ASYNC Atau SND_NODEFAULT
HaHa = sndPlaySound (soundfile $, wFlags%)
End Sub

Sub PlayWaveSoundAyam_Click ()
soundfile $ = "audio \ Ayam berkokok.wav"
wFlags% = SND_ASYNC Atau SND_NODEFAULT
HaHa = sndPlaySound (soundfile $, wFlags%)
End Sub

Nah ... untuk bagian pada Formulir Anda masukan kode seperti di bawah ini:

Private Sub Command1_Click ()
PlayWaveSoundOkExit_Click
Akhir
End Sub

Private Sub Command2_Click ()
PlayWaveSoundAyam_Click
End Sub

Private Sub Command3_Click ()
StopTheSoundNOW = sndPlaySound (soundfile $, wFlags%)
End Sub

Private Sub Command4_Click ()
PlayWaveSoundOkExit_Click
Timer1.Enabled = False
Command2.Visible = True
Command3.Visible = True
Command4.Visible = False
Command1.Visible = True
End Sub

Private Sub Form_Load ()
PlayWaveSoundIntro_Click
MsgBox "Sound Wav Intro telah berbunyi, Selanjutnya Suara Wav saat menekan Ok", vbOKOnly, "Info"
PlayWaveSoundOkExit_Click
End Sub

Private Sub Text1_Change ()
PlayWaveSoundLblTxt_Click
End Sub

Private Sub Text2_Change ()
PlayWaveSoundLblTxt_Click
End Sub

Private Sub Timer1_Timer ()
Jika Tidak Text1.Text = "" Dan Tidak Text2.Text = "" Lalu
Command4.Visible = True
Lain
Command4.Visible = False
End If
Jika Label3.ForeColor = & HFFFFFF Lalu
Label3.ForeColor = & H80000008
Lain
Label3.ForeColor = & HFFFFFF
End If
End Sub


Semoga bermanfaat .

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Cara Membuat Aplikasi Mengeluarkan Suara dengan Fungsi API, Diterbitkan oleh scodeaplikasi pada Kamis, 31 Januari 2013. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.