How to speak your PC./ como hacer hablar tu pc.
Moderator: Rathinagiri
- luisvasquezcl
- Posts: 1258
- Joined: Thu Jul 31, 2008 3:23 am
- Location: Chile
- Contact:
How to speak your PC./ como hacer hablar tu pc.
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
#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.
Hi friend,
WOW.... very very nice, thank for share this nice function.
It´s work on WIN7 Ultimate
My best regards,
WOW.... very very nice, thank for share this nice function.
It´s work on WIN7 Ultimate
My best regards,
- Roberto Lopez
- HMG Founder
- Posts: 4004
- Joined: Wed Jul 30, 2008 6:43 pm
Re: How to speak your PC./ como hacer hablar tu pc.
Very niceluisvasquezcl 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
It works in XP-SP3 too.
Regards/Saludos,
Roberto
(Veritas Filia Temporis)
Roberto
(Veritas Filia Temporis)
Re: How to speak your PC./ como hacer hablar tu pc.
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
With best regards.
Sudip
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
Sudip
Last edited by sudip on Sun Jan 24, 2010 4:24 am, edited 1 time in total.
With best regards,
Sudip
Sudip
Re: How to speak your PC./ como hacer hablar tu pc.
Hi friends,
SUDIP, nice code, Very fun . Thanks for sharing.
My best regards,
SUDIP, nice code, Very fun . Thanks for sharing.
My best regards,
- Rathinagiri
- Posts: 5471
- Joined: Tue Jul 29, 2008 6:30 pm
- DBs Used: MariaDB, SQLite, SQLCipher and MySQL
- Location: Sivakasi, India
- Contact:
Re: How to speak your PC./ como hacer hablar tu pc.
Ha Ha!
Super! It is just that easy!? Great.
Super! It is just that easy!? Great.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
South or North HMG is worth.
...the possibilities are endless.
- mustafa
- Posts: 1158
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: How to speak your PC./ como hacer hablar tu pc.
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
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
- Attachments
-
- Music_Tone.zip
- (1.13 MiB) Downloaded 741 times
- mustafa
- Posts: 1158
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: How to speak your PC./ como hacer hablar tu pc.
Here I leave a screenshot of Clipper
- Attachments
-
- Clipper.jpg (51.75 KiB) Viewed 6617 times
Re: How to speak your PC./ como hacer hablar tu pc.
al compilarlo me genera el error
funcion indefinida speak
GRACIAS
funcion indefinida speak
GRACIAS
Re: How to speak your PC./ como hacer hablar tu pc.
Fine works!
Thanks Luis and Sudip.
But Polish language sounds very poor
Thanks Luis and Sudip.
But Polish language sounds very poor