View Single Post
23 Sep 2012   #
MaximilianPs

Pesaro e Urbino
 
 

Ok, ok... I know, it isn't the most efficent way to made it.. but it work

Code:
Dim speaks, speech, cTime
Select Case Hour(now)
   case 4 	cTime = "Good Morning"
   case 5 	cTime = "Good Morning"
   case 6	cTime = "Good Morning"
   case 7 	cTime = "Good Morning"
   case 8 	cTime = "Good Morning"
   case 9 	cTime = "Good Morning"
   case 10 	cTime = "Good Morning"
   case 11 	cTime = "Good Morning"
   case 12 	cTime = "Good Morning"
   case 13 	cTime = "Good Afternoon"
   case 14 	cTime = "Good Afternoon"
   case 15 	cTime = "Good Afternoon"
   case 16 	cTime = "Good Afternoon"
   case 17 	cTime = "Good Evening"
   case 18 	cTime = "Good Evening"
   case 19 	cTime = "Good Evening"
   case 20 	cTime = "Good Evening"
   case 21 	cTime = "Good Evening"
   case 22 	cTime = "Good Evening"
   case 23 	cTime = "Good Evening"
   case 0 	cTime = "Good Night"
   case 1 	cTime = "Good Night"
   case 2 	cTime = "Good Night"
   case 3 	cTime = "Good Night"
End Select

speaks=cTime & "Max"

Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
My System SpecsSystem Spec