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

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

اهلا وسهلا بك دائما والحمد الله على سلامتك شافاك الله وعافاك

يعطيك العافية

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

اهلا وسهلا بك دائما والحمد الله على سلامتك شافاك الله وعافاك

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

واعلم اخي الموقع للمساعده لا لطلب البرامج الكامله

فقط اريد هذه الكواد لو سمحتم
كود مسار الملف




وكود للتحكم بصوت

في البدايه افتح هالموقع
http://www.codeproject.com/Articles/1284...-in-VB-NET

ركز على هالصوره
http://www.codeproject.com/KB/vb/Play_so...tep2_A.gif
من فوق أختار Com Commpontes
أختار الاداء Windows Media Player

وشوف المشروع
المهم سويت للأداءه Visible = False
عشان انت تتحكم من نفسكك
اما غير هالاداه صدقني بتتعب لان جربت كم كود ومايشغل الا ملف WAV
اما اللي يشغل الملفات الثانيه اللي هو My.Computer.Sound.PlaySound يشغل الاغاني بدون أعدادات


.
.
.
http://arabsh.com/files/0c3e444f65f6/soundplay-rar.html

(04-04-15, 09:27 PM)es5s930 كتب : [ -> ]في البدايه افتح هالموقع
http://www.codeproject.com/Articles/1284...-in-VB-NET

ركز على هالصوره
http://www.codeproject.com/KB/vb/Play_so...tep2_A.gif
من فوق أختار Com Commpontes
أختار الاداء Windows Media Player

وشوف المشروع
المهم سويت للأداءه Visible = False
عشان انت تتحكم من نفسكك
اما غير هالاداه صدقني بتتعب لان جربت كم كود ومايشغل الا ملف WAV
اما اللي يشغل الملفات الثانيه اللي هو My.Computer.Sound.PlaySoundيشغل الاغاني بدون أعدادات


.
.
.
http://arabsh.com/files/0c3e444f65f6/soundplay-rar.html

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

---

(04-04-15, 10:52 PM)ameerah كتب : [ -> ]هذه مجموعة الأكواد الخاصة بمشغل الصوتيات والفديو على أساس TrackBar1 خاص بالتحكم بالمسار وTrackBar2 خاص بالتحكم بالصوت

كود :

Dim videofile As String = "video.mp4"


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

   AxWindowsMediaPlayer1.URL = videofile
   TrackBar1.Maximum = AxWindowsMediaPlayer1.newMedia(videofile).duration

   TrackBar2.Maximum = 100
   TrackBar2.Value = AxWindowsMediaPlayer1.settings.volume

End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   TrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
End Sub


Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
   AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar1.Value
End Sub


Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
   AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value
End Sub

سأجرب الأكود واعطيت النتيجه

اتمنى ان تستفيد من هذا الكتاب فيه شرح ومثال كامل 

(05-04-15, 12:17 PM)قناص المدينة كتب : [ -> ]اتمنى ان تستفيد من هذا الكتاب فيه شرح ومثال كامل 

شكرا لك على هذا الكتاب سأقرأه واطلعك على النتيجة

المهم بالتوفيق
الادوات مو ادوات هي اداءه وحده
وهي اداءه نفس برنامج windowsmediaplayer اللي يجيك مع النظامم
وطبعا الاداء م تشتغل الا اذ برنامج windowsmediaplayer موجود غير كذا محا يشتغل
والاداء هي للغه Visual Basic 6.0
بس يمديك تستخدمها على Visual Basic بدون أخطاء بدون شي

(04-04-15, 10:52 PM)ameerah كتب : [ -> ]هذه مجموعة الأكواد الخاصة بمشغل الصوتيات والفديو على أساس TrackBar1 خاص بالتحكم بالمسار وTrackBar2 خاص بالتحكم بالصوت

كود :

Dim videofile As String = "video.mp4"


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

   AxWindowsMediaPlayer1.URL = videofile
   TrackBar1.Maximum = AxWindowsMediaPlayer1.newMedia(videofile).duration

   TrackBar2.Maximum = 100
   TrackBar2.Value = AxWindowsMediaPlayer1.settings.volume

End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   TrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
End Sub


Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
   AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar1.Value
End Sub


Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
   AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value
End Sub

اخي الغالي لقد جربت الأكواد
كود التحكم بصوت صحيح
ولكن كود تقدم المسار لا يعمل

---

(05-04-15, 12:17 PM)قناص المدينة كتب : [ -> ]اتمنى ان تستفيد من هذا الكتاب فيه شرح ومثال كامل 

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