2017-07-03 85 views
-1

我正在试图用简单的程序来演讲,并且无法弄清楚如何让它说随机的东西。这就是我做的,但它不起作用。我发现谷歌的例子,但只有数字,我不知道如何做到这一点。那么,如何让程序随机发出“你好,你好还是嘿”?如何获得随机发言

If e.KeyCode = Keys.Enter Then 
     Dim SAPI 
     Dim r As Random = New Random 
     SAPI = CreateObject("SAPI.spvoice") 
     SAPI.Speak(r.Next("Hello", "Hi", "Hey")) 
    End If 
+0

首先向我们展示你有什么作品,什么不作用。我建议从代码中取出随机功能,直到你能说出_something_然后添加功能为止。 – TomServo

+0

您在“System.Speech”程序集中没有使用类的任何特定原因? –

回答

0

创建一个字符串数组并随机调用正在调用的值。

Dim speech() As String = {"Hello", "Hi", "Howdy"} 

If e.KeyCode = Keys.Enter Then 
    Dim SAPI 
    Dim r As Random = New Random 
    SAPI = CreateObject("SAPI.spvoice") 
    SAPI.Speak(speech(r.Next(0, speech.Length))) 
End If