VoiceGuide IVR Software Main Page
Jump to content

Problem To Play Sound File

Recommended Posts

I have recorded voice in English & Bangla (my native language) language under Windows XP SP2 OS platform for test purpose. Under Windows XP I don't find any problem, but when I run same *.vgs file under Windows 2003 Server I found a problem that is

 

at the same time "wav" (our pre-recorded file) & "text to speech" type metalic sounds whose are not recorded by us and also in bangla & english language.

 

Arif

Share this post


Link to post

Could you please post a copy of VoiceGuide's Trace Logs which captures the problem, this will allow us to see what happened.

 

Enable logging by setting the log levels to 10 in VG.INI as per below:

[Log]

 

VoiceGuide=10

Then restart VG and make a test call which demonstrates the problem.

 

Trace files will be created in VG's \log\ subdirectory.

 

Please post the traces and the VoiceGuide script used.

 

When posting traces/scripts please .ZIP them up and post them as attachments.

Share this post


Link to post
Could you please post a copy of VoiceGuide's Trace Logs which captures the problem, this will allow us to see what happened.

 

Enable logging by setting the log levels to 10 in VG.INI as per below:

[Log]

 

VoiceGuide=10

Then restart VG and make a test call which demonstrates the problem.

 

Trace files will be created in VG's \log\ subdirectory.

 

Please post the traces and the VoiceGuide script used.

 

When posting traces/scripts please .ZIP them up and post them as attachments.

log.zip

Share this post


Link to post

Trace shows that when the attempt is made to play a sound file the following error occurs:

 

103412.58 0 PlaySoundStart err=[0 play PlaySoundStart ResetWavOutAndContinuePlay=>4,play pss EnsureWaveOutIsOpenAndReady=>tr 5 waveOutOpen(id=0) MMSYSERR_ALLOCATED but hWaveOut = NULL] [G:\TeleBanking System\Bangla Voice\Welcome.wav]

 

Are you sure the modem which you are using (SmartUSB56 Modem) is a Voice modem?

 

If it is a Voice modem then are it's Wave drivers properly installed?

Share this post


Link to post
Trace shows that when the attempt is made to play a sound file the following error occurs:

 

103412.58 0 PlaySoundStart err=[0 play PlaySoundStart ResetWavOutAndContinuePlay=>4,play pss EnsureWaveOutIsOpenAndReady=>tr 5 waveOutOpen(id=0) MMSYSERR_ALLOCATED but hWaveOut = NULL] [G:\TeleBanking System\Bangla Voice\Welcome.wav]

 

Are you sure the modem which you are using (SmartUSB56 Modem) is a Voice modem?

 

If it is a Voice modem then are it's Wave drivers properly installed?

 

Its a voice guide Modem. I install "Aztech UM 9100 Winxp" in Windows 2003 server. Is it ok ? If not then reply how solve this.

Where I get "Aztech UM 9100 Win 2003" driver ?

Share this post


Link to post
If you want to put together a professional quality IVR/Voicemail/etc system then you should get a Dialogic card. As per our Recommended Hardware information page: http://www.voiceguide.com/suppRecomHardware.htm

 

My main question is -----------

Voice Guide run properly in Windows XP operating system with this modem, but its not properly run in Windows 2003 Server with the same modem. Main difference is sound that also say about this.

 

Windows XP recorded sound run properly but Windows 2003 server sound mixed up, one is recorded and other is know sound.

 

Please reply. I also bought voice guide software but can't use properly.

Share this post


Link to post
Voice Guide run properly in Windows XP operating system with this modem, but its not properly run in Windows 2003 Server with the same modem.
Looks like that modem's Wave drivers do not work on Win2003. You should contact the modem manufacturer and ask them why their modem's Wave drivers do not work on Win2003.

Share this post


Link to post
Voice Guide run properly in Windows XP operating system with this modem, but its not properly run in Windows 2003 Server with the same modem.
Looks like that modem's Wave drivers do not work on Win2003. You should contact the modem manufacturer and ask them why their modem's Wave drivers do not work on Win2003.

 

[deleted]

 

Today I uninstall "Aztech Modem Driver (Windows XP)" version and install "Aztech Modem Driver (Windows 2000)".

My system Unique Id has been change to MB4EF. Plz send my new number for active this.

 

Plz reply

Edited by titu
Deleted registration information

Share this post


Link to post

Please send all license related correspondence direct to sales@voiceguide.com

 

Do not post any license related information in the Support Forum.

Share this post


Link to post
Please send all license related correspondence direct to sales@voiceguide.com

 

Do not post any license related information in the Support Forum.

 

Thank for last reply. Actually, your support service is so fast. That's impress me.

I have another requirement. Now I face a problem on numeric data.

 

My language is Bangla. I also convert my numeric

sound in my language. But my problem is ---------

 

1000000 = 1 Million in English language but my language is not like this.

I want to

1000000 = 10 Lak. I want make a sound file 10 Lak.

 

Now how can I solve this on Bangla language ? Please reply.

 

From

Titu

Share this post


Link to post

Have you had a look at modifying the lib_num2wav.vbs file ?

 

As per Help file entry on Say Numbers module: http://www.voiceguide.com/vghelp/html/modSayNumber.htm

Need to change the way Say Number module speaks Amounts ?

 

