Private Sub cmdToSpeech_Click()Atau Project Jadi Download Now
Set objtexttospeech = CreateObject("SAPI.spvoice")
objtexttospeech.speak Text1.Text
End Sub
Terima Kasih Sudah Membaca Artikel Cara Membuat Komputer Berbicara
|
Kang Rois
|
;
Private Sub cmdToSpeech_Click()Atau Project Jadi Download Now
Set objtexttospeech = CreateObject("SAPI.spvoice")
objtexttospeech.speak Text1.Text
End Sub
|
|
Copyright © 2012 Rois Pedia Powerd By Blogger.com
|
|