بسم الله الرحمن الرحيم
الموضوع وما في هو كيفيه جعل المشروع اول ما افتحه ايغني ههه (طربان)
بالاضافه لزرين واحد لإيقاف الصوت اذا اندوشت والاخر لاعاده التشغيل مو صعبه
شوف:
اول شي نزل 2Command
سمي الاول Stop
والثاني Play
افتح شاشه الكود وانسخ الكود التلي والصقه فيه كما هو:
1.wav : اتغيريه للملف الصوتي الي تبيه بشرط امداده Wav
0 و 1 : الصفر لاقفال الصوت والواحد لاعاده تشغيله
ملاحظة : لا تنسى الملف الصوتي + البرنامج الناتج لازم ايكونوا بنفس المجلد
مثال مرفق من برمجتي:
http://www.mediafire.com/?ujvox4v2mq8jm14
اكيد لا تنسوا التقييم
بالتوفيق
الموضوع وما في هو كيفيه جعل المشروع اول ما افتحه ايغني ههه (طربان)
بالاضافه لزرين واحد لإيقاف الصوت اذا اندوشت والاخر لاعاده التشغيل مو صعبه
شوف:
اول شي نزل 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
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 : الصفر لاقفال الصوت والواحد لاعاده تشغيله
ملاحظة : لا تنسى الملف الصوتي + البرنامج الناتج لازم ايكونوا بنفس المجلد
مثال مرفق من برمجتي:
http://www.mediafire.com/?ujvox4v2mq8jm14
اكيد لا تنسوا التقييم
بالتوفيق
ومنير دربنا في مشوار البرمجة 
, وإصل حَـبيبي ,~
