• 0
حيدر حسن

قراءة النص بالعربي

سؤال

السلام عليكم.

ارجوا من الأخت زهرة ان تتكرن بعمل هذا البرنامج

عندي حقل اسمه a

اردت اكتب فيه النص بالعربي ثم عند النقر على زر امر اريد يتم نطق النص

شكرا...

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

11 إجابة على هذا السؤال .

  • 0

أخي بلالي

اسمح لي أن أنادي للكل من هنا من موضوع قراءة النص العربي

هيا يا أعضاء ومشرفي قسم الأكسس

فليس موقع صخر أو المواقع الأجنبية في هذا المجال بأفضل منا حيث أنهم وصلوا لطريقة لمعالجة النص العربي ويخرج لنا ملف صوتي بصيغة wav لنطق النص المكتوب

صخـــــر

موقع أجنبي

من هذا الموضوع أناشد المهتمين بنطق النص العربي من جميع لغات البرمجة وبرمجة المواقع بالمشاركة والتفاعل

وأنا متأكد أننا بفضل الله علينا أفضل منهم

إن الله معنا

أخوكم

محمد صالح

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل بلالي

اخي الفاضل محمد صالح

السلام عليكم ورحمة الله وبركاته

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

لقد بحثت وشاركت في العديد من المشاريع في هذا المجال على مدى الأعوام السابقة واستخدمت برامج واجهزة باهظة الثمن لكي اتعرف فقط على كيف يتم نطق ما يسمى ( الفونيم ) العربي لأنه مختلف تماما عن بقية اللغات الأخرى حيث نجد ان اللغات الأخرى جميع حروفها مفرقها وغير متصله كما في اللغة العربية وهذا اكبر تحدي للباحث في هذا المجال حيث يسهل في اللغات الأخرى نطق اي كلمه او اسم او جمله اما في اللغة العربية فلا بد ان يكون لديك قاعدة بيانات ضخمة ( كما في صخر او اي موقع اخر يترجم النص العربي وينطقه بعد معالجته ) .

من هنا قمت بعمل جداول لجميع احتمالات الكلمات في اللغة العربية ( لأنه احيانا لا يكون نطق الكلمة صحيحا إلا اذا اضيف له التشكيل ) وسأقرب لك مثال على ذلك :

اذهب الى هذا الموقع acapela-group

واكتب اسمي هكذا : زهره محمد العبدالله

واستمع للنطق هل هو صحيح ام لا

بالطبع لن يكون صحيحا

اذا متى يكون النطق صحيحا ؟ يكون صحيحا بعد تشكيل الإسم من اوله الى آخره تشكيلا صحيحا حسب النطق السليم

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

يوجد في منتدى الدلفي على ما اعتقد قبل 3 سنوات محاولات للأخوان وعلى رأسهم المشرف " عروه " ( الله يذكره بالخير ) بعمل مشروع لنطق الصوت العربي واستمروا فيه ما يقارب 6 اشهر ولكن بائت المحاولات بالفشل لعدم تمكنهم من ربط اجزاء الحروف المتصله مع بعض البعض .

جميع المواقع ( مثل صخر وما شابهها ) والبرامج ( مثل برامج شركة IBM ) التي تقوم بعمل النطق الآلي للصوت العربي يوجد لديها قواعد بيانات ضخمه لا تتخيلها فعندما تقوم انت بكتابة اي جمله فإن البرنامج او الموقع يقارنه مباشرة مع ما هو موجود لديه في قاعدة البيانات فإن كان موجود قام بالنطق السليم وإن لم يكن موجودا حدث اخطاء في النطق .

لا اقول لكم لا تتفاعلوا ولا تشاركوا ولكن من واقع خبرة وتجربه عدة سنين في هذا المجال فإن الأمر به بعض الصعوبه لمن لا يتقن مداخل ومخارج الصوت العربي الصحيح وتشكيله بطريقة سليمه

بالتوفيق

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أختي الفاضلة زهرة

يكفينا أن ينطق البرنامج الكلام المشكّل فقط

وفكرتي في هذا الشأن هي :

