Arkasokak
»
bilgisayarı konuşturma
 |
|
#1
07-03-2006, 09:36 AM
| ||||
| ||||
| bilgisayarı konuşturma 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   |
|
#2
24-03-2007, 01:00 PM
| |||
| |||
|
Alıntı:
empedoCles tarafından gönderildi
 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 |
|
#3
25-03-2007, 09:07 PM
| ||||
| ||||
| ya iyi de zaten microsoftun böyle bişeyi var sam diye yazığın şeyi okuyo  denetim masasında konuşma da     |
Düzenli Mod
