Speaking Clock

Valuater · August 20, 2005

Nice work, for ideas....

How about an Hourly.... and possibly a half hour OPTION to hear the time?

How about and alarm/appointment option. the user sets the time for the alarm/appointment and the alarm will notify the user... say 10 minutes.... then 5 minutes.... or maybe an option to set early warning of the appointment time then...... YOUR LATE (lol)

How about a daily lunch time and work end time for the day

How about an "Occurrence" time. When a file is opened or if mail was recieved or... ???????

The more "stuff" it can do, the more people will like it

just a hobbiest's ideas

8)

Valuater · August 20, 2005

Just found a small problem..

My screen name, as used to say the greetings, is in all capital letters and the voice pronounces each letter rather than a name. maybe you could include;

$var = StringLower("ROBERT")

then speak $var

8)

forever · August 20, 2005

How about an Hourly.... and possibly a half hour OPTION to hear the time?

added for 0.3, expecting 0.3 at sunday or 2 days later.

How about and alarm/appointment option. the user sets the time for the alarm/appointment and the alarm will notify the user...

added for 0.3 or 0.4

How about a daily lunch time and work end time for the day

could you explain that pls? perhaps my english is just to bad to get this...

How about an "Occurrence" time. When a file is opened or if mail was recieved or... ???????

Mail received, yeah could be, but what do you mean with "fileopened"? and do you got more actions which could be announced

My screen name, as used to say the greetings, is in all capital letters and the voice pronounces each letter rather than a name.

as i think this is a critical bug (sounds like shit) i'll up 0.2c in some minutes!

=> upped 0.2c

Edited August 20, 2005 by forever

Valuater · August 20, 2005

WOW... your really on the ball !!!

that was just a few ideas... the lunch and day ending was for workers or people who need to be told when its time to eat ( i don't know, just ideas )

...

How about a timer idea... how long someone is on the internet, a game, working or... maybe even baking cookies while on the computer and the computer says something like

"it's 3:00 and your requested timer is complete."

Maybe this could be done with TimeDiff()

...

AND

if your really good...

since your really into building this... maybe you could add "reading documents" on the clipboard with clipget() or something... with an option to place a "time stamp" on the file

PS

I really appreciate someone who tries... and you do. Also your English is just fine!!!

8)

forever · August 20, 2005

How about a timer idea...

Perhaps you take a look in my first post (opener) at the TODOLIST :-)

the lunch and day ending

say me the times you'r thinking off, ill'try it.

maybe you could add "reading documents"

Already working on. But not for the SpeakingClock... its coming with another name. Dunno when i'll relase, perhaps i put clock and that together and call it SpeakingXP ...well lets see.

i542 · August 20, 2005

Perfect script. Work good!

leecole · August 20, 2005

Hey leecole, could you give me some Informations, what you r doing.
I'll try to helpyou.
Give me some Information about your Software Setup and say me if you'r doing it this way:
start speakingclock.exe
press configure
press search voices
the drop down turns blank
open thedrop down
...see if it found microsoft sam!
anyone wants more features in this?
<{POST_SNAPBACK}>

I edit config.ini and remove 'Microsoft Sam' and then start speakingclock, of course

it says nothing. I right click icon select config, do search, nothing. Drop down contains no voice. If 'Microsoft Sam' is there, and it oviouslly is, why doesn't it show up. The reason I tried this, is I installed other voices and search didn't find them. 'Microsoft Sam' shows up because it was and is already present in config.ini. I am just attempting to learn how to get alternative voices.

Lee Cole

Just retried my own experiment and it did find Microsoft Sam but still didn't find

Mivrosoft Mary or Microsoft Mike. I must have erred in installing those two voices.

My apologies.

Lee Cole

Edited August 20, 2005 by leecole

forever · August 20, 2005

Hey peeps, i need your help.

Which of the features listed you want to see first?

And do i forgot any feature? Add your opinion.

The decision is taken this evening, the most-wanted feature will come up sunday or already this evening! lets see.

° Countdown function (last 5 secs it counts down)

° Alarm function

° an Hourly.... and possibly a half hour OPTION to hear the time?

° a daily lunch time and work end time for the day´

° mail recieved alert

I have another idea, and since i dont work in a company that could need it i'm not sure if it could be needed. Please say what you think:

How about a "Clockserver" which is runned by the sys ops.

It could announce specified things on all systems which are connected to the "clockserver".

Just for an example:

"New Virus is out please don't do this ... and this and that"

"Today we leave earlier cause we had a accident in xxxx"

"Time for launch, your pause begins. (13:00)"

"Please stop looking porn sites/You're not at work to look at porn sites."

...and so on. What do you think?