وجود تقريبا 112 ملف صوتي مسجّل لجميع حروف اللغة العربية 28 في 4 تشكيلات هي الفتحة والضمة والكسرة والسكون

ثم يقوم البرنامج بدمج الملفات الصوتية الخاصة بالكلمة أو الجملة في ملف واحد صوتي

هل نتعاون في عمل هذا البرنامج

؟؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لا تنسون ان الحروف يختلف نطقها بسبب ما بجوارها من حروف بغض النظر عن التشكيل .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
لا تنسون ان الحروف يختلف نطقها بسبب ما بجوارها من حروف بغض النظر عن التشكيل .

أخي الكريم أبو عمر

أنا مدرس لغة عربية

وحسب علمي المتواضع في مخارج الحروف وصفاتها وتجويد القرآن الكريم أن ما يحدد طريقة نطق الحرف في الكلمة هو تشكيله

ويا ريت توضح أكثر ماذا تقصد؟

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل محمد صالح

الله يسامحك

يعني لازم تعيدنا الى كام سنه فاتت

والله ان الموضوع هذا كبير جدا وشرحه يطول ونحتاج الى سنين لشرحه والنتيجه ستكون غير مرضيه او لن تظهر كما تتوقعها لأن الغة العربية مخارجها الصوتيه صعبة للغاية فهي تحتاج الى معرفة تامه بنظام مخارج الحروف والصوتيات ولا اعتقد احدا هنا في المنتدى من له الخبرة الكافية في هذا المجال .

عموما اليك هذه النماذج والدراسات والتي حاولت البحث عنها في ملفاتي القديمه التي عفى عليها الزمن ونسيتها تماما ولا اريد ان اعود لتلك المراحل والتي ضيعت فيها وقتي في البحث والدراسة بدون فائدة . ولكن حاول انت ايضا ولك مني كل ما تحتاجه من تصحيح وامثله جاهزه وشروحات لتلافي الأخطاء ( لقد شيبت بي هذه الدراسة ) لذا عليك التأني وعدم الإستعجال في مثل هذه الأمور واقراء كل ما سأضعه لك فالموضوع يحتاج الى شخص متفرغ ولديه صبر ونفس طويل فقد يفتح الله عليك.

التقرير النهائي لنظام النطق الآلي للنص العربي ( عربي )

د. منصور محمد الغامدي

د. مصطفى الشافعي أحمد

أ. حسني المحتسب

جامعة الملك فهد للبترول والمعادن

١٤٢٥ هـ

An_Experimental_Arabic_Text_To_Speech_System.rar

ترجمة الأسماء والمصطلحات الفنية العربية في النص ( مختلط عربي / انجليزي )

Translating_Names_and_Technical_Terms_in_Arabic_Text.rar

برنامج المشكل الآلي العربي مع التصحيح

post-15367-1254553825_thumb.gif

يوجد مع البرنامج قاعدة بيانات ( اكسيس ) حجمها حوالي 13 ميقا بها جداول لطريقة تشكيل الحروف العربية ( قم بإستعراضها )

AL_Mushakel.rar

برنامج تحويل الحرف العربي الى رموز صوتيه ( البرنامج مفتوح المصدر + يوجد شرح للطريقة كاملة في ملف وورد Doc و ملخص للطريقة في ملف بوربوينت )

Converting Arabic Writing Symbols to Speech Sound Symbols

post-15367-1254556391_thumb.gif

Converting_Arabic_Writing_Symbols_to_Speech_Sound_Symbols.rar

وحدة نمطية لقوانين الفونولوجيا العربية

Phonological Rules

Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Public words() As String
Public p As Integer
Public w As Integer
Public ln As Integer
Public word As String
Dim flag As Integer

