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

أخي بلالي

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

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

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

صخـــــر

موقع أجنبي

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

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

إن الله معنا

أخوكم

محمد صالح

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

بالتوفيق

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

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

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

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

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

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

؟؟

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

أبوعمر الجنوبي كتب:

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

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

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

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

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

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

الله يسامحك

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

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

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

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

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

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

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

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

١٤٢٥ هـ

An_Experimental_Arabic_Text_To_Speech_System.rar

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

Translating_Names_and_Technical_Terms_in_Arabic_Text.rar

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

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

AL_Mushakel.rar

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

Converting Arabic Writing Symbols to Speech Sound Symbols

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

Text_Analizer.rar

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

Arabic TTS - status & problems

SSML_Arabic.rar

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

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

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

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

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

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

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

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

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

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

البرنامج

Arabic_TTS.rar

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

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

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

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

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

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

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

بالتوفيق

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

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

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

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

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

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

جزاك الله خير :cool:

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