Jump to content

Talk2Me

i542

By i542
in AutoIt Example Scripts

 Share

Recommended Posts

i542 Universalist

i542

Posted
Posted (edited)

Hi,

I created that small program only for fun. I think and you will cheer when hear how Microsoft Sam reading your document or speaking non-English text.

So, open that ZIP which includes:

  • Script compiled to EXE
  • Source code for your additions
  • Readme file (you need MS Word to read it)
Current version: 1.1

Don't worry, be :D

i542

P.S. My English is maybe bad... :D

EDIT: 0.1 deleted, now you can download 1.2 here. See post at end for other informations.

Talk2Me_1.2.zip

Edited by i542

I can do signature me.

jcorr1339 Seeker

jcorr1339

Posted
Posted

I did something similar.

Check it out.

#include <GUIConstants.au3>
Opt ( "GUICloseOnESC", 0)
Opt ( "GUIOnEventMode", 1)

_StartHereGUI()

    While 1 = 1
        Sleep(30)
    Wend

Func _StartHereGUI();Builds the first GUI window;
        GuiCreate("Computer Speak", 452, 340,(@DesktopWidth-452)/2, (@DesktopHeight-391)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
        GuiCtrlCreateButton("Speak", 70, 265, 70, 30)
        GuiCtrlCreateButton("Clipboard", 190, 265, 70, 30)
        GuiCtrlCreateButton("Exit", 310, 265, 70, 30)
        GuiCtrlCreateInput("", 205, 40, 190, 20)
        GuiCtrlCreateLabel("", 70, 80, 320, 150)
        GuiCtrlCreateLabel("Have the computer speak:", 70, 40, 130, 30)
        GUICtrlSetOnEvent(3, "_SpeakButton");OnEvent functions are only called when GUIOnEventMode is set.
        GUICtrlSetOnEvent(4, "_ClipBoardBtn");OnEvent functions are only called
        GUICtrlSetOnEvent(5, "_Exit");OnEvent functions are only called
        GUISetOnEvent ($GUI_EVENT_CLOSE, "_ClosedBtn")
        GUISetState(@SW_SHOW)
    EndFunc

Func _SpeakButton();Action for the speak Btn;

        $Input = GUICtrlRead(6)
        _StartHereGUI()
        GUISetState(@SW_HIDE)
        $talk = ObjCreate("SAPI.SpVoice")
        $talk.Speak($Input)
        EndFunc

Func _ClipBoardBtn();Action for the clipboard Btn;
        $clip = ClipGet()
        GUICtrlSetData(7,$clip)
        $talk = ObjCreate("SAPI.SpVoice")
        $talk.Speak($clip)
    EndFunc


Func _Exit();Action for the close Btn;
  GUIDelete ()
        Exit
    EndFunc

Func _ClosedBtn();Action for the close Btn;
        GUIDelete ()
        Exit
    EndFunc
  • 2 weeks later...
i542 Universalist

i542

Posted
  • Author
Posted (edited)

New version! It is 1.0!

Here it is. I added 'Import from clipboard' and fixed something - color in previous version doesn't work.

jcorr1339, I tryed your code, but I think that is more functional... :D

Enjoy!

i542

EDIT: Removed attachment due to lack of space :wacko:

Edited by i542

I can do signature me.

Xenobiologist Universalist

Xenobiologist

Posted
Posted

HI,

here is something you can implement to play around with.

#include <inet.au3>
Dim $voice = ObjCreate("Sapi.SpVoice")
Speak(@IPAddress1 , 0.75 , 100)
MsgBox(0, "IP-Addresse", "Deine IP-Adresse lautet: " & @IPAddress1)
Func Speak($Text, $Rate, $Vol)
    $voice.Rate = $Rate
    $voice.Volume = $Vol
    $voice.Speak($Text)
EndFunc  ;==>Speak

So, you can set up the speed. Hope you'll like it.

Nice script!

So long,

Mega

Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

i542 Universalist

i542

Posted
  • Author
Posted

OK, th.meger, i tryed your code. And yes, it will be implented in v1.1 :D , but with some changes.

For other users of AutoIt forum: when I post new versions, 0.1 will be deleted. I think it will be tomorrow.

Have fun with Talk2Me!

i542.

I can do signature me.

i542 Universalist

i542

Posted
  • Author
Posted (edited)

Hi again! I decided 0.1 stays here :D but this is really better...

This version 1.1 has TWO toolboxes - one for frequently used functions and one for playing MP3. Then, you now can choose voices: Mary, Mike and Sam. Maybe it doesn't working well but you can change speed (norm - max). Hopefully you like this program...

i542

EDIT: Attachment deleted, look first post.

Edited by i542

I can do signature me.

Xenobiologist Universalist

Xenobiologist

Posted
Posted

HI,

nice. Would be easier when you change your first post. Otherwise you have to search through the thread to find the latest version.

So long,

Mega

Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

lukeneo Seeker

lukeneo

Posted
Posted

Hi,

I created that small program only for fun. I think and you will cheer when hear how Microsoft Sam reading your document or speaking non-English text.

So, open that ZIP which includes:

  • Script compiled to EXE
  • Source code for your additions
  • Readme file (you need MS Word to read it)
Current version: 1.1

Don't worry, be :wacko:

i542

P.S. My English is maybe bad... :D

EDIT: 0.1 deleted, now you can download 1.1 here.

EDIT 2: For 1.1: There was be one error, so 14 peoples who are downloaded Talk2Me 1.1, download that. Problem is be in changing voices. Thanks.

hi ....

is this program talks other languages ?

is there any options to configure prior that ?

i542 Universalist

i542

Posted
  • Author
Posted

hi ....

is this program talks other languages ?

is there any options to configure prior that ?

1. No, that program can't talk in some other languages. You can set three voices: MS Mary, Mike and Sam. (you can write at your language but then don't talks enough clear).

2. Only what you can configure is voices and speed.

I am included code you can change. PLZ tell me if is some popular voice which I don't know, so I can implent it in 1.2. :D

i542

I can do signature me.

i542 Universalist

i542

Posted
  • Author
Posted

Well, you now hav tray function for keeping T2M always runned. :D

Have fun with 1.2. See first post for download!

i542

I can do signature me.

taurus905 Universalist

taurus905

Posted
Posted

i542,

Very cool program. :D

Have you considered highlighting each word in the text as it is read? I think it would be good for learning English, or other languages.

taurus905

"Never mistake kindness for weakness."-- Author Unknown --"The highest point to which a weak but experienced mind can rise is detecting the weakness of better men."-- Georg Lichtenberg --Simple Obfuscator (Beta not needed.), Random names for Vars and Funcs

i542 Universalist

i542

Posted
  • Author
Posted

i542,

Very cool program. :D

Have you considered highlighting each word in the text as it is read? I think it would be good for learning English, or other languages.

taurus905

OK. Do you know some good TTS voice to I implent it in script?

i542

I can do signature me.

taurus905 Universalist

taurus905

Posted
Posted

OK. Do you know some good TTS voice to I implent it in script?

i542

i542,

I'm sorry. I don't.

Maybe someone with more knowledge than myself can help you.

taurus905

"Never mistake kindness for weakness."-- Author Unknown --"The highest point to which a weak but experienced mind can rise is detecting the weakness of better men."-- Georg Lichtenberg --Simple Obfuscator (Beta not needed.), Random names for Vars and Funcs

i542 Universalist

i542

Posted
  • Author
Posted

i542,

I'm sorry. I don't.

Maybe someone with more knowledge than myself can help you.

taurus905

:D sad.

i542

I can do signature me.

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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...