Cara Membuat Aplikasi Mengeluarkan Suara dengan Fungsi API

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 .