بسم الله الرحمن الرحيم
إخوتي أنا عامل برنامج يشغل الصوت مع أول ظهور الفورم
حيث كتبت في Form_load ما يلي :
With mmcontrol1 .deviceType = "waveaudio" .FileName = "c:\Iam.wav" .command = "prev" .command = "play " .command = "stop" End with
لكني أريد أن يستمر الصوت وأن يعيد نفسه تلقائيا .
تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 10 أغسطس 2005 في 05:59
استخدم كنترول ال media player افضل
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
ارجح كلام الصاروخ وده كود التكرار للاداة ميديا بلايير الموجودة عندى
MediaPlayer1.Settings.PlayCount = LoopTimes
وفى بعض الاصدارات يمكنك التحكم فى خاصية التكرار من خلال الـPropertyPage للاداة والتى تجدها فى الخاصية Custom فى صندوق الخصائص للاداة :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته ...
كود تشغيل الصوت في الحدث Form_Load كما يلي :
With MMControl1 .DeviceType = "waveaudio" .FileName = "c:\Iam.wav" 'فتح الملف .Command = "open" 'تشغيل الملف .Command = "play" End With
اكتب الكود التالي في الحدث Done التابع للأداة MMControl1 ( والذي ينفذ عند انتهاء تنفيذ المقطع الصوتي ) :
MMControl1.Command = "prev" MMControl1.Command = "play"
أتمنى أن أكون قد أفدتك ،،
ويمكنك أيضًا استخدام الأداة media player كما قال المشرفان الفاضلان VB6-Rocket و GHOST2010 .
أو يمكنك استخدام دوال API فهي ليست بالصعبة كما يظن البعض ، والأمر متروك لك .
وتقبل تحياتي
أخوك / المبرمج أحمد
سبحان الله وبحمده ... سبحان الله العظيم
شِكرا للإخوة على الأجوبة الرائعة جزاكم الله ألف خير
ولقد وجدت الأداة التي أشارلها الإخوة بالمنتدى كما الطرق الأخرى شـــكــــــــرا.
:lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol:
هذا الكود يعيد الصوت بشكل مستمر
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Const SND_LOOP As Long = &H8 Private Const SND_SYNC As Long = &H0 sndplaysound soundfile,snd_sync + snd_loop
soundfile= مسار الملف
تم تعديل هذه المشاركة بواسطة mostafazidani في 11 أغسطس 2005 في 11:38
*************************************************
**************************************************
مصطفى زيداني
مشكور أخى على طريقة دوال api
هذا الموضوع مغلق.