طريقة تكرار الصوت في النموذج

هل السؤال صعب أم أنه غير واضح ؟؟؟؟

حاول اضافة الاداة ملتيدميا الى النموذج

إلى خبراء الأكسس في المنتدى العامر

إلى كافة أعضاء المنتدى

من يعرف الطريقة فليخبرنا بها فهي فعلاً ممتازة وذكية

وأشكركم جميعاً مقدماً على تعاونكم

(clock)(clock)(clock)

ننتظر الفزعه

:'((clock):'((clock):'((clock):'((clock):'((clock)

بحثت عن موضوعي DoEvents وللمرة الثانية خلال هذا الإسبوع أفشل في استخدام البحث فأرجو من المسئولين تسهيل عملية البحث إلا إذا ذهب هذا المثال كغيره .

عموما هذا المثال لو طبق سوف يقوم باللازم إن شاء الله .

doevents.zip

أشكر الأستاذ أبو هادي على هذا المثال الذي لم أستطع التعامل معه لقلة خبرتي حيث اني مبتدئ

هذا هو جزئ من البرنامج أرجو التعديل عليه مشكورين

kkrraa.zip

الأخ الكريم عاشق الأكسس

السلام عليكم

التصور الأولي عندي أنه لا يمكن لك تنفيذ ما تريد من خلال الأمر السابق بل أنت بحاجة إلى أداة OCX للتعامل مع الصوت

هناك أداة تأتي مع الأوفيس يمكنك استخدامها وهي أداة windows media player

في المثال المرفق نموذج لاستخدام هذه الأداة بالطبع يمكنك ضبط الخصائص كما تشاء

لو طرحت السؤال في منتدى الفيجوال فلربما يفيدونك أكثر بحكم خبرتهم في هذه الأشياء

أخيراً أخي الكريم برنامج أكسس هو برنامج قواعد بيانات وقوته تكمن في هذه الناحية أما إذا احتجنا لوضع برامج فيها صور وأصوات فعلينا البحث عن لغات برمجة أخرى مثل فيجوال أو دلفي

أخوك / أبو هاجر

آسف نسيت إرفاق الملف وهذا هو

play_sound.zip

جرب وخبرنا .. أنا لم أجربها ولا أضمن النتائج

Private Sub CmdDo_Click()

  'Dim MaxLong, Counter As Long

  Dim msg As String

  

  Me.CmdStop.Enabled = True

  Me.CmdClose.Enabled = False

  

  'MaxLong = 10000

  

  'For Counter = 1 To MaxLong

  Do While True

    DoEvents

    If Me.CmdStop.Enabled = False Then

      msg = "áÞÏ ÞãÊ ÈãÞÇØÚÉ ÅÌÑÇÁ ÃËäÇÁ ÇáãÚÇáÌÉ" & Chr(13) & _

            "ãÊÃßÏ ãä ÅäåÇÁ ÇáÚãáíÉ"

      If vbYes = MsgBox(msg, vbYesNo, CurrentUser) Then

        Me.Caption = "DoEvents Function Example"

        Exit Do

      Else

        Me.CmdStop.Enabled = True

        Me.CmdClose.Enabled = False

      End If

    End If

    Call Shell("C:windowsSndrec32.exe /play ""C:My Documentsalarm2.wav"" /close ", 0)

  Loop

  'Next Counter

        

  Me.CmdStop.Enabled = False

  Me.CmdClose.Enabled = True

End Sub

تحياتي

تمنيت لو تم التعديل على المثال الذي تم إرفاقه

ولكما جزيل الشكر

الأخ فهد

السلام عليكم وبعد

اقتباس

التصور الأولي عندي أنه لا يمكن لك تنفيذ ما تريد من خلال الأمر السابق بل أنت بحاجة إلى أداة OCX للتعامل مع الصوت

حبذا لو جربت المثال المرفق وأفدتنا عن النتيجة

أخوك / أبو هاجر

جربت طريقة الاخ ابو هادي ولكن يجب ان يكون ملف

الصوت سريع جدا اي 1 جزء من الثانية حتى لا تظهر رسالة مسجل الصوت

حاولت ان اهدي سرعة العداد ولكن لم اعرف كيف السبيل لذلك

إن شاء الله تجدون الحل

شوفو المثال

sawt.rar

تعديل على تعديل أخي الهاجري

الحقيقة لم أهتم في حياتي بهذه الأمور أصوات ، صور ، ألوان .. الخ

عموما رأيت نفسي في المعمعة وكنت أقصد بوضع مثالي الأول هو أخذ الفكرة فقط من عملية المقاطعة .

عموما لا تنسوا أن تغيروا المسار مع ملاحظة لا يوجد عندي كرت صوت .. لا تستغربوا .

تحياتي

sound.zip

هل جربتم وضع هذا الكود في الوحدة النمطية الخاصة بالنموذج

وهو من موضوع شريط التقدم في موقع ابو حمود

Private Sub Pause(ByVal nSecond As Single)
Dim t0 As Single
t0 = Timer
Do While Timer - t0 < nSecond
Dim dummy As Integer
dummy = DoEvents()
If Timer < t0 Then
t0 = t0 - CLng(24) * CLng(60) * CLng(60)
End If
Loop
End Sub

ويتم استدعاؤه كمايلي

  Pause (10)

في مكان مناسب بين for و next في الكود الموجود في المثال

حيث عشرة إذا كان طول الصوت المسجل عشر ثواني

معذرة

فحين كتابة المشاركة السابقة لم أشاهد رد أبو هادي

ابو هادي الله يجزاك خير على الطريقة

ماقصرت وبيض الله وجهك

الاخ حارث ايضا الله يجزاك خير وكثر الله من امثالك

الله لا يحرمنا منكم يا خبراء الأكسس

ممكن التعديل على المثال فقط

شاكرا جهودكم

tttt.zip

الملف بعد التعديل :

soundloop.zip

مهما قلت فلن أوفيك حقك يا أستاذ أبو هادي وهذا جميل لن أنساه لك

فجزاك الله عني خير الجزاء