Users can edit the way in which the numbers are spoken, or even add their own Say Number functions by editing the file: lib_num2wav.vbs located in VoiceGuide's \system\vbs\ subdirectory. This is useful if it is required to say numbers/amounts in a language other then English.

 

Please read the lib_num2wav.vbs file for more information.

Share this post


Link to post
Have you had a look at modifying the lib_num2wav.vbs file ?

 

As per Help file entry on Say Numbers module: http://www.voiceguide.com/vghelp/html/modSayNumber.htm

Need to change the way Say Number module speaks Amounts ?

 

Users can edit the way in which the numbers are spoken, or even add their own Say Number functions by editing the file: lib_num2wav.vbs located in VoiceGuide's \system\vbs\ subdirectory. This is useful if it is required to say numbers/amounts in a language other then English.

 

Please read the lib_num2wav.vbs file for more information.

 

Last time I said about sound files problem. I solve this by "Voice Guide 4.8 Demo". Its also have a problem "Say Numeric field properly but not proper in Date/DateTime field". I also bought "Voice Guide 5.2.5045". I can't solve Numeric or Date/dateTime field. Both version use same modem.

 

Plz reply.

Share this post


Link to post

Please describe in full detail exactly what it is that you need to have changed in the way that the dates are spoken.

 

We can then help in advising out how the lib_num2wav.vbs file can be changed to allow you to have the time/date/etc spoken in the way in which you desire.

Share this post


Link to post
Please describe in full detail exactly what it is that you need to have changed in the way that the dates are spoken.

 

We can then help in advising out how the lib_num2wav.vbs file can be changed to allow you to have the time/date/etc spoken in the way in which you desire.

 

I have recorded voice in English & Bangla (my native language)

language under Windows 2003 Server OS platform for test purpose.

Now I face two problem:

 

1.

When I use "Voice Guide 4.8 Demo Version" on Windows 2003 Server, I can run all numeric field. For example:

2007. It gives me recorded sound but when I use Date format field, example : 17/04/2007.

It doesn't give me full recorded sound for Date format.

 

When I use "Voice Guide 5.2 Full Version" on Windows 2003 Server, I can't run all numeric field. For example:

2007. It doesn't give me recorded sound, give me metalic sounds.

This is the same metalic sound file in date format.

 

2.

Bangla is my native language. Now I face a problem on numeric field.

 

I also convert my numeric

sound in my language. But my problem is ---------

 

1000000 = 1 Million in English language but my language is not like this.

I want to

1000000 = 10 Lak in Bangla language . I want make a sound file for 10 Lak.

 

I also change "lib_num2wav.vbs" file for my language.

I send this. Plz download this and give me proper correction.

 

My lib_num2wav file -

 

'*********************************************************

' WARNING

'

' You may add new and modify existing functions in

' this file, but you may not change 'name :' comments.

'

' VoiceGuide uses the 'name :' comments to determine

' which function to call. It's the 'name :' comments

' that appear in the dropdown box in the script designer

' which describe how the number should be spoken.

'

' If you need to change the 'name:' comment please just

' create a new function.

'*********************************************************

 

'---------------------------------------------------------

'Dec 29, 2005

'

' - Added functions:

' Date - MMDD - DM

' Date - DDMM - MD

' Date - MMDDYYYY - DMY

' Date - DDMMYYYY - MDY

'---------------------------------------------------------

'Jan 14, 2006

'

' - Fixed 12AM bug in function TimeHHNN

' - Added function DateTimeSQLLongDateTime

'---------------------------------------------------------

 

 

'######

'name : Digits

'info : Say the digits in the number

'arg1 : Digits to be spoken :

'######

 

Function Digits(byval arg1)

'returns a list of comma delimited wav files,

'with each wav file corresponding to a character

'in the supplied input string.

 

sDigits=Trim(arg1)

For i=1 To Len(sDigits)

sDigit = Mid(sDigits, i, 1)

If sDigit = "-" Then

sWav = "minus.wav"

Else

sWav = sDigit & ".wav"

end If

If sOut = "" Then

sOut = sWav

else

sOut = sOut & "," & sWav

End if

Next

Digits = sOut

 

End Function

 

 

'######

'name : Number

'info : Say the number

'arg1 : Number to be spoken :

'######

Function Number(byval arg1)

'returns a list of comma delimited wav files,

'with each wav file corresponding to a character

'in the supplied input string.

'any commas in the number are ignored - they are deleted before the number is spoken.

 

sNumberTrimmed = Trim(arg1)

sNumber = replace(sNumberTrimmed, ",", "")

 

Dim Place(9)

Place(2) = "thousand.wav"

Place(3) = "million.wav"

Place(4) = "billion.wav"

Place(5) = "trillion.wav"

 

'Position of decimal place 0 if none

iDecimalPlacePos = InStr(sNumber, ".")

 

If iDecimalPlacePos > 0 Then

sAfterDecimalPoint_WavList = Digits(Mid(sNumber, iDecimalPlacePos + 1, 100))

sNumber = Left(sNumber, iDecimalPlacePos - 1)

End If

 

If Left(sNumber, 1) = "-" Then

iNumberIsNegative = 1

sNumber = Mid(sNumber, 2, Len(sNumber-1))

else

iNumberIsNegative = 0

End If

 

iCount = 1

'we will create the WAV list of sound files starting from

'the back of the number.

Do While sNumber <> ""

s3_WavList = hundreds2wav(Right(sNumber, 3))

If s3_WavList <> "" Then

If iCount > 1 Then

s3_WavList = s3_WavList & "," & Place(iCount)

End If

If sNumber_WavList = "" Then

sNumber_WavList = s3_WavList

Else

sNumber_WavList = s3_WavList & "," & sNumber_WavList

End If

End If

If Len(sNumber) > 3 Then

sNumber = Left(sNumber, Len(sNumber) - 3)

Else

sNumber = ""

End If

iCount = iCount + 1

Loop

 

If sAfterDecimalPoint_WavList = "" Then

if sNumber_WavList = "" then

Number = "0.wav"

else

Number = sNumber_WavList

end if

Else

Number = sNumber_WavList & ",point.wav," & sAfterDecimalPoint_WavList

end if

 

if iNumberIsNegative = 1 then

Number = "minus.wav," & Number

end if

 

End Function

 

 

'######

'name : Number - comma as decimal

'info : Say the number

'arg1 : Number to be spoken :

'######

Function Number_CommaAsDecimal(byval arg1)

'returns a list of comma delimited wav files,

'with each wav file corresponding to a character

'in the supplied input string.

'If there is a decimal point in the supplied number

'then the digits after the decimal point will be spelled out.

 

'any 'full stops' in the number are ignored - they are deleted before the number is spoken.

 

sNumberTrimmed = Trim(arg1)

sNumber = replace(sNumberTrimmed, ".", "")

 

Dim Place(9)

Place(2) = "thousand.wav"

Place(3) = "million.wav"

Place(4) = "billion.wav"

Place(5) = "trillion.wav"

 

' Position of decimal place 0 if none

iDecimalPlacePos = InStr(sNumber, ",")

 

If iDecimalPlacePos > 0 Then

sAfterDecimalPoint_WavList = Digits(Mid(sNumber, iDecimalPlacePos + 1, 100))

sNumber = Left(sNumber, iDecimalPlacePos - 1)

End If

 

 

If Left(sNumber, 1) = "-" Then

iNumberIsNegative = 1

sNumber = Mid(sNumber, 2, Len(sNumber-1))

else

iNumberIsNegative = 0

End If

 

 

iCount = 1

Do While sNumber <> ""

s3_WavList = hundreds2wav(Right(sNumber, 3))

If s3_WavList <> "" Then

If iCount > 1 Then

s3_WavList = s3_WavList & "," & Place(iCount)

End If

If sNumber_WavList = "" Then

sNumber_WavList = s3_WavList

Else

sNumber_WavList = s3_WavList & "," & sNumber_WavList

End If

End If

If Len(sNumber) > 3 Then

sNumber = Left(sNumber, Len(sNumber) - 3)

Else

sNumber = ""

End If

iCount = iCount + 1

Loop

 

If sAfterDecimalPoint_WavList = "" Then

if sNumber_WavList = "" then

Number = "0.wav"

else

Number = sNumber_WavList

end if

Else

Number = sNumber_WavList & ",point.wav," & sAfterDecimalPoint_WavList

end if

 

if iNumberIsNegative = 1 then

Number = "minus.wav," & Number

end if

 

End Function

 

 

'######

'name : Amount - Dollars

'info : Say the amount in dollars only

'arg1 : Amount :

'######

Function AmountDollars(ByVal arg1)

'ignore everything after any decimal points

'if someone wants to hear cents they should use "Dollars and Cents"

 

AmountToSay = Trim(arg1)

 

iDecimalPlacePos = InStr(AmountToSay, ".")

if iDecimalPlacePos = 0 then

'see if maybe a comma is used for the decimal place instead.

iDecimalPlacePos = InStr(AmountToSay, ",")

end if

 

If iDecimalPlacePos > 0 Then

AmountToSay = Left(AmountToSay, iDecimalPlacePos - 1)

End If

 

sDollars_WavList = Number(AmountToSay)

Select Case sDollars_WavList

Case ""

sDollars_WavList = "0.wav,dollars.wav"

Case Else

sDollars_WavList = sDollars_WavList & ",dollars.wav"

End Select

 

AmountDollars = sDollars_WavList

 

End Function

 

 

'######

'name : Amount - Dollars And Cents

'info : Say the amount in dollars and cents

'arg1 : Amount :

'######

Function AmountDollarsAndCents(ByVal arg1)

 

AmountToSay = Trim(arg1)

 

' Position of decimal place 0 if none

iDecimalPlacePos = InStr(AmountToSay, ".")

if iDecimalPlacePos = 0 then

'see if maybe a comma is used for the decimal place instead.

iDecimalPlacePos = InStr(AmountToSay, ",")

end if

'Convert sCents_WavList and set AmountToSay to dollar amount

If iDecimalPlacePos > 0 Then

sCents_WavList = tens2wav(Left(Mid(AmountToSay, iDecimalPlacePos + 1) & "00", 2))

AmountToSay = Trim(Left(AmountToSay, iDecimalPlacePos - 1))

End If

 

sDollars_WavList = AmountDollars(AmountToSay)

 

Select Case sCents_WavList

Case ""

sCents_WavList = "0.wav,cents.wav"

Case Else

sCents_WavList = sCents_WavList & ",cents.wav"

End Select

 

AmountDollarsAndCents = sDollars_WavList & ",and.wav," & sCents_WavList

