hacker-22
مشرف أنظمة التشغيل
عدد المساهمات : 136
تاريخ التسجيل : 07/04/2011
العمر : 34
الموقع : www.dev-point.mam9.com
 |  موضوع: طريقه وضع خلفيه صوتيه للمشروع  السبت أبريل 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 : الصفر لاقفال الصوت والواحد لاعاده تشغيله
ملاحظة : لا تنسى الملف الصوتي + البرنامج الناتج لازم ايكونوا بنفس المجلد
مثال مرفق من برمجتي:
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
| |
|
