لدي برنامج اريد ان اضيف ملف صوتي ريل او ويف مثلا
سوره الفاتحه لااريد ان يضغط زر انما اريده فى تايمر توقيت
مثلا:
Private Sub Timer2_Timer()
Label10.Caption = Format(Time, "HH:mm:ss AM/PM")
If Label10.Caption = Format(Time, "HH:00:00 AM/PM") Then
MsgBox "شكرا لاستخدامك البرنامج"
End If
End Sub
هنا الكود يوضح ظهور رساله كل ساعه فقط اريد اضافه على الكود
تشغيل ملف صوتي 000 وفقكم الله
عزيزي المستعين بالله .. بعد التحية (f)
لتشغيل ملف صوتي من نوع wav ستحتاج إلى استخدام توابع Api وإليك الطريقة:
قم بكتابة الكود التالي في أعلى نافذة الكود ، في قسم التصريحات العامة General_Declaration:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
بعد ذلك قم بكتابة السطر التالي بع كود إظهار الرسالة كل ساعة وقبل جملة end if:
xx = sndPlaySound("C:musik.wav", 1)مع ملاحظة أنني افترضت أن الملف الصوتي اسمه musik.wav وأنه موجود على الـ c: مباشرة ويمكنك التغيير كيفما تشاء ....
(f)(f)(f)
===================
(f)(f)(f)
هذا بالنسبة لملفات الـ wav أما بالنسبة لملفات الريل بلاير فإنك ستحتاج إلى أداة ocx الخاصة ببرنامج الريل بلاير ...
تحياتي
أخوك
عبد الله فتحي
الف شكر اخي عبدالله على الشرح حفظك الله مع العلم ان الملف ريل بريل
وفقك الله 00
أخي العزيز ... بالانسبة لتشغيل ملف ريل بلاير فكما ذكرت ستحتاج إلى الأداة الخاصة بذلك، لا أذكر اسمها بالضبط الآن ، ولكن الطريقة موجودة في موضوعي ( تصويت أكواد للمبتدئين ) ... إليك تحياتي ..
الله يحفظك 000 وسابحث عن رابط الموضوع 00اكرر الشكر اخي عبدالله
(f)(f)(f)(f)(f)
مشكووووووووووووووووووووووور(gift)
(f)(f)(f)(f)(f)(f)(f)(f)(f)والله يوفقك 00
هذا الموضوع مغلق.