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

سؤال مهم بخصوص التايمر وادة Axwindowsmediaplayer

بدأه majado2 في 13 ديسمبر 2009 · 6 رد · 897 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

اخواني اتمنى مساعدتي في مشروعي وهو مشروع برنامج للقران الكريم ..

واجهتني مشكله مع اداة AxWindowsMediaPlayer

حيث ان كود تشغيل الصوت 

Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3
        Me.AxWindowsMediaPlayer1.Ctlcontrols.play()

حيث currentPosition هو توقيت بدء التشغيل بالثوانى

كما في الكود السابق يبدا تشغيل الصوت من الثانيه 3

والذي اريده هو التوقيت 3000 بالتايمر بما يساوي 3 دقائق

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

Prerequisite: AxWindowsMediaPlayer1 and Timer1 on Form1.

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Interval = 1000

        Timer1.Start()

        AxWindowsMediaPlayer1.URL = "D:\VBproject\intro.wmv"

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim remain As Int32 = AxWindowsMediaPlayer1.currentMedia.duration - AxWindowsMediaPlayer1.Ctlcontrols.currentPosition

        Dim Minutes, Seconds, ElapsedTime As String

        Minutes = (remain / 60).ToString("00")

        Seconds = (remain Mod 60).ToString("00.00")

        ElapsedTime = Minutes & "." & Seconds

        Label1.Text = ElapsedTime

    End Sub

End Class

وايضا وجدت موضوع في هذا المنتدى ولم افهمه جيدا

هذا رابط الموضوع

/index.php?showtopic=206434

اتمنى اني اوصلت لكم ما اريدكم ان تساعدوني فيه

وشكرا لكم

تم تعديل هذه المشاركة بواسطة majado2 في 13 ديسمبر 2009 في 20:02

448e929608.jpg
#2

اخواني هل من احد يساعدني مشكورين .. ربي يعطيكم العافيه يارب

:)

448e929608.jpg
#3

help me

448e929608.jpg
#4

إذا كان الكود التالي يبدأ تشغيل الصوت من الثانية الثالثة :

Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3
        Me.AxWindowsMediaPlayer1.Ctlcontrols.play()

فهذا الكود حتما سيبدأ القراءة من الدقيقة الثالثة :

Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3 * 60
        Me.AxWindowsMediaPlayer1.Ctlcontrols.play()

إذا لم يكن هذا الحل الذي تنتظر, المرجو توضيح السؤال أكثر...

#5
محمد رضى كتب:

إذا كان الكود التالي يبدأ تشغيل الصوت من الثانية الثالثة :

Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3
        Me.AxWindowsMediaPlayer1.Ctlcontrols.play()

فهذا الكود حتما سيبدأ القراءة من الدقيقة الثالثة :

Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3 * 60
        Me.AxWindowsMediaPlayer1.Ctlcontrols.play()

إذا لم يكن هذا الحل الذي تنتظر, المرجو توضيح السؤال أكثر...

شكرا اخي على التوضيح وليس هذا ما ارته

الكود هنا حسابه بالثواني اي يبدا من الثانيه الثالثه

كلامك صحيح كما وضحت

لكن ما اردته هو

ان يكون الكود كالتالي 

Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3000

اداة التايمر 

Timer1.Interval = 1000

اي ان ثانيه واحد تساوي 1000

اتمنى اني وصلت الفكره كما يجب

448e929608.jpg
#6

جرب تعمل دالة ترجع العدد الذي تريد. مثلا :

Private Function GetSeconds(ByVal ms as integer) As Integer
    Return ms / 1000
End Function

فيصبح العمل بالشكل التالي :

Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = GetSeconds(3000)

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

1
#7
محمد رضى كتب:

جرب تعمل دالة ترجع العدد الذي تريد. مثلا :

Private Function GetSeconds(ByVal ms as integer) As Integer
    Return ms / 1000
End Function

فيصبح العمل بالشكل التالي :

Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = GetSeconds(3000)

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

جزاك الله كل خير

سوف اجرب وشكرا على افادتي لك مني كل الشكر والتقدير

448e929608.jpg

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…