منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] بخصوص برنامج مشغل الصوتيات والفديو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] بخصوص برنامج مشغل الصوتيات والفديو (/showthread.php?tid=1802)

الصفحات: 1 2 3 4

RE: بخصوص برنامج مشغل الصوتيات والفديو - قناص المدينة - 07-04-15

عاده رفع الملف

RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 08-04-15

(07-04-15, 12:08 PM)قناص المدينة كتب : عاده رفع الملف

اخي الغاي لقد جربت فتح الكتاب على اكتر من برنامج ولكن يعطيني انه معطوب
[attachment=6910]

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

RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 08-04-15

PHP كود :
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 

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




http://up.top4top.net/downloadf-top4top_ffcb4e38c41-zip.html

RE: بخصوص برنامج مشغل الصوتيات والفديو - ameerah - 08-04-15

كود :
Public Class Form1


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

        AxWindowsMediaPlayer1.uiMode = "none"

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

    End Sub


    Private Sub فتحToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles فتحToolStripMenuItem.Click
        OpenMedia()
    End Sub

    Private Sub PictureBox4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox4.Click
        OpenMedia()
    End Sub


    Private Sub OpenMedia()
        Using dlg As New OpenFileDialog
            dlg.Filter = "Media files|*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wm v;*.rm;*.ram;*.avi;*.asf"
            If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
                AxWindowsMediaPlayer1.URL = dlg.FileName
                TrackBar1.Maximum = AxWindowsMediaPlayer1.newMedia(dlg.FileName).duration
            End If
        End Using
    End Sub


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

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

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






    Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox2.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
    End Sub

    Private Sub PictureBox3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox3.Click
        AxWindowsMediaPlayer1.Ctlcontrols.pause()
    End Sub

    Private Sub PictureBox5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox5.Click
        AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
    End Sub

    Private Sub PictureBox6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox6.Click
        AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
    End Sub

    Private Sub PictureBox7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox7.Click
        If Me.AxWindowsMediaPlayer1.settings.mute = False Then
            Me.AxWindowsMediaPlayer1.settings.mute = True
            Me.TrackBar2.Enabled = False
        Else
            Me.AxWindowsMediaPlayer1.settings.mute = False
            Me.TrackBar2.Enabled = True
        End If
    End Sub

    Private Sub التاليToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles التاليToolStripMenuItem.Click
        AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
    End Sub

    Private Sub السابقToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles السابقToolStripMenuItem.Click
        AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
    End Sub


End Class


RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 09-04-15

(08-04-15, 04:26 PM)ameerah كتب :
كود :
Public Class Form1


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

       AxWindowsMediaPlayer1.uiMode = "none"

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

   End Sub


   Private Sub فتحToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles فتحToolStripMenuItem.Click
       OpenMedia()
   End Sub

   Private Sub PictureBox4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox4.Click
       OpenMedia()
   End Sub


   Private Sub OpenMedia()
       Using dlg As New OpenFileDialog
           dlg.Filter = "Media files|*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wm v;*.rm;*.ram;*.avi;*.asf"
           If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
               AxWindowsMediaPlayer1.URL = dlg.FileName
               TrackBar1.Maximum = AxWindowsMediaPlayer1.newMedia(dlg.FileName).duration
           End If
       End Using
   End Sub


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

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

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






   Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
       AxWindowsMediaPlayer1.Ctlcontrols.play()
   End Sub

   Private Sub PictureBox2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox2.Click
       AxWindowsMediaPlayer1.Ctlcontrols.stop()
   End Sub

   Private Sub PictureBox3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox3.Click
       AxWindowsMediaPlayer1.Ctlcontrols.pause()
   End Sub

   Private Sub PictureBox5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox5.Click
       AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
   End Sub

   Private Sub PictureBox6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox6.Click
       AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
   End Sub

   Private Sub PictureBox7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox7.Click
       If Me.AxWindowsMediaPlayer1.settings.mute = False Then
           Me.AxWindowsMediaPlayer1.settings.mute = True
           Me.TrackBar2.Enabled = False
       Else
           Me.AxWindowsMediaPlayer1.settings.mute = False
           Me.TrackBar2.Enabled = True
       End If
   End Sub

   Private Sub التاليToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles التاليToolStripMenuItem.Click
       AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
   End Sub

   Private Sub السابقToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles السابقToolStripMenuItem.Click
       AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
   End Sub


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




http://up.top4top.net/downloadf-top4top_ffcb4e38c41-zip.html

RE: بخصوص برنامج مشغل الصوتيات والفديو - قناص المدينة - 09-04-15

اخي العزيز تاكد من البرامج المستخدم لديك لان الملف يعمل لدي . استخدم برنامج الوينرار winrar

RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 09-04-15

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



RE: بخصوص برنامج مشغل الصوتيات والفديو - قناص المدينة - 11-04-15

هذا رابط تستطيع تنزيل الكتاب منه

http://www.kutub.info/library/book/5398

RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 11-04-15

لقد حملت الكتاب
شكر اك

RE: بخصوص برنامج مشغل الصوتيات والفديو - غزوان خليل - 16-04-15

(09-04-15, 11:44 AM)غزوان خليل كتب :
(08-04-15, 04:26 PM)ameerah كتب :
كود :
Public Class Form1


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

       AxWindowsMediaPlayer1.uiMode = "none"

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

   End Sub


   Private Sub فتحToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles فتحToolStripMenuItem.Click
       OpenMedia()
   End Sub

   Private Sub PictureBox4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox4.Click
       OpenMedia()
   End Sub


   Private Sub OpenMedia()
       Using dlg As New OpenFileDialog
           dlg.Filter = "Media files|*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wm v;*.rm;*.ram;*.avi;*.asf"
           If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
               AxWindowsMediaPlayer1.URL = dlg.FileName
               TrackBar1.Maximum = AxWindowsMediaPlayer1.newMedia(dlg.FileName).duration
           End If
       End Using
   End Sub


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

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

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






   Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
       AxWindowsMediaPlayer1.Ctlcontrols.play()
   End Sub

   Private Sub PictureBox2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox2.Click
       AxWindowsMediaPlayer1.Ctlcontrols.stop()
   End Sub

   Private Sub PictureBox3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox3.Click
       AxWindowsMediaPlayer1.Ctlcontrols.pause()
   End Sub

   Private Sub PictureBox5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox5.Click
       AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
   End Sub

   Private Sub PictureBox6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox6.Click
       AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
   End Sub

   Private Sub PictureBox7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox7.Click
       If Me.AxWindowsMediaPlayer1.settings.mute = False Then
           Me.AxWindowsMediaPlayer1.settings.mute = True
           Me.TrackBar2.Enabled = False
       Else
           Me.AxWindowsMediaPlayer1.settings.mute = False
           Me.TrackBar2.Enabled = True
       End If
   End Sub

   Private Sub التاليToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles التاليToolStripMenuItem.Click
       AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
   End Sub

   Private Sub السابقToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles السابقToolStripMenuItem.Click
       AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
   End Sub


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




http://up.top4top.net/downloadf-top4top_ffcb4e38c41-zip.html

اخي اين انت