الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

قراه النص

مغلق
بدأه r20042004 في 22 فبراير 2007 · 15 رد · 2,135 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#2

شبق وان رأيت مثالا لكنه منذ زمن طويل!

المهم هذه الطريقةتقوم على تخزين ملفات wave او اي ملفات صوتية يقوم الأكسس بتشغيلها من خلال الكود

وهنا يجب تخزين ملف لكل حرف أو كلمة ثم يعمل lookup داخل الجهاز للبحث عما يطابق النص او الكلمة من ملفات صوت ثم تشغيلها

كذلك يمكن عمل ذلك من خلال اOLE حيث يكون حقل الصوت جزءا من حقول قاعدة البيانات

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#3

الأخ الفاضل ...

لو هذا الحقل يحتوى اللغة الإنجليزية أو أو لغة يدعمها Microsoft Speach API فيمكنك أستخدام SAPI ، ولكن للأسف لا تدعم اللغة العربيةويمكنك تحميل أدوات برمجة SAPI SDK إن لم تعمل عندك من Speech SDK 5.1 أو للتنفيذ فقط SPCHAPI.EXE

Private Sub cmdSpeak_Click()
	  Dim ext2speach As Object
		Set ext2speach = CreateObject("SAPI.SpVoice")
	  Call ext2speach.Speak("Hello", 0)
	  Set ext2speach = Nothing
  End Sub

شكراً

Text2Speach.zip

تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 22 فبراير 2007 في 22:21

▲ 1

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#4

يا سلام اخي Eng. Usama El-Mokadem عظيم جدا

ياليت تكون بالعربي اداه تقوم بذلك! والله العرب مقصرين في حق برمجتهم!!

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#6
اقتباس
شبق وان رأيت مثالا لكنه منذ زمن طويل!

حلوة شبق هذي

المهم جرب ابحث عن طريقة لتعديل ملفات الصوت ثم سجل صوتك على ملفات واستبدلها

او جرب صوت محمد عبده

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#8

كيف اجل زر اذا ضغط عليه ينطق الحروف

مثالا كلمة -بلال - اذا ضغط عليه الزر ينطق (حرف ب) و (حرف لا)و (ل)

مثل برنامج دليل الهاتف الصوتي

الان موسوعه جوتوفون التعليميه

دروس html

دروس css دروس جافا دروس php دروس فوتوشوب

#9

الأخ الفاضل ...

جرب الكود التالى:

Private Sub cmdSpell_Click()
	Dim ext2speach As Object
	Dim txtLen As Integer
	Dim i As Integer

	Set ext2speach = CreateObject("SAPI.SpVoice")
	txtLen = Len(Text.Value)
	For i = 1 To txtLen
		Call ext2speach.Speak(Mid(Text.Value, i, 1), 0)
	Next
	Set ext2speach = Nothing
End Sub

شكراً

Text2Speach_up1.zip

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#13

يوجد موضوع قديم في المنتدى (مشروع قرائة نص باللغة العربية)

على ما اعتقد في منتدى الدلفي

وكان المشروع قد انتهى ولكن ينقصة تسجيل كامل الاحرف العربية

بحثت عنه ولم اجدة رغم اني قمت ببعض الردود فيه

ارجوا ممن يجدة يضع الرابط

علما انني سابحث في جهازي عن البرنامج وسارفقة في القريب العاجل

#14

هذا رابط مشروع الناطق الصوتي في قسم الدلفي :

/index.php?showtopic=51923

#15

الله واكبر ظهر الحق

شكيت في نفسي والله

تصدق اكثر من مرة ابحث عن مواضيع قديمة متاكد اني شاركت فيها ومالقيتها

صرت اوسوس واقول يمكن تهيؤات بسبب نزول الاسهم

#16

ياليت يكون فيه واحد صوته حلو يكمل الموضوع

حاولت اكثر من مرة لكن صوتي "لا تعليق"

حرام الموضوع يوقف على النهاية

/index.php?showtopic=51923

هذا الموضوع مغلق.

مواضيع مشابهة