End Function

 

 

'######

'name : Amount - Cents

'info : Amount to say is given in cents.

'arg1 : Amount in cents :

'######

Function AmountCents(ByVal arg1)

'just insert the decimal point in the right place,

'and pass to AmountDollarsAndCents function

'if there is a decimal point in there already then just use that decimal point..

 

iDecimalPlacePos = InStr(arg1, ".")

if iDecimalPlacePos = 0 then

'see if maybe a comma is used for the decimal place instead.

iDecimalPlacePos = InStr(arg1, ",")

end if

 

If iDecimalPlacePos > 0 Then

AmountCents = AmountDollarsAndCents(arg1)

End If

 

Select case Len(arg1)

Case 0

AmountCents = AmountDollarsAndCents("0.00")

Case 1

AmountCents = AmountDollarsAndCents("0.0" & arg1)

Case 2

AmountCents = AmountDollarsAndCents("0." & arg1)

Case Else

AmountCents = AmountDollarsAndCents(Left(arg1, len(arg1)-2) & "." & Right(arg1, 2))

End Select

End Function

 

 

'######

'name : Date - MMDD

'info : Say month and day of month

'arg1 : MMDD or MM/DD:

'######

Function DateMMDD(ByVal arg1)

arg1 = replace(arg1, "/", "")

If Len(arg1) < 4 Then

Exit Function

End If

DateMMDD = "month" & Left(arg1,2) & ".wav,place" & Right(arg1,2) & ".wav"

End Function

 

 

'######

'name : Date - MMDD - DM

'info : Say day of month and month

'arg1 : MMDD or MM/DD:

'######

Function DateMMDD_DM(ByVal arg1)

arg1 = replace(arg1, "/", "")

If Len(arg1) < 4 Then

Exit Function

End If

DateMMDD_DM = "place" & Right(arg1,2) & ".wav,month" & Left(arg1,2) & ".wav"

End Function

 

 

'######

'name : Date - DDMM

'info : Say day of month and month

'arg1 : DDMM or DD/MM:

'######

Function DateDDMM(ByVal arg1)

arg1 = replace(arg1, "/", "")

If Len(arg1) < 4 Then

Exit Function

End If

DateDDMM = "place" & Left(arg1,2) & ".wav,month" & Right(arg1,2) & ".wav"

End Function

 

 

'######

'name : Date - DDMM - MD

'info : Say month and day of month

'arg1 : DDMM or DD/MM:

'######

Function DateDDMM_MD(ByVal arg1)

arg1 = replace(arg1, "/", "")

If Len(arg1) < 4 Then

Exit Function

End If

DateDDMM_MD = "month" & Right(arg1,2) & ".wav,place" & Left(arg1,2) & ".wav"

End Function

 

 

 

'######

'name : Date - MMDDYYYY

'info : Say month, day, year

'arg1 : MMDDYYYY or MM/DD/YYYY:

'######

Function DateMMDDYYYY(ByVal arg1)

arg1 = replace(arg1, "/", "")

If Len(arg1) < 8 Then

Exit Function

End If

DateMMDDYYYY = "month" & Left(arg1,2) & ".wav,place" & mid(arg1,3,2) & ".wav," & Number(right(arg1,4))

End Function

 

 

'######

'name : Date - MMDDYYYY - DMY

'info : Say day, month, year

'arg1 : MMDDYYYY or MM/DD/YYYY:

'######

Function DateMMDDYYYY_DMY(ByVal arg1)

arg1 = replace(arg1, "/", "")

If Len(arg1) < 8 Then

Exit Function

End If

DateMMDDYYYY_DMY = "place" & mid(arg1,3,2) & ".wav,month" & Left(arg1,2) & ".wav," & Number(right(arg1,4))

End Function

 

 

'######

'name : Date - DDMMYYYY

'info : Say day, month, year

'arg1 : DDMMYYYY or DD/MM/YYYY:

'######

Function DateDDMMYYYY(ByVal arg1)

arg1 = replace(arg1, "/", "")

If Len(arg1) < 8 Then

Exit Function

End If

DateDDMMYYYY = "place" & Left(arg1,2) & ".wav,month" & mid(arg1,3,2) & ".wav," & Number(right(arg1,4))

End Function

 

 

'######

'name : Date - DDMMYYYY - MDY

'info : Say month, day, year

'arg1 : DDMMYYYY or DD/MM/YYYY:

'######

Function DateDDMMYYYY_MDY(ByVal arg1)

arg1 = replace(arg1, "/", "")

If Len(arg1) < 8 Then

Exit Function

End If

DateDDMMYYYY_MDY = "month" & mid(arg1,3,2) & ".wav,place" & Left(arg1,2) & ".wav," & Number(right(arg1,4))

End Function

 

 

'######

'name : Time am/pm - HHNN

'info : Say the hour and minute in am/pm format

'arg1 : Time in format HHNN or HH:NN

'######

Function TimeHHNN(ByVal arg1)

arg1 = replace(arg1, ":", "")

If Len(arg1) < 4 Then

Exit Function

End If

 

sHH = Left(arg1,2)

sNN = Right(arg1,2)

 

'MsgBox(sHH & sNN)

 

sHH = sHH Mod 24

 

If sHH >= 12 Then

sHH = sHH - 12

if sHH = 0 then

sHH = "12"

end if

if sHH < 10 then

