السلام عليكم :
إذا كان لديكم الحل أرجوا التغلب على هذه المشكلة بأسرع وقت .
المشكلة عندي زرين واحد تشغيل لملف الصوت والاخر توقف ، وعندما استخدم دالة Playsound وأردت توقيف الصوت يحصل توقف ثم إعادة تشغيل الملف مرة أخرى . فمالحل؟
الملف مرفق. أرجوا أن تشاهدونه
المرفق الأول ملف الفيجوال .
المرفق الثاني ملف الصوت .
تم خذف المرفق الأول من قبل المشرفين
نرجو اعادة تحميلة مرة آخري سليما ,,,
تم تعديل هذه المشاركة بواسطة إبراهيم الطيب في 24 مايو 2005 في 13:07
السلام عليكم
أكثر من عشر تنبهات لمواضيع هذا اليوم فقط
بأن عناوينها مخالفة للقوانين
و لكن لاحياة لمن ننادي ....
المعزرة لتغيير العنوان هذه المرة.
السلام عليكم ورحمة الله وبركاته
أختنا العزيزة
الملف عليه فيروس Generic BackDoor.b
برجاء فحص ملفاتك وتحديث الأنتى فايروس بتاعك
معلش ما قدرتش أشوف الملف
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
السلام عليكم
الفاضل أو الفاضلة "queen1" نرجو التكرم بـإعادة تحميل الملف مرة آخري ...
تم تعديل هذه المشاركة بواسطة إبراهيم الطيب في 24 مايو 2005 في 13:12
السلام عليكم ورحمة الله وبركاته
أختنا الفاضلة
خاطرت وفتحته والحمد لله حصل خير
Private Sub Command1_Click() 'SndPlay = sndPlaySound(App.Path & "\w18.wav", 0) sndPlaySound vbNullString, 0 End Sub Private Sub Command2_Click() SndPlay = sndPlaySound(App.Path & "\w18.wav", 1) End Sub
بالشكل ده هيشتغل زى ما انت عاوزة بعون الله
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
عن طريق microsoft multimedia control
في الفورم load نكتب
mmc1.notify=false mmc1.wait=true mmc1.sharable=false mmc1.devicetype="WaveAudio" mmc1.filename=app.path & "\" & "soundfile.wav" mmc1.command="open"
وفي زر التشغيل نكتب
mmc1.command="play"
وفي زر التوقف نكتب
mmc1.command="stop"
*************************************************
**************************************************
مصطفى زيداني
السلام عليكم ورحمة الله وبركاته
طبعا رد أخونا mostafazidani جاء بعد حذف الملف
المثال الذى أرفقته أختنا كان بيتعامل مع الصوت بدوال الـ API وكانت مشكلتها فى إيقاف الصوت باستخدام هذه الدالة
وكان عليها لعمل ذلك أن تمرر للدالة القيمة Null دون حفظ النتيجة فى متغير كما هو واضح فى الكود بعد التعديل
وكنت أريد أن أتأكد هل نفع معها أم مازال هناك مشاكل؟
أم أن الفيروس انتشر وخشيت الدخول على النت قبل تحديث مضاد الفيروسات؟
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
يبدو اني لم اقرا السؤال جيدا اخي ABULYMAN
وشكرا لك على التنبينه
*************************************************
**************************************************
مصطفى زيداني
اشكركم مرة أخرى على أي إجابه ، واعتذر على أي أخطاء بدرت مني
وشكراً كثيراً
هذا الموضوع مغلق.