تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساء الخير شباب برنامج مشغل الملتميديا
#1
الحمد لله اخيرآ اكملت برنامجى الصغير مشغل الملتميديا وهذه الاكواد للفائده والتطوير بس المره دى بالفيجوال 2008
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.TrackBar2.Value = Me.player.settings.volume
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles TrackBar1.Scroll
Me.player.Ctlcontrols.currentPosition = (Me.TrackBar1.Value /
100) * Me.player.currentMedia.duration
End Sub
Private Sub opd_FileOk(ByVal sender As System.Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles opd.FileOk
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button6.Click
Try
opd.Filter = "Media Files
(*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wmv;*.rm;*.ram;*.avi;*.asf;*.
3gp;*.mov;*.divx;*.swf;*.flv;*.bmp;*.png;*.jpg;*.jepg;*.gif)|*.wav;*.
mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wmv;*.rm;*.ram;*.avi;*.asf;*.3gp;*.mov
;*.divx;*.swf;*.flv;*.bmp;*.png;*.jpg;*.jepg;*.gif|All
Files(*.*)|*.*"
If opd.ShowDialog() = Windows.Forms.DialogResult.OK Then
player.URL = opd.FileName
player.Ctlcontrols.play()
End If
Catch ex As Exception
MessageBox.Show("Some error occur so can't play media",
"Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
player.Ctlcontrols.play()
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button9.Click
player.settings.volume = player.settings.volume + 10
Me.TrackBar2.Value = Me.player.settings.volume
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button7.Click
If Me.player.settings.mute = False Then
Me.player.settings.mute = True
Me.TrackBar2.Enabled = False
Else
Me.player.settings.mute = False
Me.TrackBar2.Enabled = True
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button2.Click
player.Ctlcontrols.stop()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button3.Click
player.Ctlcontrols.pause()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button4.Click
player.Ctlcontrols.fastForward()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button5.Click
player.Ctlcontrols.fastReverse()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button8.Click
player.settings.volume = player.settings.volume - 10
Me.TrackBar2.Value = Me.player.settings.volume
End Sub
Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles TrackBar2.Scroll
On Error Resume Next
player.settings.volume = Me.TrackBar2.Value
End Sub
End Class
الرد
تم الشكر بواسطة: غزوان خليل , ربيع
#2
شكرا لك
لكن هل ترفع لنا السورس كود
وطريقة البرمجة
الرد
تم الشكر بواسطة: ربيع
#3
نحمده ونصلي على رسوله الكريم

هلا قمت بوضع بعض الصور للتطبيق ثم شرح بعض الكودات ليس كلها فقط بعضها الذي ترا انه يرد شرح ثم ضع السورس كود وجزيت خيرا
الرد
تم الشكر بواسطة:
#4
ال opd.Filter = "Media Files هو الفلتر المسؤول عن استيراد الصيغ المحدده فى الكود انا اختر صور وصيغ اغنى وفيديهات كثيره وغيرت النيم تبع openfiledialog الى opd ثم استخدمت جمله ifالتاليه....
If opd.ShowDialog() = Windows.Forms.DialogResult.OK Then
اى بمعنى اذا البرنامج اتوصل الى الصيغ المزكور عليه ان يشغل الماده حسب الصيغه اى قم بالتالى
player.URL = opd.FileName
player.Ctlcontrols.play()
End If
وكلمه try ,catch طبعا حضراتكم عارفنهم لاصطياد الاخطاء المتوقعه
اعزرونى اذا قصرت وسوف اضع السورس تبع البرنامج والصور قريبا
تحياتى
الرد
تم الشكر بواسطة: غزوان خليل


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] سورس كود برنامج مبيعات لسه مبتدئ 37 9,286 17-11-18, 11:57 PM
آخر رد: elgokr
  سورس كود برنامج نقاط البيع linksys code3x 14 3,424 17-11-18, 11:04 PM
آخر رد: عماد السيد
Star [مشروع] برنامج مبيعات مفتوح المصدر 2018 mohammedvego 73 11,393 15-11-18, 05:51 PM
آخر رد: elgokr
Video شرح كود عمل برنامج لعمل نسخة احتياطية لقاعدة بيانات اكسيس واستعادتها بفيجوال بيسك دوت ggtt17121985 0 53 14-11-18, 03:30 AM
آخر رد: ggtt17121985
  برنامج صغير لمسح أثار احد الفيروسات viv 1 173 08-11-18, 10:34 PM
آخر رد: عماد السيد
  [VB.NET] مثال بسيط عن كيفية عمل برنامج المصحف كمثال موقع [ quran.ksu.edu.sa ] elgokr 8 377 07-11-18, 12:43 PM
آخر رد: elgokr
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 10 6,903 07-11-18, 02:36 AM
آخر رد: عماد السيد
Heart [مشروع] نسخه مصغره من برنامج صانع الاكواد للجميع aliday03 15 5,023 25-10-18, 01:57 AM
آخر رد: عماد السيد
Lightbulb [مشروع] مطلوب برنامج نظام صيدليه بالفيجوال بيسك 2010 May-5 6 415 16-10-18, 03:02 AM
آخر رد: عبد العزيز البسكري
  [مشروع] سورس كود برنامج دليل الهاتف الشخصي essawq 10 570 02-10-18, 11:56 PM
آخر رد: essawq

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


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