sHH = "0" & sHH

end if

sAMPM = "pm.wav"

Else

if sHH = 0 then

sHH = 12

end if

sAMPM = "am.wav"

end if

 

if left(sHH, 1) = "0" or sHH < 10 Then

sHH_WavList = Right(sHH, 1) & ".wav"

'MsgBox("zero:" & sHH_WavList)

Else

sHH_WavList = tens2wav(sHH)

'MsgBox("tens:" & sHH_WavList)

end if

 

if left(sNN, 1) = "0" or sNN < 10 Then

if Right(sNN, 1) = "0" then

'do not play anything for minutes,

sNN_WavList = ""

else

sNN_WavList = "0.wav," & Right(sNN, 1) & ".wav"

end if

Else

sNN_WavList = tens2wav(sNN)

end if

 

if sNN_WavList <> "" then

TimeHHNN = sHH_WavList & "," & sNN_WavList & "," & sAMPM

else

'could add an "o'clock' sound file here...

TimeHHNN = sHH_WavList & "," & sAMPM

end if

 

End Function

 

 

'######

'name : Time 24 hour - HHNN

'info : Say the hour and minute in 24 hour format

'arg1 : HHNN or HH:NN

'######

Function TimeHHNN24(ByVal arg1)

arg1 = replace(arg1, ":", "")

If Len(arg1) < 4 Then

Exit Function

End If

 

'no AM/PM - just say the hour in 24-hour format.

sHH = Left(arg1,2)

sNN = Right(arg1,2)

 

if left(sHH, 1) = "0" Then

sHH_WavList = Right(sHH, 1) & ".wav"

Else

sHH_WavList = tens2wav(sHH)

end if

 

if left(sNN, 1) = "0" Then

sNN_WavList = "0.wav," & Right(sNN, 1) & ".wav"

Else

sNN_WavList = tens2wav(sNN)

end if

 

TimeHHNN24 = sHH_WavList & "," & sNN_WavList

End Function

 

 

'######

'name : Date & Time - MMDDHHNN

'info : Say the Month, day then hour and minute AM/PM

'arg1 : MMDDHHNN or MM/DD, HH:NN:

'######

Function DateTimeMMDDHHNN(ByVal arg1)

arg1 = replace(arg1, "/", "")

arg1 = replace(arg1, ":", "")

arg1 = replace(arg1, ",", "")

arg1 = replace(arg1, " ", "")

If Len(arg1) < 8 Then

Exit Function

End If

 

sMMDD = Left(arg1,4)

sHHNN = Right(arg1,4)

 

DateTimeMMDDHHNN = DateMMDD(sMMDD) & "," & TimeHHNN(sHHNN)

 

End Function

 

 

'######

'name : Date & Time - DDMMHHNN

'info : Say the Month, day then hour and minute AM/PM

'arg1 : DDMMHHNN or DD/MM, HH:NN:

'######

Function DateTimeDDMMHHNN(ByVal arg1)

arg1 = replace(arg1, "/", "")

arg1 = replace(arg1, ":", "")

arg1 = replace(arg1, ",", "")

arg1 = replace(arg1, " ", "")

If Len(arg1) < 8 Then

Exit Function

End If

 

sDDMM = Left(arg1,4)

sHHNN = Right(arg1,4)

 

DateTimeDDMMHHNN = DateDDMM(sDDMM) & "," & TimeHHNN(sHHNN)

 

End Function

 

 

'######

'name : Date & Time - MSSQL format

'info : Say the Month, day then hour and minute AM/PM

'arg1 : YYYY-M-D HH:NN:SS

'######

Function DateTimeMSSQL(ByVal arg1)

If Len(arg1) < 15 Then

Exit Function

End If

 

'2004-7-14 18:32:18

 

Dim sArray

 

sArray = Split(arg1, "-")

sM = sArray(1)

if len(sM) = 1 then

sM = "0" & sM

end if

sD = left(sArray(2),2)

 

sArray = Split(arg1, ":")

sHH = right(sArray(0), 2)

if len(sHH) = 1 then

sHH = "0" & sHH

end if

 

sNN = sArray(1)

if len(sNN) = 1 then

sNN = "0" & sNN

end if

 

 

sMMDD = sM & sD

sHHNN = sHH & sNN

 

DateTimeMSSQL = DateMMDD(sMMDD) & "," & TimeHHNN(sHHNN)

 

End Function

 

 

'######

'name : Date & Time - SQL Long Date & Time

'info : Say the Month, day then hour and minute AM/PM

'arg1 : M/D/YYYY H:NN:SS AM/PM

'######

Function DateTimeSQLLongDateTime(ByVal arg1)

 

If Len(arg1) < 15 Then

Exit Function

End If

 

'3/25/2005 7:30:00 AM

'3/5/2005 10:30:00 PM

 

Dim sArray

 

sArray = Split(arg1, "/")

 

if len(sArray(1)) = 1 then

sD = "0" & sArray(1)

else

sD = sArray(1)

end if

 

if len(sArray(0)) = 1 then

sM = "0" & sArray(0)

else

sM = sArray(0)

end if

 

sArray = Split(arg1, ":")

sH = right(sArray(0),2)

 

if len(sH) = 1 then

sH = "0" & sH

end if

 

sNN = sArray(1)

 

if strcomp(right(arg1,2), "PM", 1) = 0 then

sH = sH + 12

end if

 

sH = Trim(sH)

 

sMMDD = sM & sD

sHHNN = sH & sNN

 

'TimeHHNN will say AM/PM as well.

DateTimeSQLLongDateTime = DateMMDD(sMMDD) & "," & TimeHHNN(sHHNN)

 

End Function

 

 

'######

'name : Date & Time - Mid Date, Long Time

'info : Say the Month, day then hour and minute AM/PM

'arg1 : D-MMM-YY HH:NN:SS AM/PM

'######

Function DateTimeMidDateLongTime(ByVal arg1)

 

If Len(arg1) < 15 Then

Exit Function

End If

 

'14-Jul-04 3:07:00 PM

'14-07-04 3:07:00 PM

 

Dim sArray

 

sArray = Split(arg1, "-")

 

 

if len(sArray(1)) >= 3 then

'looks like date is "D-MMM-etc" format

sD = sArray(0)

sM = sArray(1)

else

'assume date is "MMM-D-etc" format

sM = sArray(0)

sD = sArray(1)

end if

 

 

if len(sD) = 1 then

sD = "0" & sD

end if

 

 

if len(sM) = 1 then

sM = "0" & sM

end if

 

if len(sM) >= 3 then

'we need to convert for a 3 letter month to a 2 digit month.

if strcomp(left(sM,3), "Jan", 1) = 0 then

sM = "01"

end if

if strcomp(left(sM,3), "Feb", 1) = 0 then

sM = "02"

end if

if strcomp(left(sM,3), "Mar", 1) = 0 then

sM = "03"

end if

if strcomp(left(sM,3), "Apr", 1) = 0 then

sM = "04"

end if

if strcomp(left(sM,3), "May", 1) = 0 then

sM = "05"

end if

if strcomp(left(sM,3), "Jun", 1) = 0 then

sM = "06"

end if

if strcomp(left(sM,3), "Jul", 1) = 0 then

sM = "07"

end if

if strcomp(left(sM,3), "Aug", 1) = 0 then

sM = "08"

end if

if strcomp(left(sM,3), "Sep", 1) = 0 then

sM = "09"

end if

if strcomp(left(sM,3), "oct", 1) = 0 then

sM = "10"

end if

if strcomp(left(sM,3), "Nov", 1) = 0 then

sM = "11"

end if

if strcomp(left(sM,3), "Dec", 1) = 0 then

sM = "12"

end if

end if

 

sArray = Split(arg1, ":")

sHH = right(sArray(0), 2)

sNN = sArray(1)

 

if strcomp(right(arg1,2), "PM", 1) = 0 then

sHH = sHH + 12

end if

 

sHH = Trim(sHH)

 

if len(sHH) = 1 then

sHH = "0" & sHH

end if

 

sMMDD = sM & sD

sHHNN = sHH & sNN

 

'TimeHHNN will say AM/PM as well.

DateTimeMidDateLongTime = DateMMDD(sMMDD) & "," & TimeHHNN(sHHNN)

 

End Function

 

 

'######

'name : Time - HH:NN:SS AM/PM

'info : Say hour and minute AM/PM

'arg1 : HH:NN:SS AM/PM

'######

Function DateTimeLongTime(ByVal arg1)

 

If Len(arg1) < 15 Then

Exit Function

End If

 

'14-Jul-04 3:07:00 PM

'14-07-04 3:07:00 PM

 

Dim sArray

 

 

sArray = Split(arg1, ":")

sHH = right(sArray(0), 2)

sNN = sArray(1)

 

if strcomp(right(arg1,2), "PM", 1) = 0 then

sHH = sHH + 12

end if

 

sHH = Trim(sHH)

 

if len(sHH) = 1 then

sHH = "0" & sHH

end if

 

sMMDD = sM & sD

sHHNN = sHH & sNN

 

'TimeHHNN will say AM/PM as well.

DateTimeLongTime = TimeHHNN(sHHNN)

 

End Function

 

 

'********************************************

' Converts a number from 100-999 into .Wavs *

'********************************************

Function hundreds2wav(ByVal AmountToSay)

on error resume next

If Cint(AmountToSay) = 0 Then

Exit Function

End If

AmountToSay = Right("000" & AmountToSay, 3)

 

'Convert the hundreds place

If Mid(AmountToSay, 1, 1) <> "0" Then

Result = digit2wav(Mid(AmountToSay, 1, 1)) & ",hundred.wav"

End If

 

'Convert the tens and ones place

If Mid(AmountToSay, 2, 1) <> "0" Then

s2_WavList = tens2wav(Mid(AmountToSay, 2))

Else

s2_WavList = digit2wav(Mid(AmountToSay, 3))

End If

 

If Result = "" Then

Result = s2_WavList

Else

Result = Result & "," & s2_WavList

End If

 

hundreds2wav = Result

End Function

 

 

'*********************************************

' Converts a number from 10 to 99 into .Wavs *

'*********************************************

Function tens2wav(TensText)

on error resume next

Result = "" 'null out the s3_WavListorary function value

If CInt(Left(TensText, 1)) = 1 Then

' If value between 10-19

Select Case CInt(TensText)

Case 10: Result = "10.wav"

Case 11: Result = "11.wav"

Case 12: Result = "12.wav"

Case 13: Result = "13.wav"

Case 14: Result = "14.wav"

Case 15: Result = "15.wav"

Case 16: Result = "16.wav"

Case 17: Result = "17.wav"

Case 18: Result = "18.wav"

Case 19: Result = "19.wav"

Case Else

End Select

Else

' If value between 20-99

Select Case CInt(TensText)

Case 20: Result = "20.wav"

Case 21: Result = "21.wav"

Case 22: Result = "22.wav"

Case 23: Result = "23.wav"

Case 24: Result = "24.wav"

Case 25: Result = "25.wav"

Case 26: Result = "26.wav"

Case 27: Result = "27.wav"

Case 28: Result = "28.wav"

Case 29: Result = "29.wav"

 

Case 30: Result = "30.wav"

Case 31: Result = "31.wav"

Case 32: Result = "32.wav"

Case 33: Result = "33.wav"

Case 34: Result = "34.wav"

Case 35: Result = "35.wav"

Case 36: Result = "36.wav"

Case 37: Result = "37.wav"

Case 38: Result = "38.wav"

Case 39: Result = "39.wav"

 

Case 40: Result = "40.wav"

Case 41: Result = "41.wav"

Case 42: Result = "42.wav"

Case 43: Result = "43.wav"

Case 44: Result = "44.wav"

Case 45: Result = "45.wav"

Case 46: Result = "46.wav"

Case 47: Result = "47.wav"

Case 48: Result = "48.wav"

Case 49: Result = "49.wav"

 

Case 50: Result = "50.wav"

Case 51: Result = "51.wav"

Case 52: Result = "52.wav"

Case 53: Result = "53.wav"

Case 54: Result = "54.wav"

Case 55: Result = "55.wav"

Case 56: Result = "56.wav"

Case 57: Result = "57.wav"

Case 58: Result = "58.wav"

Case 59: Result = "59.wav"

 

Case 60: Result = "60.wav"

Case 61: Result = "61.wav"

Case 62: Result = "62.wav"

Case 63: Result = "63.wav"

Case 64: Result = "64.wav"

Case 65: Result = "65.wav"

Case 66: Result = "66.wav"

Case 67: Result = "67.wav"

Case 68: Result = "68.wav"

Case 69: Result = "69.wav"

 

Case 70: Result = "70.wav"

Case 71: Result = "71.wav"

Case 72: Result = "72.wav"

Case 73: Result = "73.wav"

Case 74: Result = "74.wav"

Case 75: Result = "75.wav"

Case 76: Result = "76.wav"

Case 77: Result = "77.wav"

Case 78: Result = "78.wav"

Case 79: Result = "79.wav"

 

Case 80: Result = "80.wav"

Case 81: Result = "81.wav"

Case 82: Result = "82.wav"

Case 83: Result = "83.wav"

Case 84: Result = "84.wav"

Case 85: Result = "85.wav"

Case 86: Result = "86.wav"

Case 87: Result = "87.wav"

Case 88: Result = "88.wav"

Case 89: Result = "89.wav"

 

Case 90: Result = "90.wav"

Case 91: Result = "91.wav"

Case 92: Result = "92.wav"

Case 93: Result = "93.wav"

Case 94: Result = "94.wav"

Case 95: Result = "95.wav"

Case 96: Result = "96.wav"

Case 97: Result = "97.wav"

Case 98: Result = "98.wav"

Case 99: Result = "99.wav"

Case Else

End Select

 

sDigitWav = digit2wav(Right(TensText, 1)) 'Retrieve ones place

If sDigitWav <> "" Then

If Result = "" Then

Result = sDigitWav

Else

Result = Result

'Result = Result & "," & sDigitWav

End If

End If

End If

tens2wav = Result

End Function

 

 

'*******************************************

' Converts a number from 1 to 9 into .Wavs *

'*******************************************

Function digit2wav(Digit)

on error resume next

Select Case CInt(Digit)

Case 1: digit2wav = "1.wav"

Case 2: digit2wav = "2.wav"

Case 3: digit2wav = "3.wav"

Case 4: digit2wav = "4.wav"

Case 5: digit2wav = "5.wav"

Case 6: digit2wav = "6.wav"

Case 7: digit2wav = "7.wav"

Case 8: digit2wav = "8.wav"

Case 9: digit2wav = "9.wav"

Case Else: digit2wav = ""

End Select

End Function

Share this post


Link to post
When I use "Voice Guide 5.2 Full Version" on Windows 2003 Server, I can't run all numeric field. For example:

2007. It doesn't give me recorded sound, give me metalic sounds.

This is the same metalic sound file in date format.

Are you specifying this "2007" in a Play module or in a Say Numbers module? In play module specifying just numbers will play DTMF sounds...

 

Could you please post a copy of VoiceGuide's Trace Logs which captures the problem, this will allow us to see what happened.

 

Enable logging by setting the log levels to 10 in VG.INI as per below:

[Log]

 

VoiceGuide=10

Then restart VG and make a test call which demonstrates the problem.

 

Trace files will be created in VG's \log\ subdirectory.

 

Please post the traces and the VoiceGuide script used.

 

When posting traces/scripts please .ZIP them up and post them as attachments.

 

 

I want to

1000000 = 10 Lak in Bangla language . I want make a sound file for 10 Lak.

 

I think best approach where would be to pre-process the number in some other module and split out the last 5 digits from it.

ie. split 100000 into a "10" and a "00000".

 