Public Sub rule0(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
'قانون حذف السكون
If InStr(words(w), "ْ") Then
words(w) = Replace(words(w), "ْ", vbNullString)

End If
errhndlr:
End Sub
Public Sub rule1(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
'القانون الأول يقوم بتحويل الصوامت المشددة إلى صامتين متتاليين
p = InStr(words(w), "ّ")
If p > 1 Then
words(w) = Replace(words(w), Mid$(words(w), p, 1), Mid$(words(w), p - 1, 1), 1, 1)

End If
errhndlr:
End Sub
Public Sub rule2(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
If Left(words(0), 2) = "ال" Then
words(w) = Replace(words(w), Left(words(0), 1), "ءَ", 1, 1)
flag = 1
End If

'القانون 5 إذا كانت الألف متبوعة بصامتين متتاليين وليست في أول العبارة فإنها تصبح لا شيء
If w < UBound(words()) And w > LBound(words()) Then
p = InStr(words(w), "ا")
Dim st As String
st = (Mid$(words(w), p + 1, 2))
If ((st Like "[ب-ي][ب-ي]") _
Or (st Like "ء[ب-ي]") _
Or (st Like "[ب-ي]ء")) And _
Not (Right$(words(w - 1), 1) Like "[.!؟]") Then
' سيبدل كل ا بلاشيء
words(w) = Replace(words(w), Mid$(words(w), p, 1), vbNullString, 1, 1)

End If
End If
'القانون 6 - إذا كان ا جزء من ال التعريف في بداية العبارة فإننا ننطقه ءَ
If w < UBound(words()) And w > LBound(words()) Then

If Left$(words(w), 2) Like "ال" And Right$(words(w - 1), 1) Like "[.!؟]" Then
words(w) = Replace(words(w), "ا", "ءَ", 1, 1)
flag = 1
End If
End If
If w <= UBound(words()) And w > LBound(words()) Then

If Left$(words(w), 2) Like "ال" Then
words(w) = Replace(words(w), "ا", vbNullString, 1, 1)
End If
End If

'إذا كانت الألف في أي مكان أخر يتم تحويلها إلى فتحة
If InStr(words(w), "ا") Then
words(w) = Replace(words(w), "ا", "َ")

End If


errhndlr:
End Sub
Public Sub rule3(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
'قانون الحرف ى الذي يأتي في نهاية الكلمة
If Right$(words(w), 1) = "ى" Then
words(w) = Replace(words(w), "ى", "َ")
End If
errhndlr:
End Sub
Public Sub rule4(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
'قانون التاء المربوطة التي تنطق ت إلا إذا جاءت في نهاية العبارة فإنها تنطق هـ
If Right$(words(w), 2) Like "ة[؟!.]" _
Or Right$(words(w), 3) Like "ة[ًٌٍَُِ][؟!.]" Then
words(w) = Replace(words(w), "ة", "ه")
ElseIf Right$(words(w), 1) Like "ة" _
Or Right$(words(w), 2) Like "ة[ًٌٍَُِ]" Then
words(w) = Replace(words(w), "ة", "ت")
End If
errhndlr:
End Sub
Public Sub rule5(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
'قانون حذف اللام الشمسية
p = InStr(words(w), "ل")
Dim st As String
st = (Mid$(words(w), p + 1, 2))
If ((st Like "[ب-ي][ب-ي]") _
Or (st Like "ء[ب-ي]") _
Or (st Like "[ب-ي]ء")) Then

If Mid$(words(w), 1, 1) = "ل" And Mid$(words(w), 2, 1) = Mid$(words(w), 3, 1) Then
words(w) = Replace(words(w), Mid$(words(w), 1, 1), vbNullString, 1, 1)

End If

If Mid$(words(w), 2, 1) = "ل" And Mid$(words(w), 3, 1) = Mid$(words(w), 4, 1) Then
words(w) = Replace(words(w), Mid$(words(w), 2, 1), vbNullString, 1, 1)

End If
If Mid$(words(w), 3, 1) = "ل" And flag = 1 And Mid$(words(w), 4, 1) = Mid$(words(w), 5, 1) Then
words(w) = Replace(words(w), Mid$(words(w), 3, 1), vbNullString, 1, 1)
End If
If Mid$(words(w), 4, 1) = "ل" And Mid$(words(w), 5, 1) = Mid$(words(w), 6, 1) Then
words(w) = Replace(words(w), Mid$(words(w), 4, 1), vbNullString, 1, 1)
End If

End If
errhndlr:
End Sub
Public Function rule6(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
' هذا القانون يقوم بحذف التنوين في نهاية العبارة ويحوله إلى حركة ونون في نهاية الكلمة
If Right$(words(w), 2) = "ٌ." Or Right$(words(w), 2) = "ٌ؟" Or Right$(words(w), 2) = "ٌ!" Then
words(w) = Replace(words(w), "ٌ", vbNullString)
ElseIf InStr(words(w), "ٌ") Then
words(w) = Replace(words(w), "ٌ", "ُن")
End If
If Right$(words(w), 2) = "ً." Or Right$(words(w), 2) = "ً؟" Or Right$(words(w), 2) = "ً!" Then
words(w) = Replace(words(w), "ً", vbNullString)
ElseIf InStr(words(w), "ً") Then
words(w) = Replace(words(w), "ً", "َن")
End If
If Right$(words(w), 2) = "ٍ." Or Right$(words(w), 2) = "ٍ؟" Or Right$(words(w), 2) = "ٍ!" Then
words(w) = Replace(words(w), "ٍ", vbNullString)
ElseIf InStr(words(w), "ٍ") Then
words(w) = Replace(words(w), "ٍ", "ِن")
End If
errhndlr:
End Function
Public Sub rule7(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
'القانون 14 - يتحول حرف المد إلى ءَََ
If InStr(words(w), "آ") Then
words(w) = Replace(words(w), "آ", "ء َ َ")
End If
errhndlr:
End Sub
Public Sub rule8(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
'القانون 15 يقوم بفك الحروف التي تحوي الهمزة إلى مكوناتها
If InStr(words(w), "أ") Then
words(w) = Replace(words(w), "أ", "ء")
End If
If InStr(words(w), "ئ") Then
words(w) = Replace(words(w), "ئ", "ء")
End If
If InStr(words(w), "إ") Then
words(w) = Replace(words(w), "إ", "ء")
End If
If InStr(words(w), "ؤ") Then
words(w) = Replace(words(w), "ؤ", "ء")
End If
errhndlr:
End Sub
Public Sub rule9(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
'القانون 16 - تحويل الواو المسبوقة بضمة أو الياء المسبوقة بكسرة إلى ضمة طويلة وكسرة طويلة
If (InStr(words(w), "ُو")) And (InStr(words(w), "ُ") <> 0) Then
words(w) = Replace(words(w), "ُو", "ُُ", 1, 1)
End If
If (InStr(words(w), "ِي")) And ((InStr(words(w), "ِ") <> 0)) Then
words(w) = Replace(words(w), "ِي", "ِِ", 1, 1)
End If

errhndlr:
End Sub
Public Sub rule10(words() As String, ByVal w As Integer)
'قانون 18 - قانون الاقلاب
If InStr(words(w), "نب") Then
words(w) = Replace(words(w), "نب", "مب")
End If
If (w) < UBound(words()) Then
If Right$(words(w), 1) = "ن" And Left$(words(w + 1), 1) = "ب" Then
words(w) = Replace(words(w), Right$(words(w), 1), "م")
End If
End If
'قانون الادغام الكامل
If InStr(words(w), "نم") Then
words(w) = Replace(words(w), "نم", "مم")
End If
If (w) < UBound(words()) Then
If Right$(words(w), 1) = "ن" And Left$(words(w + 1), 1) = "م" Then
words(w) = Replace(words(w), Right$(words(w), 1), "م")
End If
End If
errhndlr:
End Sub
Public Sub rule11(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
'قانون الادغام التام
If (w) < UBound(words()) Then
If Right$(words(w), 1) = "ذ" And Left$(words(w + 1), 1) = "ظ" Then
words(w) = Replace(words(w), Right$(words(w), 1), "ظ")
End If
If Right$(words(w), 1) = "ت" And Left$(words(w + 1), 1) = "ط" Then
words(w) = Replace(words(w), Right$(words(w), 1), "ط")
End If
If words(w) = "قد" And Left$(words(w + 1), 1) = "ت" Then
words(w) = Replace(words(w), Right$(words(w), 1), "ت")
End If
End If
If InStr(words(w), "دت") Then
words(w) = Replace(words(w), "دت", "تت")
End If
errhndlr:
End Sub
Public Sub rule12(words() As String, ByVal w As Integer)
On Error GoTo errhndlr:
If (w) < UBound(words()) Then
If Right$(words(w), 1) = "ل" And Left$(words(w + 1), 1) = "ر" Then
words(w) = Replace(words(w), Right$(words(w), 1), "ر")
End If
End If
errhndlr:
End Sub

Public Sub rule13(words() As String, ByVal w As Integer)
p = Len(words(w))
On Error GoTo errhnd:
If Mid$(words(w), p - 1, 1) Like "[َُِ]" _
And (Mid$(words(w), p - 2, 1) Like "[ب-ي]" _
Or Mid$(words(w), p - 2, 1) Like "ء") _
And Right$(words(w), 1) Like "[؟.!]" Then
words(w) = Replace(words(w), Right(words(w), 2), Right(words(w), 1))
End If
errhnd:
End Sub

Public Sub shortcuts(words() As String)
'On Error GoTo errhndlr:
For q = 0 To ln
Select Case words(q)
Case "إِلَه"
words(q) = "إِلَاه"
Case "إله"
words(q) = "إِلَاه"
Case "أنا."
words(q) = "أَنْبَأَنَا"
Case "اه."
words(q) = "انْتَهَى"
Case "أولئك"
words(q) = "أُلَائِكَ"

Case "أولو" '---
words(q) = "أُلُو"
Case "أُولِي"
words(q) = "أُلِي"
Case "أولي"
words(q) = "أُلِي"
Case "ثنا."
words(q) = "حَدَثَنَا"
Case "الخ."
words(q) = "إِلَى آخِرِهِ"
Case "دَاوُد"
words(q) = "دَاوُود"
Case "داود"
words(q) = "دَاوُود"
Case "ذَلِكَ"
words(q) = "ذَالِكَ"
Case "ذلك"
words(q) = "ذَالِكَ"
Case "الْذِيْ"
words(q) = "اللَّذِيْ"
Case "الذي"
words(q) = "اللَّذِيْ"
Case "الذين"
words(q) = "اللذين"
Case "التي"
words(q) = "اللتي"
Case "الرَّحْمَن"
words(q) = "الرَّحْمَان"
Case "الرحمن"
words(q) = "الرَّحْمَان"
Case "رحه."
words(q) = "رَحِمَهُ اللهُ"
Case "رضه."
words(q) = "رَضِيَ اللهُ عَنْهُ"
Case "رضه.؟"
words(q) = "رَضِيَ اللهُ عَنْهُ"
Case "السَّمَوَات"
words(q) = "السَّمَاوَات"
Case "السموات"
words(q) = "السَّمَاوَات"
Case "ص"
words(q) = "صَلَّى اللهُ عَلَيْهِ وَسَلَّمَ"
Case "ص؟"
words(q) = "صَلَّى اللهُ عَلَيْهِ وَسَلَّمَ"
Case "طَه"
words(q) = "طَاهَا"
Case "طه"
words(q) = "طَاهَا"
Case "عَمْرُو"
words(q) = "عَمْرُ"
Case "عمرو"
words(q) = "عَمْرُ"
Case "لَكِنَ"
words(q) = "لَاكِنَ"
Case "لكن"
words(q) = "لَاكِنَ"
Case "الله"
words(q) = "اللَّاه"
Case "اللَّهُمَ"
words(q) = "الْلَاهُمَ"
Case "اللهم"
words(q) = "الْلَاهُمَ"
Case "يَسِينْ"
words(q) = "يَاسِينْ"
Case "يسين"
words(q) = "يَاسِينْ"
Case "هَؤُلَاءِ"
words(q) = "هَاؤُلَاءِ"
Case "هؤلاء"
words(q) = "هَاؤُلَاءِ"
Case "هَذَا"
words(q) = "هَاذَا"
Case "هذا"
words(q) = "هَاذَا"
Case "نَا."
words(q) = "أَخْبَرَنَا"
Case "نا."
words(q) = "أَخْبَرَنَا"
Case "هَذَانِ"
words(q) = "هَاذَانِِ"
Case "هذان"
words(q) = "هَاذَانِِ"
Case "هَذِهِ"
words(q) = "هَاذِهِ"
Case "هذه"
words(q) = "هَاذِهِ"
Case "هَذَيْنِ"
words(q) = "هَاذَيْنِ"
Case "هذين"
words(q) = "هَاذَيْنِ"
Case "بسم"
words(q) = "بِسم"
End Select
Next q
'errhndlr:
End Sub

برنامج تحليل النصوص العربية مفتوح المصدر مع الوحدات النمطية )

Text Analizer

post-15367-1254557833_thumb.gif

Text_Analizer.rar

ملف بوربوينت لمعرفة نطق الحروف العربية ومخارجها من الحلق ( الحالات والمشاكل )

Arabic TTS - status & problems

SSML_Arabic.rar

الخاتمه

برنامج نطق النص العربي المُشَكل مع جميع احتمالات وجود الحرف العربي في عدة أماكن من الكلمة على شكل اصوات بصيغة - wav

post-15367-1254559542_thumb.gif

يجب ان تقوم بتشكيل الكلمات تشكيلا سليما ليكون النطق سليما

حاول تضع هذه العبارات في البرنامج بطريقة سطر سطر او مقطع مقطع لأن البرنامج لا يتحمل جمل طويله

اللَّهُمَّ إنِّى أسأَلُكَ عِلْمَاً نَافِعَاً , وَرِزْقَاً طَيِّبَاً , وَعَمَلاً مُتَقَبَّلاً

قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ

لا تَدخُلُوا الجَنَّةَ حَتَّى تُؤمِنُوا,

وَ لا تُؤمِنُوا حَتَّى تَحَابُوا,

أَوَ لاأَدُلُّكُم عَلَى شَيْءٍ إذَا فَعَلْتُمُوهُ تَحَابَبْتُمْ,

أَفْشُوا السَلامَ بَينَكُمْ

رَوَاهُ مُسْلِمْ

اللَّهُمَّ لا سَهْلَ إلا مَا جَعَلتَهُ سَهْلاً وَأنتَ تَجْعَلُ الحَزْنَ إذَا شِئْتَ سَهْلاً

البرنامج

Arabic_TTS.rar

ختاما اسأل الله العلي القدير اني قد وفقت في طرح هذا الجزء البسيط والمختصر والقاء الضوء على طريقة قراءة النص العربي بصوت مسموع ووضع هذه الخلاصات والتجارب .

ولكن لو اردنا الحقيقة فإننا سنحتاج الى سنوات مع وجود خبراء في علم الصوتيات وليس من السهل جدا كما قال اخينا " بلالي " انه يريد وضع مربع نص A ويضع به النص العربي ليتم نطقه مباشره او كما ذكرت انت اخي محمد صالح ان تقوم بتسجيل الحروف العربية ثم تجميعها لتخرج لنا نص عربي منطوق فهذه الطريقة تحتاج الى معرفة جميع احتمالات ونطق الحرف العربي لأنه يوجد لدينا 28 حرف عربي وبالتالي سنحتاج الى

نطق الحروف العربية مع التشكيل ( الفتحة + الضمه + السكون + الكسره ) 28 × 4 = 112 صوت

نطق الحروف العربية مع موقع الحرف ( بداية الكلمة + وسط الكلمة + آخر الكلمة ) 28 × 3 = 84 صوت

نطق الهمزات ( بداية الكلمة + وسط الكلمة + أخر الكلمة ) 3 اصوات

المجموع 112 + 84 + 3 = 199 صوت

ولابد ان تكون على جهاز تسجيل مخصص لهذا الغرض ليكون الحرف العربي واضح ونقي

بالتوفيق

تم تعديل بواسطه zahrah
3

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة ما شاء الله عليك الله يحفظك ويديمك لهذا المنتدى

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشروع جبار ماشاء الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله استاذتنا زهرة

دائما لديك ما تضيفيه فى كل موضوع

و لكن اعتقد اننا لا يجب ان نيأس و ان نحاول و سنصل الى مبتغانا ان شاء الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هل توجد نسخة vb.net من هذا البرنامج ؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .