Selasa, 24 Februari 2009

Demo Speak With VB 6.0

This program is made with Visual Basic 6.0 and served as simple as posible. Only one text box and one command botton needed.
You only need 60 second more or less to reed this article, cuz it's only one page only Wahahahahahahaha

Read button
Private Sub Cmdbaca_Click()
Call BacaTeks(Form1.Text1.Text)
End Sub

Playing the API sound
Public Sub BacaTeks(ByVal TextString As String)
Set SuaraTeks = CreateObject("SAPI.SpVoice")
Call SuaraTeks.Speak(TextString, SPF_DEFAULT)
End Sub

You dont believe????
Try it for your self.....

For download the source code and .exe you can find at the writer's site.
http://www.poniponi.tk (poni, ferdianelli@yahoo.com)

0 comments: