تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية جلب مدة تشغيل عدة ملفات صوتية قبل تشغيلها
#1
السلام عليكم و رحمة الله و بركاته
هل يوجد طريقة لمعرفة زمن تشغيل عدة ملفات صوتية مختارة عن طريق اوبن فايل قبل تشغيلها و عرضها في قائمة
ارجو افادتي ان امكن
مشكورين
الرد }}}
تم الشكر بواسطة: ابو روضة
#2
(21-02-21, 11:40 AM)asmarsou كتب : السلام عليكم و رحمة الله و بركاته
هل يوجد طريقة لمعرفة زمن تشغيل عدة ملفات صوتية مختارة عن طريق اوبن فايل قبل تشغيلها و عرضها في قائمة
ارجو افادتي ان امكن
مشكورين

وعليكم السلام ورحمة الله وبركاته
هذا الكود استخدمته من قبل وهو يعمل جيدا
هناك اكواد اخرى تقوم بالمطلوب
لكن هذا ميزته السرعة

كود :
Dim w As New WMPLib.WindowsMediaPlayer
   Dim m As WMPLib.IWMPMedia ' = w.newMedia(file)

OpenFileDialog1.Title = "اختر ملفا صوتيا"
       OpenFileDialog1.Multiselect = True
       OpenFileDialog1.Filter = "ملفات صوتية(*.mp3)|"
       OpenFileDialog1.FileName = "*.mp3"

If (OpenFileDialog1.ShowDialog = DialogResult.OK) Then
           Cursor = Cursors.WaitCursor
           Application.DoEvents()
           '  TimerDuration.Enabled = True
           For Each file As String In OpenFileDialog1.FileNames
             
               m = w.newMedia(file)
               If m IsNot Nothing Then
                   Duration = m.durationString
                   Durationa = m.duration
               End If
               w.close()
   
 Lst = ListView1.Items.Add(IO.Path.GetFileName(file))
                Lst.SubItems.Add(Duration)
           Next
End If
واسند الناتج الى ليست فيو
الرد }}}
تم الشكر بواسطة: asmarsou , ابو روضة , ابو روضة
#3
(21-02-21, 12:36 PM)alfaiz678 كتب :
(21-02-21, 11:40 AM)asmarsou كتب : السلام عليكم و رحمة الله و بركاته
هل يوجد طريقة لمعرفة زمن تشغيل عدة ملفات صوتية مختارة عن طريق اوبن فايل قبل تشغيلها و عرضها في قائمة
ارجو افادتي ان امكن
مشكورين

وعليكم السلام ورحمة الله وبركاته
هذا الكود استخدمته من قبل وهو يعمل جيدا
هناك اكواد اخرى تقوم بالمطلوب
لكن هذا ميزته السرعة

كود :
Dim w As New WMPLib.WindowsMediaPlayer
   Dim m As WMPLib.IWMPMedia ' = w.newMedia(file)

OpenFileDialog1.Title = "اختر ملفا صوتيا"
       OpenFileDialog1.Multiselect = True
       OpenFileDialog1.Filter = "ملفات صوتية(*.mp3)|"
       OpenFileDialog1.FileName = "*.mp3"

If (OpenFileDialog1.ShowDialog = DialogResult.OK) Then
           Cursor = Cursors.WaitCursor
           Application.DoEvents()
           '  TimerDuration.Enabled = True
           For Each file As String In OpenFileDialog1.FileNames
             
               m = w.newMedia(file)
               If m IsNot Nothing Then
                   Duration = m.durationString
                   Durationa = m.duration
               End If
               w.close()
   
 Lst = ListView1.Items.Add(IO.Path.GetFileName(file))
                Lst.SubItems.Add(Duration)
           Next
End If
واسند الناتج الى ليست فيو
تمام التمام ...اتم الله عليك بوافر النعم و كفاك شر النقم كلانا وكل من اتبع قائلا آمين
الف شكر اخي الكريم
الرد }}}
تم الشكر بواسطة: ابو روضة
#4
امين
حياك الله اخي
الرد }}}
تم الشكر بواسطة: asmarsou , asmarsou , ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,123 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية ربط ماكينة الدفع ببرنامج الكاشير ؟ osamaelmaghraby 3 323 26-12-23, 11:53 PM
آخر رد: osamaelmaghraby
  كيفية رسم بيان دالة رياضية؟ الخير19 6 415 23-12-23, 03:36 PM
آخر رد: الخير19
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 672 14-12-23, 12:07 PM
آخر رد: asmarsou
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,605 10-12-23, 12:53 PM
آخر رد: محمد بن عطية

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم