منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
.سؤال محيرني.. - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : .سؤال محيرني.. (/showthread.php?tid=18555)



.سؤال محيرني.. - محمد 2017 - 23-12-16

السلام عليكم ورحمة الله وبركاته 
تشرفت بالتسجيل في هذا الصرح العلمي والممتع 

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

السؤال :
كيف يمكنني عمل الكود الذي يمكنني من ان اضغط مثلا على حرف الالف وبعده اضغط على حركة الضمه وينطق الحرف بحركته ؟




شاكر لكم ومقدر


RE: .سؤال محيرني.. - Basil Abdallah - 24-12-16

انصحك اعمل تسجيل صوتي بصوتك لكل حرف و حركة
ومن ثم اكتب الكود الاتي في حدث الكلك
كود :
  My.Computer.Audio.Play("مسار المقطع الصوتي", AudioPlayMode.Background)
لان من الصعب تخلي البرنامج ينطق عربي 
فقط انجليزي اعتقد 
و اغلب البرامج تعمل هيك Wink Blush

+ البيسك ولا الفيجوال بيسك لانو فيه اختلاف


RE: .سؤال محيرني.. - محمد 2017 - 24-12-16

(24-12-16, 11:28 AM)Basil Abdallah كتب : انصحك اعمل تسجيل صوتي بصوتك لكل حرف و حركة
ومن ثم اكتب الكود الاتي في حدث الكلك
كود :
  My.Computer.Audio.Play("مسار المقطع الصوتي", AudioPlayMode.Background)
لان من الصعب تخلي البرنامج ينطق عربي 
فقط انجليزي اعتقد 
و اغلب البرامج تعمل هيك Wink Blush

+ البيسك ولا الفيجوال بيسك لانو فيه اختلاف

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

اشكرك اخي الكريم 
فيجوال بيسك .

وعملت تسجيل بصوتي وايضا صورة الحروف .واشتغل البرنامج لكن الازرار كثيرة جدا حوالي 90 ازرار (28 حرف *3حركات)+ اللام القمرية والشمسية )

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



شاكر لك ومقدر


RE: .سؤال محيرني.. - Basil Abdallah - 25-12-16

كود :
If TextBox1.Text = "خَ" Then
   My.Computer.Audio.Play("مسار المقطع الصوتي", AudioPlayMode.Background)
      End If
وهكذا


RE: .سؤال محيرني.. - محمد 2017 - 25-12-16

شكرا لك وبارك الله فيك