Friday, July 30, 2010

Try kod komputer bercakap...VB.net

Public Class Form1
Dim SAPI
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SAPI = CreateObject("sapi.spvoice")
SAPI.speak(TextBox1.Text)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SAPI = CreateObject("sapi.spvoice")
SAPI.speak("Are you sure want to exit")
MsgBox("Are you sure want to exit")
Me.Close()
End Sub
End Class

0 comments:

Post a Comment