Global Constant

[JohnWang]

I have declared $phrase to be a global variable, however, everything I ran the screen the compiler say the variable is not declared. Thanks for the help in advance.

AutoItSetOption("MustDeclareVars",1)

TextSpeech("This was a triumph.")
TextSpeech("I'm making a note here:")
TextSpeech("HUGE SUCCESS.")
TextSpeech("It's hard to overstate")
TextSpeech("my satisfaction.")
TextSpeech("Aperture Science")
TextSpeech("We do what we must")
TextSpeech("because we can.")
TextSpeech("For the good of all of us.")
TextSpeech("Except the ones who are dead.")
TextSpeech("But there's no sense crying")
Global $phrase

Func TextSpeech($msg)
    Dim $PID,$Handle
    If Not ProcessExists("rundll32.exe") Then
        Run("control speech")
        WinWait("Speech Properties","You can control the voice properties, speed, and other options for text-to-speech translation")
        $PID = WinGetProcess("Speech Properties","You can control the voice properties, speed, and other options for text-to-speech translation")
        $Handle = WinGetHandle("Speech Properties","You can control the voice properties, speed, and other options for text-to-speech translation")
        $phrase = $Handle
    EndIf
        ControlSetText($phrase,"",1017,$msg)
        WinSetState("Speech Properties","You can control the voice properties, speed, and other options for text-to-speech translation",@SW_Hide)
        Sleep(100)
        ControlClick("Speech Properties","",1019)
        Sleep(1000)
    ;MsgBox(0,"STOP",ControlgetText($Handle,"",1019))
;   While ControlgetText($Handle,"",1019) = "S&top"
;       Sleep(500)
;   Wend
    ;$ret = ProcessClose("rundll32.exe")
EndFunc

expandcollapse popup

            
        

        

        
    

    

    




    Link to comment
    
        
    
    
    

    
    Share on other sites
    

    
        
            

    

        
            

    

        
            

    

        
            

    

        
    


    
    More sharing options...

    


    

                    
                    
                    
                

                    

                    
                    





    

    

    
        
            
                


    
        
    

                
                
                    
                        

                    
                
            
        
        
            
                


Valuater
            
            
                Posted March 8, 2008
                
            
        
    
    
        


Valuater
            
        
        
            
                
                    


    
        
    

                    
                    
                        

                    
                
            
            
                MVPs
                
                    
                
            
            
                
                    
                        
                            
                                
                            
                                 11.1k
                            
                                
                            
                        
                        
                            
                                
                                    
                                        
                                        7
                                
                                    
                                
                            
                        
                    
                
            
            
                

            
        
    
    
        



    
        
            
                
                    
                    
                    
                    
                    
                
            
            
                
                    
                    
                        
                        
                            Share
                        
                        
                        
                        
                        
                            
                                
                            
                            
                            
                            
                            
                            
                        
                    
                
                
            
        

        
            Posted March 8, 2008
            
            
                
                
            
        
    

    

    

    
        
        
            Might want to look at this

TextSpeech("This was a triumph.")
TextSpeech("I'm making a note here:")
TextSpeech("HUGE SUCCESS.")
TextSpeech("It's hard to overstate")
TextSpeech("my satisfaction.")
TextSpeech("Aperture Science")
TextSpeech("We do what we must")
TextSpeech("because we can.")
TextSpeech("For the good of all of us.")
TextSpeech("Except the ones who are dead.")
TextSpeech("But there's no sense crying")
Global $phrase

; voice read text
; Author erifash ( and others )


Func TextSpeech($s_text)
    Local $o_speech
    $o_speech = ObjCreate("SAPI.SpVoice")
    If IsObj($o_speech) Then $o_speech.Speak ($s_text)
    $o_speech = ""
EndFunc ;==>_TalkOBJ

8)

[JohnWang]

Might want to look at this

TextSpeech("This was a triumph.")
TextSpeech("I'm making a note here:")
TextSpeech("HUGE SUCCESS.")
TextSpeech("It's hard to overstate")
TextSpeech("my satisfaction.")
TextSpeech("Aperture Science")
TextSpeech("We do what we must")
TextSpeech("because we can.")
TextSpeech("For the good of all of us.")
TextSpeech("Except the ones who are dead.")
TextSpeech("But there's no sense crying")
Global $phrase

; voice read text
; Author erifash ( and others )


Func TextSpeech($s_text)
    Local $o_speech
    $o_speech = ObjCreate("SAPI.SpVoice")
    If IsObj($o_speech) Then $o_speech.Speak ($s_text)
    $o_speech = ""
EndFunc ;==>_TalkOBJ

8)

WOOOOOOOOOOOOOOW, I bow to your skills!

lol, anyways...

Thanks! That really helps!

[Valuater]

Welcome!

8)

[martin]

I have declared $phrase to be a global variable, however, everything I ran the screen the compiler say the variable is not declared. Thanks for the help in advance.

The variable $phrase is declared after you have called the function which uses it. If you had declared it at the start it would have been ok.