Edited August 20, 2005 by forever

LxP · August 20, 2005

Out of the features you mentioned I would most likely use the alarm and [half-]hourly ones.

BigDod · August 20, 2005

I would vote for the alarm and mail receive.

BTW

I am having difficulty downloading and installing new voices, any pointers ? :whistle:

Valuater · August 20, 2005

There's the best idea yet....

place a link or Inget() to download voices

8)

Valuater · August 20, 2005

How about this idea

$pos = MouseGetPos()
    If $pos[0] > @DesktopWidth - 60 And $pos[1] > @DesktopHeight - 25 Then
    ;Speak the time
    EndIf

if the mouse is placed over the clock.... it says the time (win xp)

8)

BigDod · August 20, 2005

There's the best idea yet....
place a link or Inget() to download voices
8)
<{POST_SNAPBACK}>

Nice one Valuater :whistle:

forever · August 21, 2005

I'm on a problem: shall it write the password of the email account cleartext into the ini file?

I don't know any encryptions which can be used w/autoit

LxP · August 21, 2005

How about just detecting the most common Email programs' 'You have new messages' prompts? Then you need not worry about having to store passwords and connect to mail servers.

Frozenyam · August 21, 2005

I'm on a problem: shall it write the password of the email account cleartext into the ini file?
I don't know any encryptions which can be used w/autoit
<{POST_SNAPBACK}>

AutoIt comes with an encryption/decipher example program. You could compile it and have it do the encryption/deciphering of passwords. Also, I've seen guys in the forums with programs that do the same, or at least links to such programs in their sigs. You might try that?

forever · August 21, 2005

i'll take a look at it. but would it be that bad if the pass is saved at ini file?

How about just detecting the most common Email programs' 'You have new messages' prompts? Then you need not worry about having to store passwords and connect to mail servers.

That's not the way i'm working. I really like to make things dynamic. And i really can't make a list of all email progs, and the most-common wouldn't be enough for all ppl. Edited August 22, 2005 by forever

leecole · August 24, 2005

forever,

Here's my version of a animated speaking clock.

;---------------------------------------------------------------------------
; Animated Clock using MSAGENT
; Not extreamly accurate, could be improved by including seconds in the delay calculations
; Has my name imbeded - change to your own name or use some Audit function to obtain users name
; It gives saltations and the time on initilization, then sleeps until next Quarter hour
; Upon awakening, gives time only (without salutations)
; WINDOWSKEY-S to exit

#include<guiconstants.au3>
Global Const $Whisper="Whisper",$Normal="Normal",$Master="Lee Cole"
Global $Hour=0, $Min=0,$AM="AM",$PM="PM",$Time="",$text='Hello ' & $Master & " "  & @CRLF,$Delay=0,$Clock=0,$Wh
Global $Names[20],$Paths[20],$NamesIndex=0,$msg
Dim $I=0

HotKeySet ("#s", "QuitEverything")
$Wh=GuiCreate("MSAgent Clock", 280, 100)
GuiCtrlCreateLabel("Select Character", 15, 10, 125, 20)
GuiCtrlCreateLabel("Select Animation", 150, 10, 125, 20)
$combo_name = GuiCtrlCreateCombo("", 10, 35, 125, 20)
$NamesIndex=FindSomeACS($Names,$Paths,20)
GuiCtrlSetData($combo_name,ShowList($Names,$NamesIndex))
$combo_1 = GuiCtrlCreateCombo("", 145, 35, 125, 20)
$btn_submit = GuiCtrlCreateButton("Submit", 80, 65, 125, 20)
GuiSetState()
$Current= @MIN
Select
Case $Current>=0 And $Current<=14
    $Delay= 14 - $Current
Case $Current>=15 And $Current<=29
    $Delay=29 - $Current
Case $Current>=30 And $Current<=44 
    $Delay= 44 - $Current
Case $Current>=45 And $Current<=59
    $Delay= 59 - $Current
EndSelect
While 1     
    If Not $Clock Then $msg = GUIGetMsg()
    Select
    Case $msg = $combo_name
        $oAgentName = GuiCtrlRead($combo_name)
        $oAgentPath = @WindowsDir & "\Msagent\Chars\" & $oAgentName & ".acs"
        For $I=1 To $NamesIndex
            If $oAgentName & ".acs"=$Names[$I] Then  
                $oAgentPath = $Paths[$I] & $oAgentName & ".acs"
                ExitLoop
            EndIf
        Next
        $oAgent = ObjCreate("Agent.Control.2")
        $oAgent.Connected = "True"
        $oAgent.Characters.Load($oAgentName, $oAgentPath)
        $oChar = $oAgent.Characters($oAgentName)
        For $name in $oChar.AnimationNames
        GuiCtrlSetData($combo_1, $name & "|")
        Next
    Case $msg = $btn_submit
        if Not $Clock Then
            $Clock=1
            $anim = GuiCtrlRead($combo_1)
            GUIDelete($Wh);   
        EndIf
            $oChar.Show
            $Hour= @HOUR
            $Min= Int(@MIN)
            Select
            Case $Hour=12
                if $Min Then
                    $Time="The time is " & Int($Min) & " minutes past noon"
                Else
                    $Time="The time is noon "
                EndIf
            Case $Hour>12
                $Hour=$Hour - 12
                if $Min Then
                    $Time="The time is " & Int($Min) & " minutes past " & int($Hour) & $PM
                Else
                    $Time="The time is " & int($Hour) & $PM
                EndIf
            Case $Hour<12
                if $Min Then
                    $Time="The time is " & Int($Min) & " minutes past " & int($Hour) & $AM
                Else
                    $Time="The time is " & int($Hour) & $AM
                EndIf
            EndSelect
        $text = $text & $Time
    ;$oChar.MoveTo(800,550)
        $oChar.MoveTo(800,580)
        $oChar.speak($text)
        $oChar.Play("Wave")
        $oStatus = $oChar.Play($anim)   ; Not all animations end
        While $oStatus.Status > 0
            Sleep(100)
             If $msg = $GUI_EVENT_CLOSE Then ExitLoop
        WEnd
        $oChar.Hide
        $text =""
    EndSelect
    If  $msg = $btn_submit Then; Loop until Windows-s is hit
        Sleep($Delay * 60 * 1000)
        $Delay=15; After the first time wake every quarter-hour
    EndIf
     If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

Func FindSomeACS(ByRef $_Names, ByRef $_Paths,$Max)
    Local $path1=@WindowsDir & "\Msagent\Chars\",$path2=@ProgramFilesDir & "\Microsoft Office\",$Cnt=0
    Local $search,$search2
    If FileExists($path1) Then 
        $search=FileFindFirstFile($path1 & "*.acs")
        If $search <> -1 Then
            While 1
                $file = FileFindNextFile($search) 
                If @error Then ExitLoop
                $Cnt=$Cnt+1
                $_Names[$Cnt]=$file
                $_Paths[$Cnt]=$path1
                If $Cnt=$Max-1 Then ExitLoop
            WEnd
            FileClose($search)
        EndIf
    EndIf
    If FileExists($path2) Then 
        $search=FileFindFirstFile($path2 & "office*")
        If $search <> -1 Then
            While 1
                $Dir = FileFindNextFile($search) 
                If @error Then ExitLoop
                $attrib = FileGetAttrib($path2 & $Dir)
                If StringInStr($attrib,"D") Then
                    $search2=FileFindFirstFile($path2 &  $Dir & "\*.acs")
                    If $search2 <> -1 Then
                        While 1
                            $file = FileFindNextFile($search2) 
                            If @error Then ExitLoop
                            $Cnt=$Cnt+1
                            $_Names[$Cnt]=$file
                            $_Paths[$Cnt]=$path2 &  $Dir & "\"
                            If $Cnt=$Max-1 Then ExitLoop
                        WEnd
                        FileClose($search2)
                    EndIf
                EndIf
                $Cnt=$Cnt+1
                $_Names[$Cnt]=$file
                $_Paths[$Cnt]=$path1
                If $Cnt=$Max-1 Then ExitLoop
            WEnd
            FileClose($search)
        EndIf
    EndIf
Return $Cnt
EndFunc

Func QuitEverything()
    $msg=$GUI_EVENT_CLOSE
    Exit
EndFunc

Func ShowList(ByRef $names,$Index)
    Local $Sep="|",$string=""
    If $Index Then
        $string=$string & StringTrimRight($names[1],4)
    Else
        Return ""
    EndIf
    For $i=2 To $Index Step 1
        $string=$string & $Sep & StringTrimRight($names[$i],4)
    Next
    Return $string
EndFunc

Enjoy, Lee Cole

Edited September 15, 2005 by leecole

forever · February 9, 2006

nice done...

since you've done this topic (clock).. i'm gonna look for something other i could make :s

(and yes: i know that my answer to this thread is a bit ..late)

Edited February 9, 2006 by forever

FuZi0h · February 10, 2006

sounds nice

Sign In

Speaking Clock

Recommended Posts

Valuater

Top Posters In This Topic

Top Posters In This Topic

Valuater

forever

Valuater

forever

i542

leecole

forever

LxP

BigDod

Valuater

Valuater

BigDod

forever

LxP

Frozenyam

forever

leecole

forever

FuZi0h

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta