مرحبا بكم فى منتدى هكرز www.dev-point.ibda3.org
 
الرئيسيةالرئيسية  اليوميةاليومية  س .و .جس .و .ج  بحـثبحـث  الأعضاءالأعضاء  المجموعاتالمجموعات  التسجيلالتسجيل  دخولدخول  
أهلا وسهلا بك زائرنا الكريم، إذا كانت هذه زيارتك الأولى للمنتدى، فيرجى التكرم بزيارة صفحة التعليمـــات، بالضغط على هنا. كما يشرفنا أن تقوم بالتسجيل بالضغط هنا اذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع فتفضل بزيارة القسم الذي ترغب أدناه.

شاطر | 
 

 طريقه وضع خلفيه صوتيه للمشروع

اذهب الى الأسفل 
كاتب الموضوعرسالة
hacker-22
مشرف أنظمة التشغيل
مشرف أنظمة التشغيل
avatar

عدد المساهمات : 136
تاريخ التسجيل : 07/04/2011
العمر : 28
الموقع : www.dev-point.ibda3.org

مُساهمةموضوع: طريقه وضع خلفيه صوتيه للمشروع   السبت أبريل 23, 2011 9:46 am

بسم الله الرحمن الرحيم

الموضوع وما في هو كيفيه جعل المشروع اول ما افتحه ايغني ههه (طربان)
بالاضافه لزرين واحد لإيقاف الصوت اذا اندوشت والاخر لاعاده التشغيل مو صعبه
شوف:

اول شي نزل 2Command
سمي الاول Stop
والثاني Play

افتح شاشه الكود وانسخ الكود التلي والصقه فيه كما هو:

Dim a As Boolean

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
If Command1.Value = True Then sndPlaySound App.Path & "\1.wav", 0
End Sub

Private Sub Command2_Click()
If Command2.Value = True Then sndPlaySound App.Path & "\1.wav", 1
End Sub

Private Sub Form_Load()
If Not a Then
r = sndPlaySound(App.Path & "\1.wav", 1)
a = True
End If
End Sub

1.wav : اتغيريه للملف الصوتي الي تبيه بشرط امداده Wav

0 و 1 : الصفر لاقفال الصوت والواحد لاعاده تشغيله
ملاحظة : لا تنسى الملف الصوتي + البرنامج الناتج لازم ايكونوا بنفس المجلد

مثال مرفق من برمجتي:
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
طريقه وضع خلفيه صوتيه للمشروع
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى الهكرز :: قسم فيجوال بيسك-
انتقل الى: