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

نسخة كاملة : كود بسيط لقرائة النصوص بالانجليزي فقط
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
كود بسيط لقرائة او نطق النصوص والارقام لاكنه بالانجليزي فقط

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Dim SAPI
       SAPI = CreateObject("SAPI.spvoice")
       SAPI.Speak(TextBox1.Text)
   End Sub
السلام عليكم ورحمة الله

كود مفيد وخصوصاً لتعليم نطق الكلمات والجمل الانجليزية،
وبالنسبة للأرقام مفيد لو بتم إضافته لقراءة الساعة أو المبلغ أو ما شابه.
حاضر ان امكن لاكن اعذروني لزحمة العمل الوظيفي عندي
ممكن شرح للكود واازاى ممكن انفذه
هو عبارة عن فورم وفيه تكست بوكس يوضع فيه النص المراد نطقه وbutton
وشكرااا
بيظهر لي خطا في هذا السطر 
  SAPI = CreateObject("SAPI.spvoice")
من اين هذا الخطا
(18-06-18, 10:49 AM)basma amel كتب : [ -> ]بيظهر لي خطا في هذا السطر 
  SAPI = CreateObject("SAPI.spvoice")
من اين هذا الخطا

ماهو اصدار الويندوز لديك؟
لاني جربته على ويندوز10 ويعمل.
اصداري 7 
نفذ معي بس م بسمع الصوت
(18-06-18, 10:49 AM)basma amel كتب : [ -> ]بيظهر لي خطا في هذا السطر 
  SAPI = CreateObject("SAPI.spvoice")
من اين هذا الخطا

ملاحظة انا جربت الكود في فجوال بيسك 6  وليس دوت نت واشتغل بعد اضافة SET
[quote pid='150735' dateline='1571745900']
PHP كود :
Set SAPI CreateObject("SAPI.spvoice"

[/quote]