تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود بسيط لقرائة النصوص بالانجليزي فقط
#1
السلام عليكم
كود بسيط لقرائة او نطق النصوص والارقام لاكنه بالانجليزي فقط

كود :
   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
الرد }}}
تم الشكر بواسطة: الوليد ☺ , elgokr
#2
السلام عليكم ورحمة الله

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

ماهو اصدار الويندوز لديك؟
لاني جربته على ويندوز10 ويعمل.
الرد }}}
تم الشكر بواسطة:
#7
اصداري 7 
نفذ معي بس م بسمع الصوت
الرد }}}
تم الشكر بواسطة:
#8
(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]
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم