<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=windows-1256">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>بسم الله الرحمن الرحيم</title>
</head>
<body bgcolor="#FFFFFF">
<p align="center" dir="rtl"><font color="#008000" size="7">بسم
الله الرحمن الرحيم</font></p>
<p dir="rtl"><font size="2"></font> </p>
<p dir="rtl"><font color="#008000" size="5">الحمد لله
رب العالمين والصلاة والسلام على
اشرف الانبياء والمرسلين سيدنا محمد
وعلى اله وصحبه اجمعين </font></p>
<p dir="rtl"><font size="2"></font> </p>
<p dir="rtl"><font color="#0000FF" size="4">اشكر
القائمين على الموقع لتجاوبهم
لطلبنا لاضافة خاصية HTML للموقع والتي
ستساعد باذن الله في عرض البرامج
بصورة افضل ليستفيد منها الجميع </font></p>
<p dir="rtl"><font size="2"></font> </p>
<p dir="rtl"><font color="#0000FF" size="4">وهذه اول
مشاركاتي باستخدام هذه الطريقة :</font></p>
<p dir="rtl"><font color="#0000FF" size="4">برنامج
لتشغيل الصوت في الفيجوال بيسك :</font></p>
<p dir="rtl"><font color="#0000FF" size="4">1- ابدأ
مشروع فيجوال بيسك جديد</font></p>
<p dir="rtl"><font color="#0000FF" size="4">2- اضف
للمشروع ملف برمجة من نوع module</font></p>
<p dir="rtl"><font color="#0000FF" size="4">3- اضف الكود
التالي في الملف :</font></p>
<p dir="ltr"><font color="#0000FF" size="4">Option Explicit
</font><font color="#FF0000" size="4">Public Declare Function
sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
</font><font color="#0000FF" size="4">
Sub </font><font color="#008000" size="4">PlaySound(SoundFile)</font><font
color="#0000FF" size="4">
'هذا الاجراء يمكنه عزف اي ملف صوت
Dim </font><font color="#008000" size="4">ret</font><font
color="#0000FF" size="4"> As Long
</font><font color="#008000" size="4">ret</font><font
color="#0000FF" size="4"> = </font><font color="#FF0000" size="4">sndPlaySound</font><font
color="#0000FF" size="4">(</font><font color="#008000" size="4">SoundFile</font><font
color="#0000FF" size="4">, </font><font color="#FF0000" size="4">&H0</font><font
color="#0000FF" size="4"> + </font><font color="#FF0000" size="4">&H1</font><font
color="#0000FF" size="4">)
End Sub
</font><font color="#0000FF" size="3"></font></p>
<p dir="rtl"><font color="#0000FF" size="4">4- افتح
الفورم Form1 واضف اليه زرين من ازرار
الاوامر Command</font></p>
<p dir="rtl"><font color="#0000FF" size="4">5- اضغط
مرتين على الزر الاول ثم اضف الكود
التالي داخل الاجراء الخاص بالزر</font></p>
<p dir="ltr"><font color="#0000FF" size="4">
Private Sub Command1_Click()
'ابدأ تشغيل الصوت
</font><font color="#008000" size="4">PlaySound ("<u>g:\wav\q1.wav</u>" </font><font
color="#0000FF" size="4">
End Sub
</font><font color="#0000FF" size="3"></font></p>
<p dir="rtl"><font color="#0000FF" size="4">6- ونفس الشي
مع الزر الثاني ولكن اضف الكود
التالي :</font></p>
<p dir="ltr"><font color="#0000FF" size="4">
Private Sub Command2_Click()
'ايقاف تشغيل الصوت
</font><font color="#008000" size="4">PlaySound ("" </font><font
color="#0000FF" size="4">
End Sub
</font><font color="#0000FF" size="3"></font></p>
<p dir="rtl"><font color="#0000FF" size="4">7- لقد
انتهيت الان . قم بتشغيل البرنامج
واضغط على الزر الاول لسماع الصوت او
الزر الثاني لايقافه</font></p>
<p dir="rtl"><font color="#0000FF" size="4">ملاحظات : </font></p>
<p dir="rtl"><font color="#0000FF" size="4">اللون </font><font
color="#FF0000" size="4">الاحمر</font><font color="#0000FF"
size="4"> يعني انه يجب كتابة الكود كما
هو دون تعديل</font></p>
<p dir="rtl"><font color="#0000FF" size="4">اللون
الازرق يعني اوامر اللغة نفسها او
الملاحظات</font></p>
<p dir="rtl"><font color="#0000FF" size="4">اللون </font><font
color="#008000" size="4">الاخضر</font><font color="#0000FF"
size="4"> هي الاجزاء التي قمت باضافتها
والتي يمكن تعديلها حسب الحاجة</font></p>
<p dir="rtl"><font color="#0000FF" size="4">اسم الملف
الذي تحته خط يعتمد على موقع الملف
لديك في جهازك لذلك يجب تغييره الى
مسار الملف المطلوب</font></p>
<p dir="rtl"><font color="#0000FF" size="4">بالنسبة
للثوابت يمكن ان تستخدم احدهذه
الثوابت او تشكيله منها حسب الحاجة :</font></p>
<table border="1">
<tr>
<td>&H10000</td>
<td>استخدام اسم للصوت بدلا من
الملف</td>
</tr>
<tr>
<td><font face="Times New Roman">&H1</font></td>
<td>يشتغل بشكل مستقل عن البرنامج
لايعطل عمل البرنامج</td>
</tr>
<tr>
<td><font face="Times New Roman">&H0</font></td>
<td>يتوقف عمل البرنامج حتى ينتهي
التشغيل</td>
</tr>
<tr>
<td><font face="Times New Roman">&H2000</font></td>
<td>لاينتظر اذا كان مشغل الصوت
مشغول بملف اخر</td>
</tr>
<tr>
<td><font face="Times New Roman">&H8</font></td>
<td>يكرر تشغيل الملف كلما انتهى
بشكل تلقائي حتى يتم ايقافه</td>
</tr>
</table>
<p dir="rtl"><font color="#0000FF" size="3"></font> </p>
<p dir="rtl"><font color="#0000FF" size="3"></font> </p>
<p dir="rtl"><font color="#0000FF" size="4"><strong>فوائد
البرنامج </strong></font></p>
<p dir="rtl"><font color="#0000FF" size="4">للبرنامج
فوائد كثيرة جدا من ابسطها مثلا
امكانية عمل برنامج تعليمي للاطفال
بحيث اذا اجاب الطفل يسمع صوت تشجيع
واذا اخطأ يسمع صوتا اخر.</font></p>
<p dir="rtl"><font color="#0000FF" size="4">يمكن مثلا
عمل برنامج ينطق الحروف التي تكتب له</font></p>
<p dir="rtl"><font color="#0000FF" size="4">يمكن عمل
برنامج يقوم برفع الاذان اوقات
الصلوات بحيث تنبه المستخدم لدخول
وقت الصلاة</font></p>
<p dir="rtl"><font color="#0000FF" size="4">وهناك
الكثير ايضا من الفوائد لهذه الدالة
الصغيرة نتركه لخيال المبرمج.</font></p>
<p dir="rtl"><font color="#0000FF" size="3"></font> </p>
<p dir="rtl"><font color="#0000FF" size="5"><u>بالتأكيد
أن الكثير منكم يعرف هذه الدالة
وتعامل معها ولكني اتمنى من الجميع
ان يشارك بأي شي حتى لوكان في نظره
بسيطا او سهلا فقد يحتاج غيره الى ذلك
والله تعالى أعلم</u></font></p>
<p dir="rtl"><font color="#0000FF" size="3"></font> </p>
<p dir="rtl"><font color="#0000FF" size="5">واكرر شكري
مرة اخرى للمسؤلين لتجاوبهم واتمنى
ان تظهر هذه الصفحة كما يجب .</font></p>
<p dir="rtl"><font color="#0000FF" size="4">والسلام
عليكم</font></p>
<p dir="rtl"><font color="#004080" size="3">لعرض الصفحة
بشكل صحيح يفضل استخدام InternetExplorer5</font></p>
</body>
</html>