السلام عليكم اعتذز عن غيابي لكن وضعي الصحي يحتم علي ذلك
عندي مشروع برنامج مشغل الصوتيات والفديو واريد تشغيل جميع الاكواد المعروف
واايضا كيفية وضع صورة كرمز بدل اداة الميديا بلير وكيفية تنسيقها
لكم مني كل الاحترام والتقدير
وشكرا
وشوف المشروع
المهم سويت للأداءه Visible = False
عشان انت تتحكم من نفسكك
اما غير هالاداه صدقني بتتعب لان جربت كم كود ومايشغل الا ملف WAV
اما اللي يشغل الملفات الثانيه اللي هو My.Computer.Sound.PlaySound يشغل الاغاني بدون أعدادات
وشوف المشروع
المهم سويت للأداءه Visible = False
عشان انت تتحكم من نفسكك
اما غير هالاداه صدقني بتتعب لان جربت كم كود ومايشغل الا ملف WAV
اما اللي يشغل الملفات الثانيه اللي هو My.Computer.Sound.PlaySoundيشغل الاغاني بدون أعدادات
شكرا لك اخي لقد نفذت المشروع ولكن احب ان اسألك
ماهي الادوات لهذا الكود
PHP كود :
My.Computer.Sound.PlaySound
(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
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
المهم بالتوفيق
الادوات مو ادوات هي اداءه وحده
وهي اداءه نفس برنامج windowsmediaplayer اللي يجيك مع النظامم
وطبعا الاداء م تشتغل الا اذ برنامج windowsmediaplayer موجود غير كذا محا يشتغل
والاداء هي للغه Visual Basic 6.0
بس يمديك تستخدمها على Visual Basic بدون أخطاء بدون شي
07-04-15, 11:18 AM (آخر تعديل لهذه المشاركة : 07-04-15, 11:20 AM {2} بواسطة غزوان خليل.)
(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
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)قناص المدينة كتب : اتمنى ان تستفيد من هذا الكتاب فيه شرح ومثال كامل
اخي الغاي لقد جربت فتح الكتاب على اكتر من برنامج ولكن يعطيني انه معطوب
لذلك ارجوا ان تتحقق منه وترفعه لي موة اخرى