منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود صغير يقوم بقراءه النص من التكست بوكس

Try

Catch ex As Exception

End Try
Dim sapt
sapt = CreateObject("sapi.spvoice")
sapt.speak(TextBox1.Text)

هو بيقرأ انجليزي
ازاي نخليه يقرأ فرنساوي

فقط اكتب النص بالفرنسية .

شكرا على الموضوع و لكن يمكن القراءة للغة الانجليزية فقط
اكتب رقم 5 سوف يتم قراءته Five و ليس Cinq
كما انصح نفسي و جميع المبرمجين بتنظيم الشفرات

PHP كود :

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim SpeakEnglish
            SpeakEnglish = CreateObject("sapi.spvoice")
            SpeakEnglish.speak(TextBox1.Text)
        Catch ex As Exception
        End Try
    End Sub
End Class 

اليك موضوع كيفية قراءة اللغة الفرنسية
http://vb4arb.com/vb/showthread.php?tid=26031

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

برير مسبل

amma

ridha69

alsouf