السلام عليكم :
إذا كان لديكم الحل أرجوا التغلب على هذه المشكلة بأسرع وقت .
المشكلة عندي زرين واحد تشغيل لملف الصوت والاخر توقف ، وعندما استخدم دالة Playsound وأردت توقيف الصوت يحصل توقف ثم إعادة تشغيل الملف مرة أخرى . فمالحل؟
الملف مرفق. أرجوا أن تشاهدونه
المرفق الأول ملف الفيجوال .
المرفق الثاني ملف الصوت .
هذا الكود لاخ فاضل من احد المنتديات باستخدام الميديا بلاير
علي الفورم commonDialog اسمه cd1
3 Command Buttons
-command1 لفتح ال commonDialog
-command3 لايقاف الصوت
-command4 لتشغيل الصوت
في تفس مسار المشروع ضع ملف صوت وسمه Lacool.wav
من قائمة project
Refrence
اختار ActiveMovie control type Library
ضع الكود التالي في الفورم
Dim strSound As String Dim MediaControl As IMediaControl Sub start() If Dir(cd1.FileName) = "" Or cd1.FileName = "" Then strSound = App.Path + "\Lacool.wav" Set MediaControl = New FilgraphManager MediaControl.RenderFile strSound MediaControl.Run Else strSound = cd1.FileName Set MediaControl = New FilgraphManager MediaControl.RenderFile strSound MediaControl.Run End If End Sub Private Sub Command1_Click() cd1.Filter = "*.wav, *.mp2, *.mp3, *.bmp, *.jpg, *.mpg, *.avi, *.mid|*.wav;*.mp2;*.mp3;*.bmp;*.jpg;*.mpg;*.avi;*.mid;*.asf;*.wmv" cd1.ShowOpen start End Sub Private Sub Command3_Click() MediaControl.Stop End Sub Private Sub Command4_Click() start End Sub Private Sub Form_Load() Me.Move (Screen.Width - Me.ScaleWidth) / 2, (Screen.Height - Me.ScaleHeight) / 2 start End Sub
![29_09_05_02_32_59_1128029579_4_13_3[_].gif](http://www.arabteam2000.com/picload/pics/29_09_05_02_32_59_1128029579_4_13_3%5B_%5D.gif)
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
اعتقد ان دالة Playsound تقوم بتشغيل ملفات ال wae فقط والله اعلم
بينما الميديا بلاير يقوم بتشغيل بكل الامتدادات
علي العموم في بنك الاكواد للاستاذ عبد الله فتحي سوف تجد مثال ممتاز لهذه الدالة
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
السلام عليكم
اذا كانت الدالة المستخدمة هي
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
لتشغيل ملف معين
sndPlaySound Filename , 1
لايقاف تشغيل الملف
sndPlaySound &0 , &0
تحياتي
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
شكراً لكم جميعاً كان هناك مشكلة بسيطة جداً في الكود أفتوني في حلها ،أشكركم مرة أخرى على تعاونكم معي
السلام عليكم ورحمة الله وبركاته
أختنا الفاضلة
على ما أتذكر أنى رديت عليك فى المشاركة هذه
هل لك سؤال آخر خلاف ما أجبتك عنه؟
عندى لك نصيحة
أدرجى الكود فى المنتدى أفضل من إدراج ملف ونحن ممكن نستخدمه مع أى ملف Wav من على أجهزتنا
هذا يساعد الأخوة أكثر ويحدد موضوع المشاركات ويوفر لك وقتك
والله المستعان
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
هذا الموضوع مغلق.
