Announcement

Collapse
No announcement yet.

Voice announcement

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Voice announcement

    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.

  • #2
    Yes, this is possible. I'm not sure anyone has coded up an 'announcement' plugin though.
    Originally posted by ghettocruzer
    I was gung ho on building a PC [until] just recently. However, between my new phone having internet and GPS and all...and this kit...Im starting to have trouble justfiying it haha.
    Want to:
    -Find out about the new iBug iPad install?
    -Find out about carPC's in just 5 minutes? View the Car PC 101 video

    Comment


    • #3
      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

      Comment

      Working...
      X