Then you can use two separate Say Number modules to play the first and second parts of the number respectively.

Share this post


Link to post
When I use "Voice Guide 5.2 Full Version" on Windows 2003 Server, I can't run all numeric field. For example:

2007. It doesn't give me recorded sound, give me metalic sounds.

This is the same metalic sound file in date format.

Are you specifying this "2007" in a Play module or in a Say Numbers module? In play module specifying just numbers will play DTMF sounds...

 

Could you please post a copy of VoiceGuide's Trace Logs which captures the problem, this will allow us to see what happened.

 

Enable logging by setting the log levels to 10 in VG.INI as per below:

[Log]

 

VoiceGuide=10

Then restart VG and make a test call which demonstrates the problem.

 

Trace files will be created in VG's \log\ subdirectory.

 

Please post the traces and the VoiceGuide script used.

 

When posting traces/scripts please .ZIP them up and post them as attachments.

 

 

I want to

1000000 = 10 Lak in Bangla language . I want make a sound file for 10 Lak.

 

I think best approach where would be to pre-process the number in some other module and split out the last 5 digits from it.

ie. split 100000 into a "10" and a "00000".

 

Then you can use two separate Say Number modules to play the first and second parts of the number respectively.

 

[Log]

VoiceGuide=10

 

These system also done this but not solve.

 

2.

Last time I send log file.

 

You reply -

103412.58 0 PlaySoundStart err=[0 play PlaySoundStart ResetWavOutAndContinuePlay=>4,play pss EnsureWaveOutIsOpenAndReady=>tr 5 waveOutOpen(id=0) MMSYSERR_ALLOCATED but hWaveOut = NULL] [G:\TeleBanking System\Bangla Voice\Welcome.wav]

 

How can this error generated ? What's the problem ?

 

Now another time I send these.

 

Plz reply. After buying Voice Guide software I can't run this properly.

 

Now another time I send these.

log.zip

Share this post


Link to post
When I use "Voice Guide 5.2 Full Version" on Windows 2003 Server, I can't run all numeric field. For example:

2007. It doesn't give me recorded sound, give me metalic sounds.

This is the same metalic sound file in date format.

Are you specifying this "2007" in a Play module or in a Say Numbers module? In play module specifying just numbers will play DTMF sounds...

 

Could you please post a copy of VoiceGuide's Trace Logs which captures the problem, this will allow us to see what happened.

 

Enable logging by setting the log levels to 10 in VG.INI as per below:

[Log]

 

VoiceGuide=10

Then restart VG and make a test call which demonstrates the problem.

 

Trace files will be created in VG's \log\ subdirectory.

 

Please post the traces and the VoiceGuide script used.

 

When posting traces/scripts please .ZIP them up and post them as attachments.

 

 

I want to

1000000 = 10 Lak in Bangla language . I want make a sound file for 10 Lak.

 

I think best approach where would be to pre-process the number in some other module and split out the last 5 digits from it.

ie. split 100000 into a "10" and a "00000".

 

Then you can use two separate Say Number modules to play the first and second parts of the number respectively.

 

[Log]

VoiceGuide=10

 

These system also done this but not solve.

 

2.

Last time I send log file.

 

You reply -

103412.58 0 PlaySoundStart err=[0 play PlaySoundStart ResetWavOutAndContinuePlay=>4,play pss EnsureWaveOutIsOpenAndReady=>tr 5 waveOutOpen(id=0) MMSYSERR_ALLOCATED but hWaveOut = NULL] [G:\TeleBanking System\Bangla Voice\Welcome.wav]

 

How can this error generated ? What's the problem ?

 

Now another time I send these.

 

Plz reply. After buying Voice Guide software I can't run this properly.

 

Now another time I send these.

 

Plz don't mind

 

I say other things.

My recorded sound file format - 8000Hz, 16bit Mono. I use Cool Edit 2000 software for record.

Is it correct ?

 

reply

Share this post


Link to post
103412.58 0 PlaySoundStart err=[0 play PlaySoundStart ResetWavOutAndContinuePlay=>4,play pss EnsureWaveOutIsOpenAndReady=>tr 5 waveOutOpen(id=0) MMSYSERR_ALLOCATED but hWaveOut = NULL] [G:\TeleBanking System\Bangla Voice\Welcome.wav]

 

How can this error generated ? What's the problem ?

It's because you are using a modem instead of a Dialogic card. Many modems have such problems with their Wave drivers.

 

You will need to fix the wave drivers so that they work (try re-installing, maybe that will be sufficient).

Share this post


Link to post
103412.58 0 PlaySoundStart err=[0 play PlaySoundStart ResetWavOutAndContinuePlay=>4,play pss EnsureWaveOutIsOpenAndReady=>tr 5 waveOutOpen(id=0) MMSYSERR_ALLOCATED but hWaveOut = NULL] [G:\TeleBanking System\Bangla Voice\Welcome.wav]

 

How can this error generated ? What's the problem ?

It's because you are using a modem instead of a Dialogic card. Many modems have such problems with their Wave drivers.

 

You will need to fix the wave drivers so that they work (try re-installing, maybe that will be sufficient).

 

I say other things.

My recorded sound file format - 8000Hz, 16bit Mono. I use Cool Edit 2000 software for record. I user Aztech Voice Modem.

Is it correct ?

 

reply plz

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×