Voice announcement

**alexanderfoti** · 09-03-2010, 06:39 AM

Hi all.

I was just having a think.

Would it be possible for my car pc to announce various things when I start up to go on a journey, Things like, The current outside temperature is 34degreess c and the weather today is going to be sunny, you are listening to *song name*...

that kind of thing?

Is this possible with the phidgets plugin for centrafuse or anything for rr?

Thanks in Advance.

**Bugbyte** · 09-03-2010, 08:35 AM

Yes, this is possible. I'm not sure anyone has coded up an 'announcement' plugin though.

**pierrotm777** · 09-03-2010, 10:01 AM

May be a little autoit script ?

Code:

#Region ### START Koda GUI section ###
;change de prhrase selon l'heure de la journée!
	Switch @HOUR
		Case 6 To 11
			$msg = SplashTextOn("Warning !", "Good Morning " & _
                "Its a wonderfull day no ?", 250, 60, -1, -1, 0, "", 12, 800)
			sleep(2000)
			SplashOff()
		Case 12 To 17
			$msg = SplashTextOn("Warning !", "Good Afternoon " & _
                "Its a wonderfull day no ?", 250, 60, -1, -1, 0, "", 12, 800)
			sleep(2000)
			SplashOff()
		Case 18 To 21
			$msg = SplashTextOn("Warning !", "Good Evening " & _
                "It was a wonderfull day no ?", 250, 60, -1, -1, 0, "", 12, 800)
			sleep(2000)
			SplashOff()
		Case Else
			$msg = SplashTextOn("Warning !", "What are you still doing up?", 250, 60, -1, -1, 0, "", 12, 800)
			sleep(2000)
			SplashOff()
	EndSwitch
;fin heure

If ProcessExists("RideRunner.exe") Then
	$rr = ObjCreate("RideRunner.SDK")
Else
	Exit
EndIf

SpeakSongInfo()

Func SpeakSongInfo()
    $sapi = ObjCreate("SAPI.SpVoice")
        if @error then
            MsgBox(0, '', "Please ensure that you have Sapi Installed")
            Exit
        EndIf
    $CurrentVolume = $rr.getinfo ("VOL;Winamp")
    $rr.Execute("SetVol;Winamp;" & "50")
    $artist = $rr.getinfo ("tagartist")
    $Title = $rr.getinfo ("tagtitle")
    $sapi.Speak ("You are listening to " & $Title & " By " & $artist)
    $sapi = ""
    $rr.Execute("SetVol;Winamp;" & $CurrentVolume)
EndFunc