Bilgisayarı Konuşturma

[DeadGhost]

dll'ye bilgi göndererek bilgisayarı konuşturun

' project>reference bölümünden microsoft speech lib. ekleyin
Dim konus As New SpeechLib.SpVoice
Private Sub Form_Load()
Text1.Text = "buraya istediğini yaz"
End Sub

Private Sub command1_Click()
konus.Speak Text1.Text
End Sub

 

[OptiMistics]

Teşekkürler.

 

[kutlucan1]

Teşekkürler.

 

[JooM]

Teşekkür Ederim ​

 

[Yenidenben]

Olmuyor