How to Play Audio Sound in VB6 application programme.

How to Play Audio Sound in VB6 application programme. Objective of the programme is very simple,we h

How to Play Audio Sound in VB6 application programme.

Objective of the programme is very simple,we have one
text box in a form,where user will put Numerical data on
it and after entering the data the programme will check
the value and give us a voice output.

Step 1.

For this we need recorded *.wav format audio file form zero to nine.
Record the audio using windows built in voice recorder application.
Start–>Programme –> Accessories—>Entertainment –> Sound Recorder

Step 2.

Write a vb function and placed it in a Module.

///——————put yhis function in a module—————-

Public Function Numarical_Sound(txt As String)
””’—————————-play sound———-
l = Len(txt)
If l = 0 Then
Else
Value = Mid(txt, l, l)
End If
If Value = “1” Then
Call sndPlaySound(“C:\sound\one.wav”, 0)
ElseIf Value = “2” Then
Call sndPlaySound(“C:\sound\two.wav”, 0)
ElseIf Value = “3” Then
Call sndPlaySound(“C:\sound\three.wav”, 0)
ElseIf Value = “4” Then
Call sndPlaySound(“C:\sound\four.wav”, 0)
ElseIf Value = “5” Then
Call sndPlaySound(“C:\sound\five.wav”, 0)
ElseIf Value = “6” Then
Call sndPlaySound(“C:\sound\six.wav”, 0)
ElseIf Value = “7” Then
Call sndPlaySound(“C:\sound\seven.wav”, 0)
ElseIf Value = “8” Then
Call sndPlaySound(“C:\sound\eight.wav”, 0)
ElseIf Value = “9” Then
Call sndPlaySound(“C:\sound\nine.wav”, 0)
ElseIf Value = “0” Then
Call sndPlaySound(“C:\sound\zero.wav”, 0)
End If

End Function

//————————————————————-

Step 3.

Put these codes in another module

Public Declare Function sndPlaySound Lib “winmm.dll” Alias
“sndPlaySoundA” (ByVal lpszSoundName As String, ByVal UFlag As Long) As Long
‘sound

Step 4.

Now come to your vb form and write these codes in any event of the text box

|—————————— -x  |
| VB FORM                            |
|                                              |
| ——–                                   |
| TEXT BOX            sound   |
| ——–                      ()ON    |
|                                (.)OFF   |
|                                              |
|                                              |
|                                              |
————————————–

 

”’———call sound—————–
If OptionON.Value = True Then
A = Numarical_Sound(txt)
Else
‘do nothing
End If
”’————————————

Leave a Reply

Your email address will not be published. Required fields are marked *

78  +    =  86