Page 1 of 3
How to speak your PC./ como hacer hablar tu pc.
Posted: Tue Jan 19, 2010 6:22 pm
by luisvasquezcl
Hi, this is the code:
#include <minigui.ch>
Function Main
oVoz = CreateObject("SAPI.SpVoice")
oVoz:Speak("Harbour Minigui")
oVoz:Speak("La mejor libreria GUI")
oVoz:= NIL
Return nil
works with Windows XP SP2 that is my setup, I do not know if it works with
other versions.
Tested and works well .... Enjoy
Best regards,
Luis Vasquez
Re: How to speak your PC./ como hacer hablar tu pc.
Posted: Tue Jan 19, 2010 8:26 pm
by Vanguarda
Hi friend,
WOW.... very very nice, thank for share this nice function.
It´s work on WIN7 Ultimate
My best regards,
Re: How to speak your PC./ como hacer hablar tu pc.
Posted: Tue Jan 19, 2010 9:47 pm
by Roberto Lopez
luisvasquezcl wrote:Hi, this is the code:
#include <minigui.ch>
Function Main
oVoz = CreateObject("SAPI.SpVoice")
oVoz:Speak("Harbour Minigui")
oVoz:Speak("La mejor libreria GUI")
oVoz:= NIL
Return nil
works with Windows XP SP2 that is my setup, I do not know if it works with
other versions.
Tested and works well .... Enjoy
Best regards,
Luis Vasquez
Very nice
It works in XP-SP3 too.
Re: How to speak your PC./ como hacer hablar tu pc.
Posted: Wed Jan 20, 2010 9:37 am
by sudip
Hello Luis Vasquez,
Thanks a lot
It works for me also. It can be used as error message !!!!
I just created a small funny sample with your code. Have fun
Code: Select all
#include "minigui.ch"
Function main()
define window winMain at 0, 0 width 400 height 300 title "Voice Testing" main
@ 10, 10 label label_1 value "Enter Test:"
@ 50, 10 editbox edit_1 width 380 height 180
@ 240, 150 button button_1 caption "Speak Now" action SpeakIt(winMain.edit_1.value)
end window
winMain.center
winMain.activate
return nil
Function SpeakIt(cString)
oVoz = CreateObject("SAPI.SpVoice")
oVoz:Speak(cString)
oVoz:= NIL
return nil
With best regards.
Sudip
Re: How to speak your PC./ como hacer hablar tu pc.
Posted: Wed Jan 20, 2010 11:58 am
by Vanguarda
Hi friends,
SUDIP, nice code, Very fun . Thanks for sharing.
My best regards,
Re: How to speak your PC./ como hacer hablar tu pc.
Posted: Wed Jan 20, 2010 3:14 pm
by Rathinagiri
Ha Ha!
Super! It is just that easy!? Great.
Re: How to speak your PC./ como hacer hablar tu pc.
Posted: Wed Jan 20, 2010 4:01 pm
by mustafa
Hello here I leave a hos old Clipper program to play melodies
is the version compiled with xHarbour console mode.
HMG and converted into work, so never dies Clipper
A Greeting
Hola aquí hos dejo un viejo programa de Clipper para tocar melodias
está la versión compilada con xHarbour modo consola.
Reconvertido en HMG y funciona , por lo tanto Clipper nunca Muere
Un Saludo
Mustafa
Re: How to speak your PC./ como hacer hablar tu pc.
Posted: Wed Jan 20, 2010 4:03 pm
by mustafa
Here I leave a screenshot of Clipper
Re: How to speak your PC./ como hacer hablar tu pc.
Posted: Wed Jan 20, 2010 4:26 pm
by jucar_es
al compilarlo me genera el error
funcion indefinida speak
GRACIAS
Re: How to speak your PC./ como hacer hablar tu pc.
Posted: Wed Jan 20, 2010 5:23 pm
by mol
Fine works!
Thanks Luis and Sudip.
But Polish language sounds very poor
