الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارجو المساعدة

مغلق
بدأه عبدالرحمن حمد في 21 ديسمبر 2001 · 11 رد · 963 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

تحية طيبة اخواني

اخواني اروجو اعطائي طريقة وضع ملف فلاش وايضاً ملف صوتي على فريم حيث ان المتحكم بهم زر امر كلاً على حدا

وتقبلو تحياتي:)

#3

هذا الكود لتشغيل ملفات الصوت .

 Private Const SND_APPLICATION = &H80         '  look for application specific association
Private Const SND_ALIAS = &H10000     '  name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000    '  name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_FILENAME = &H20000     '  name is a file name
Private Const SND_LOOP = &H8         '  loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4         '  lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2         '  silence not default, if sound not found
Private Const SND_NOSTOP = &H10        '  don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000      '  don't wait if the driver is busy
Private Const SND_PURGE = &H40               '  purge non-static events for task
Private Const SND_RESOURCE = &H40004     '  name is a resource name or atom
Private Const SND_SYNC = &H0         '  play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll"_
Alias "PlaySoundA" (ByVal lpszName As String, _ 
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
#4

الله يعطيكم العافية اخواني ماقصرتو

أخي programmer2001 والله ماجربت لأني توني مفرمت الجهاز ولا نزلت فلاش ولكن سأجرب لاحقاً واعطيك خبر ماتخبر موقع احصل فلاش مع الكرك؟

اخي MANSUR جربت الكود يطلع لي خطاء بطريقة التاليه.

وضعت هذا الكود على زر الأمر

Private Const SND_APPLICATION = &H80 ' look for application specific association

Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry

Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier

Private Const SND_ASYNC = &H1 ' play asynchronously

Private Const SND_FILENAME = &H20000 ' name is a file name

Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound

Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file

Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found

Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound

Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy

Private Const SND_PURGE = &H40 ' purge non-static events for task

Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom

Private Const SND_SYNC = &H0 ' play synchronously (default)

Private Declare Function PlaySound Lib "winmm.dll"_

Alias "PlaySoundA" (ByVal lpszName As String, _

ByVal hModule As Long, ByVal dwFlags As Long) As Long

وهذا الكود على الفريم

Private Sub Form_Load()

PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC

End Sub

مع تغيير المسار C:WINDOWSMEDIATADA.WAV

ويوجد خطاء لا اعلم هل طريقتي خطاء؟

اشكركم على التجاوب وتقبلو تحياتي

#5

ارفعه للحاجتي به .

#6

اخي العزيز جرب هذا الكود

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Private Sub Command1_Click()
Dim ret As Long
    ret = waveOutGetNumDevs
    If ret > 0 Then
        'Play the selected sound
        sndPlaySound "C:winntmediatada.wav", SND_ASYNC Or SND_NODEFAULT
    Else
        MsgBox "No soundcard detected !"
    End If
End Sub
#7

الله يعطيك العافية اخوي لكن ايضاً هناك مشكله

وضعت الكود على زر امر وغيرت المسار ونفس المشكله

Private Sub Command1_Click()

Dim ret As Long

ret = waveOutGetNumDevs

If ret > 0 Then

'Play the selected sound

sndPlaySound "C:winntmediatada.wav", SND_ASYNC Or SND_NODEFAULT

Else

MsgBox "No soundcard detected !"

End If

End Sub

اخي ولا هو امر عليك ممكن تعجل بلأجابه لأني محتاجه جداً

اتوقع اني لم افهم مقصودك ممكن توضح الكود اكثر

#8

اخي العزيز ابو حمد وفقه الله

انت ماذا تريد بالضبط ؟

هل تريد مجرد قراءة ملف صوتي وماهو نوعه ؟

أم انك تريد قراءة هذا الملف (أيضا وما هو نوعه) مع التحكم في التوقف والبدء وغيرها مثل برنامج ويندوز media player

أيضا ماهو نظام التشغيل الذي تستخدمه

وشكرا

#9

اخي programmer2000 شكراً على الأهتمام بالموضوع .

نعم اريد تشغيل ملف صوتي وليكن "RealPlayer" واريده ان يشتغل ام مع الفروم او بزر امر كلاهم واحد الأن ولو اعطيتني الطريقتين تكون سعادتني كثير . نظام التشغيل ملينيوم -2000-اكس بي ايضاً اي واحد تبي اشغله اشر بس

اشكر مره ثانيه اخوي

#10

الخطأ عندك هو انك وضعت جمل الاعلان العام تحت زر الامر وهي 

Private Const SND_APPLICATION = &H80         '  look for application specific association

وهذه توضع في قسم الاعلان العام General كالتالي :

Private Const SND_APPLICATION = &H80         '  look for application specific association
Private Const SND_ALIAS = &H10000     '  name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000    '  name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_FILENAME = &H20000     '  name is a file name
Private Const SND_LOOP = &H8         '  loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4         '  lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2         '  silence not default, if sound not found
Private Const SND_NOSTOP = &H10        '  don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000      '  don't wait if the driver is busy
Private Const SND_PURGE = &H40               '  purge non-static events for task
Private Const SND_RESOURCE = &H40004     '  name is a resource name or atom
Private Const SND_SYNC = &H0         '  play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
'هذا يكون في قسم بدء التشغيل كما هو موضح
' ويمكنك نقل الجمله تحت زر الامر للتشغيل عن طريق زر الامر 
Private Sub Form_Load()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
#11

اخواني الله يعطيكم العافية ويجزاكم خير ماقصرتو والله الحقيقة جاء معي تمام مشكورين :) :)

#12

لا شكر على واجب والفضل لله

اخوك

هذا الموضوع مغلق.

مواضيع مشابهة