کار با مدیا پلیر

[omid-vbAuto]

با سلام خدمت دوستای عزیزم

من با کامپوننت مدیا پلیر کار میکنم.ولی چندتا مشکل دارم:


1-نتونستم از کدهای زیر استفاده کنم.نحوه ی استفاده صحیحشو می تونید بفرمائید؟




AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
AxWindowsMediaPlayer1.Ctlcontrols.next()
AxWindowsMediaPlayer1.Ctlcontrols.previous()



2- می خوام قسمتی که در کادر قرمز مشخص کردم حذف بشه.چکار کنم؟


63777



3- با چه کدی می تونیم حجم صدا رو تغییر بدیم؟

4 - نمی دونم با نرم افزار KMPlayer کار کردین یا نه؟ولی یه گزینه داره که با زدن اون فیلم هر اندازه که باشه در کل صفحه نمایش داده میشه البته منظور من Full Screen نیست ها یعنی عکس رو میکشه تا کل صفحه از فیلم پر بشه فکر کنم Sterech باشه.با چه کدی می تونیم این کارو بکنیم؟

با تشکر از وقتی که می ذارین.

[omid-vbAuto]

همین طوری از کنارش رد نشین !!!

یه کم واسه حل مشکلات دیگران وقت بذارین.با تشکر

[omid-vbAuto]

دوستان در عجبم که یکی این سوالاتو بلد نیست !!! :متعجب::متعجب::متعجب:

[omid-vbAuto]

فکر کنم سوالمو اشتباهی تو این تالار طرح کردم.( آخه کسی جواب نمیده ) لطفا تالاری رو معرفی کنید که به سوال من پاسخ بده.:عصبانی++:

[mansourii]

من با کامپوننت مدیا پلیر کار میکنم.

-نتونستم از کدهای زیر استفاده کنم.نحوه ی استفاده صحیحشو می تونید بفرمائید؟

کد PHP:

AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
AxWindowsMediaPlayer1.Ctlcontrols.next()
AxWindowsMediaPlayer1.Ctlcontrols.previous()
سلام دوست عزیز/اگه از کامپونت استفاده میکنی مشکلی هم نباید داشته باشی/2- حذف نمیشه مگر اینکه توی فرم قایمش کنی یا سورس کامپونت رو ویرایش کنید(اگه کامپونتتون رو بذارید سورس رو تغییر میدم تا معلوم نباشه./3- مثلا چجوری وقتی کلید 1 رو زدید صدا زیاد و وقتی دکمه 2 رو زدید صدا کم بشه؟اگه منظورتون اینه این کاری نداره از صدای ویندوز رو کم کنید.اگه کدشو نمیدونید براتون نمونه میزارم./
[QUOTE][نمی دونم با نرم افزار KMPlayer کار کردین یا نه؟ولی یه گزینه داره که با زدن اون فیلم هر اندازه که باشه در کل صفحه نمایش داده میشه البته منظور من Full Screen نیست/QUOTE]
در این رابطه چیزی نمیدونم.

[omid-vbAuto]

سلام دوست عزیز/اگه از کامپونت استفاده میکنی مشکلی هم نباید داشته باشی/2- حذف نمیشه مگر اینکه توی فرم قایمش کنی یا سورس کامپونت رو ویرایش کنید(اگه کامپونتتون رو بذارید سورس رو تغییر میدم تا معلوم نباشه./3- مثلا چجوری وقتی کلید 1 رو زدید صدا زیاد و وقتی دکمه 2 رو زدید صدا کم بشه؟اگه منظورتون اینه این کاری نداره از صدای ویندوز رو کم کنید.اگه کدشو نمیدونید براتون نمونه میزارم./
[QUOTE][نمی دونم با نرم افزار KMPlayer کار کردین یا نه؟ولی یه گزینه داره که با زدن اون فیلم هر اندازه که باشه در کل صفحه نمایش داده میشه البته منظور من Full Screen نیست/QUOTE]
در این رابطه چیزی نمیدونم.

باز خدا رو شکر که یکی جواب داد:تشویق:

دوست عزیز من از کامپوننت خود VB استفاده کردم آیا می تونی ویرایشش کنی؟ نمی خوام قایمش کنم اگه ممکنه غیر فعالش کرد عالیه.

در مورد صدا هم هیچی نمیدونم اگه کدی جهت تغییر حجم صدا دارین لطف کنید.

[mansourii]

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

public class UseMediaPlayer
public Shared Sub Main
Application.Run(New FrmMediaPlayer)
End Sub
End class

Public Class FrmMediaPlayer
Inherits System.Windows.Forms.Form

' action menus
Friend WithEvents applicationMenu As MainMenu
Friend WithEvents fileItem As MenuItem
Friend WithEvents openItem As MenuItem
Friend WithEvents exitItem As MenuItem
Friend WithEvents aboutItem As MenuItem
Friend WithEvents aboutMessageItem As MenuItem

' media player control
Friend WithEvents player As AxMediaPlayer.AxMediaPlayer
Friend WithEvents openMediaFileDialog As OpenFileDialog

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FrmMediaP layer))
Me.applicationMenu = New System.Windows.Forms.MainMenu()
Me.fileItem = New System.Windows.Forms.MenuItem()
Me.openItem = New System.Windows.Forms.MenuItem()
Me.exitItem = New System.Windows.Forms.MenuItem()
Me.aboutItem = New System.Windows.Forms.MenuItem()
Me.aboutMessageItem = New System.Windows.Forms.MenuItem()
Me.openMediaFileDialog = New System.Windows.Forms.OpenFileDialog()
Me.player = New AxMediaPlayer.AxMediaPlayer()
CType(Me.player, System.ComponentModel.ISupportInitialize).BeginIni t()
Me.SuspendLayout()
'
'applicationMenu
'
Me.applicationMenu.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.fileItem, Me.aboutItem})
'
'fileItem
'
Me.fileItem.Index = 0
Me.fileItem.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.openItem, Me.exitItem})
Me.fileItem.Text = "File"
'
'openItem
'
Me.openItem.Index = 0
Me.openItem.Text = "Open"
'
'exitItem
'
Me.exitItem.Index = 1
Me.exitItem.Text = "Exit"
'
'aboutItem
'
Me.aboutItem.Index = 1
Me.aboutItem.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.aboutMessageItem})
Me.aboutItem.Text = "About"
'
'aboutMessageItem
'
Me.aboutMessageItem.Index = 0
Me.aboutMessageItem.Text = "About Windows Media Player"
'
'player
'
Me.player.Name = "player"
Me.player.OcxState = CType(resources.GetObject("player.OcxState"), System.Windows.Forms.AxHost.State)
Me.player.Size = New System.Drawing.Size(312, 288)
Me.player.TabIndex = 0
'
'FrmMediaPlayer
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(312, 287)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.player})
Me.Menu = Me.applicationMenu
Me.Name = "FrmMediaPlayer"
Me.Text = "MediaPlayer"
CType(Me.player, System.ComponentModel.ISupportInitialize).EndInit( )
Me.ResumeLayout(False)

End Sub

#End Region

Private Sub openItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles openItem.Click

openMediaFileDialog.ShowDialog()

player.FileName = openMediaFileDialog.FileName

player.Size = New Size(player.ImageSourceWidth, player.ImageSourceHeight)

Me.Size = New Size(player.Size.Width + 20,player.Size.Height + 60)
End Sub ' openItem_Click

' exit application
Private Sub exitItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles exitItem.Click

Application.Exit()
End Sub ' exitItem_Click

Private Sub aboutMessageItem_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles aboutMessageItem.Click

player.AboutBox()
End Sub

End Class

24.27.Media Player برای اینه/فکر کنم کنترل گرهاشو بشه با SmentialPro اگه اشتباه نکرده باشم تغییر داد.
البته زیاد امیدوارم نیستم/سعی خودمو میکنم تا درست بشه:لبخندساده:

[omid-vbAuto]

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

public class UseMediaPlayer
public Shared Sub Main
Application.Run(New FrmMediaPlayer)
End Sub
End class

Public Class FrmMediaPlayer
Inherits System.Windows.Forms.Form

' action menus
Friend WithEvents applicationMenu As MainMenu
Friend WithEvents fileItem As MenuItem
Friend WithEvents openItem As MenuItem
Friend WithEvents exitItem As MenuItem
Friend WithEvents aboutItem As MenuItem
Friend WithEvents aboutMessageItem As MenuItem

' media player control
Friend WithEvents player As AxMediaPlayer.AxMediaPlayer
Friend WithEvents openMediaFileDialog As OpenFileDialog

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FrmMediaP layer))
Me.applicationMenu = New System.Windows.Forms.MainMenu()
Me.fileItem = New System.Windows.Forms.MenuItem()
Me.openItem = New System.Windows.Forms.MenuItem()
Me.exitItem = New System.Windows.Forms.MenuItem()
Me.aboutItem = New System.Windows.Forms.MenuItem()
Me.aboutMessageItem = New System.Windows.Forms.MenuItem()
Me.openMediaFileDialog = New System.Windows.Forms.OpenFileDialog()
Me.player = New AxMediaPlayer.AxMediaPlayer()
CType(Me.player, System.ComponentModel.ISupportInitialize).BeginIni t()
Me.SuspendLayout()
'
'applicationMenu
'
Me.applicationMenu.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.fileItem, Me.aboutItem})
'
'fileItem
'
Me.fileItem.Index = 0
Me.fileItem.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.openItem, Me.exitItem})
Me.fileItem.Text = "File"
'
'openItem
'
Me.openItem.Index = 0
Me.openItem.Text = "Open"
'
'exitItem
'
Me.exitItem.Index = 1
Me.exitItem.Text = "Exit"
'
'aboutItem
'
Me.aboutItem.Index = 1
Me.aboutItem.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.aboutMessageItem})
Me.aboutItem.Text = "About"
'
'aboutMessageItem
'
Me.aboutMessageItem.Index = 0
Me.aboutMessageItem.Text = "About Windows Media Player"
'
'player
'
Me.player.Name = "player"
Me.player.OcxState = CType(resources.GetObject("player.OcxState"), System.Windows.Forms.AxHost.State)
Me.player.Size = New System.Drawing.Size(312, 288)
Me.player.TabIndex = 0
'
'FrmMediaPlayer
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(312, 287)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.player})
Me.Menu = Me.applicationMenu
Me.Name = "FrmMediaPlayer"
Me.Text = "MediaPlayer"
CType(Me.player, System.ComponentModel.ISupportInitialize).EndInit( )
Me.ResumeLayout(False)

End Sub

#End Region

Private Sub openItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles openItem.Click

openMediaFileDialog.ShowDialog()

player.FileName = openMediaFileDialog.FileName

player.Size = New Size(player.ImageSourceWidth, player.ImageSourceHeight)

Me.Size = New Size(player.Size.Width + 20,player.Size.Height + 60)
End Sub ' openItem_Click

' exit application
Private Sub exitItem_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles exitItem.Click

Application.Exit()
End Sub ' exitItem_Click

Private Sub aboutMessageItem_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles aboutMessageItem.Click

player.AboutBox()
End Sub

End Class

24.27.Media Player برای اینه/فکر کنم کنترل گرهاشو بشه با SmentialPro اگه اشتباه نکرده باشم تغییر داد.
البته زیاد امیدوارم نیستم/سعی خودمو میکنم تا درست بشه:لبخندساده:





مهندس کدها رو دادین این کدها مربوط به چه کاری هست؟


بعدش هم اگه میشه برنامه ی همین کد رو بدین چون وقتی استفاده می کنم صد و خوردای ایراد میگیره :گیج:

[MDSTmdst]

مهندس کدها رو دادین این کدها مربوط به چه کاری هست؟


بعدش هم اگه میشه برنامه ی همین کد رو بدین چون وقتی استفاده می کنم صد و خوردای ایراد میگیره :گیج:


این کد بالا نحوه ایجاد فرم و منو ها و کنترل رو از اول توضیح میده
و در آخر هم با استفاده از Dialogbox یا فایل رو انتخاب و پخش میکنه

من خودم امتحان نکردم ولی میتونی قسمت ایجاد فرم و منوها رو از کدا حذف کنی .و خودت طراحی کنی

در مورد سوال مربوط به Streatch هم فکر کنم بشه از قسمتی که سایز رو میده استفاده کنی.


player.Size = New Size(player.ImageSourceWidth, player.ImageSourceHeight)t

امتحان کن ببین میشه اطلاع بده.

[omid-vbAuto]

این کد بالا نحوه ایجاد فرم و منو ها و کنترل رو از اول توضیح میده
و در آخر هم با استفاده از Dialogbox یا فایل رو انتخاب و پخش میکنه




اگه شما تونستین از این کدها استفاده کنید ،لطف برنامشو بدین.

دوستمون mansourii این همه کد دادن ایشون هم برنامه ندادن!!!

[Navid Asadi]

سلام برای حذف پنل کنترل پایین کافی که UiMode رو برابر none قرار بدی
برای تغییر صدا از AxWindowsMediaPlayer1.settings.volume =100 استفاده کنید.
برای کنترل های Play stop و... از متد هایی مثل AxWindowsMediaPlayer1.Ctlcontrols.play() و برای عقب بردن یا جلوبردن از دستورات زیر استفاده کنید
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition -= 20
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition += 20

دلیل کار نکردن دستورات زیر فکر میکنم نبودن Play list باشه چون مربوط به اونه
AxWindowsMediaPlayer1.Ctlcontrols.next()
AxWindowsMediaPlayer1.Ctlcontrols.previous()

[Navid Asadi]

راستی در مورد strech کردن فکر کنم از mediaplayer استفاده نکنی بهتر باشه از کنترل های directX باید استفاده کنی (فکر کنم!)

[omid-vbAuto]

سلام برای حذف پنل کنترل پایین کافی که UiMode رو برابر none قرار بدی
برای تغییر صدا از AxWindowsMediaPlayer1.settings.volume =100 استفاده کنید.
برای کنترل های Play stop و... از متد هایی مثل AxWindowsMediaPlayer1.Ctlcontrols.play() و برای عقب بردن یا جلوبردن از دستورات زیر استفاده کنید
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition -= 20
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition += 20

دلیل کار نکردن دستورات زیر فکر میکنم نبودن Play list باشه چون مربوط به اونه
AxWindowsMediaPlayer1.Ctlcontrols.next()
AxWindowsMediaPlayer1.Ctlcontrols.previous()



دوست عزیز ازتون ممنونم اونم خیلی وسیع.

نوید من برای حذف پنل کنترل پایینی اون کاری رو که گفتی انجام دادم ولی این حذف کردن فقط در قسمت کد نویسی انجام میشه و وقتی برنامه رو Run می کنم دوباره اون پنله ظاهر میشه!!!:متفکر: اگه می تونی کد انجام این کارو بده.

بعدش هم راست میگین من Playlist نمی دونم چطوری بسازم کد می دین؟ (با استفاده از OpenFileDialog1 باشه عالیه ).





راستی در مورد strech کردن فکر کنم از mediaplayer استفاده نکنی بهتر باشه از کنترل های directX باید استفاده کنی (فکر کنم!)


شما خودتون با directX کار کردین؟ یهنی باهاش فیلم اینها باز کردین؟اگه آره راهنمائی کنید.

[mansourii]

نتونستید با سورس کار کنید؟:ناراحت:
شما گفتید که به سورس Componet دسترسی ندارید . منم این سورس رو با توضیحات براتون گذاشتم که دیگه مشکلی نباشه/کجای سورس رو متوجه نشدید تا براتون توضیح بدم؟

[omid-vbAuto]

نتونستید با سورس کار کنید؟:ناراحت:
شما گفتید که به سورس Componet دسترسی ندارید . منم این سورس رو با توضیحات براتون گذاشتم که دیگه مشکلی نباشه/کجای سورس رو متوجه نشدید تا براتون توضیح بدم؟

ازتونخیلی ممنونم ،ملی من کجا ازتون سورس خواسته بودم؟:متعجب:

بازم خوب سورستونم مطلب خوبیه ولی کار نکرد .اگر برنامه این سورس رو بدین خوبه.:چشمک:

[mansourii]

:متفکر:

باز خدا رو شکر که یکی جواب داد:تشویق:

دوست عزیز من از کامپوننت خود VB استفاده کردم آیا می تونی ویرایشش کنی؟ نمی خوام قایمش کنم اگه ممکنه غیر فعالش کرد عالیه.

در مورد صدا هم هیچی نمیدونم اگه کدی جهت تغییر حجم صدا دارین لطف کنید.
یادتون رفت؟؟

[omid-vbAuto]

:متفکر:

یادتون رفت؟؟





بازم خوب سورستونم مطلب خوبیه ولی کار نکرد .اگر برنامه این سورس رو بدین خوبه.:چشمک:



دوست عزیز من 100 دفعه گفتم اون برنامه رو بدین ولی خبری نشده !!! :عصبانی++:


در ضمن اینم بگم که هر چه از دوست رسد نیکوست.:لبخندساده:

[mansourii]

سلام دوست عزیز:لبخندساده:/ دنبال خروجی برنامه هستم/هنوز مشکل دارم باید برم دانشگاه سوالم رو مطرح کنم/انشالله کامل بشه براتون ارسال میکنم.:لبخندساده:

[Navid Asadi]

نوید من برای حذف پنل کنترل پایینی اون کاری رو که گفتی انجام دادم ولی این حذف کردن فقط در قسمت کد نویسی انجام میشه و وقتی برنامه رو Run می کنم دوباره اون پنله ظاهر میشه!!! اگه می تونی کد انجام این کارو بده.

به هیچ وجه نیاز به کد نویسی نیست تو پنل propertis تو خاصیت UiMode کلمه full , پاک کن و none رو بنویس


بعدش هم راست میگین من Playlist نمی دونم چطوری بسازم کد می دین؟ (با استفاده از OpenFileDialog1 باشه عالیه ).

در مورد این هم دقیقا همینجوری هستش اما من تا حالا کار نکردم اما فکر کنم باید یه playlist تعریف کنی و آدرس ها رو add کنی ! (ور بری باهاش دستت میاد)


شما خودتون با directX کار کردین؟ یهنی باهاش فیلم اینها باز کردین؟اگه آره راهنمائی کنید.

آره این کار رو کردم اما Strech نه اگه توضیح بیشتر می خوای بگو تا سورس هام رو مطالعه کنم حفظ نیستم .راستش به درد splesh Screen می خوره چون تو splesh ها نمیشه media player استفاده کرد

راستی برای strech کردن چرا فیلمت رو با فایل فلش نشون نمیدی؟

[omid-vbAuto]

به هیچ وجه نیاز به کد نویسی نیست تو پنل propertis تو خاصیت UiMode کلمه full , پاک کن و none رو بنویس



من هم همین کارو می کنم ولی نمیشه خودت امتحان کردی؟؟؟؟

[omid-vbAuto]

دوستان عزیز اگه کسی اطلاعاتی در این زمینه ها داره تا این بحث به نتیجه برسه تا من و سایر دوستان منبع خوبی در این زمینه داشته باشیم:


1- حذف پنل کنترل پایینی مدیا پلیر.
2-تعریف Playlist و اضافه کردن فایل های صوتی و تصویری تا بشه به آهنگ بعدی و قبلی رفت.
3- چطوری و با چه کدی می تونیم یه آهنگ رو بندازیم تو تکرار؟(Repeat ).

[Navid Asadi]

من هم همین کارو می کنم ولی نمیشه خودت امتحان کردی؟؟؟؟

بله امتحان کردم و خیلی عالی کار میکنه


چطوری و با چه کدی می تونیم یه آهنگ رو بندازیم تو تکرار؟(Repeat ).

از کد زیر استفاده کن :


With AxWindowsMediaPlayer1
.settings.autoStart = True
.settings.setMode("loop", True)
.settings.volume = 100
.Ctlcontrols.play()
End With

[omid-vbAuto]

ممنون از دوست خوبمون.حالا میمونه فقط سوال پایین که دست یکی دیگه از دوستامونو میبوسه:لبخند: تا بحث جمع کنیم:

تعریف Playlist و اضافه کردن فایل های صوتی و تصویری تا بشه به آهنگ بعدی و قبلی رفت.

-------------------------------------------------------------------------------------------------

در ضمن وقتی که ما از مدیا پلیر تو فرممون استفاده می کنیم .تو سیستم هدف باید چکار کنیم؟تا تو سیستم اونهم برناممون کار کنه؟؟؟

آیا وقتی که کامپوننت مدیا پلیر VB رو اضافه می کنیم کلیه کارها اتوماتیک انجام میشه؟یا باید کارهای دیگه ای هم انجام بدیم؟

[Navid Asadi]

اگه میشه بعد از جمع شدن بحث یک مثال کامل در باره MediaPlayer درست کن تا همه استفاده کنن!

[pouyansaraf]

تعریف Playlist و اضافه کردن فایل های صوتی و تصویری تا بشه به آهنگ بعدی و قبلی رفت.

سلام



AxWindowsMediaPlayer2.currentPlaylist.clear()

برای پاک کردن لیست پخش



AxWindowsMediaPlayer1.currentPlaylist.appendItem(A xWindowsMediaPlayer1.newMedia(Your Music Path"))

برای اضافه کردن آهنگ به لیست پخش



AxWindowsMediaPlayer1.currentPlaylist.moveItem(Old Music Index,New Music Index)


برای جابجایی مکان دو آهنگ در لیست پخش



AxWindowsMediaPlayer1.currentPlaylist.removeItem(A xWindowsMediaPlayer1.currentMedia)

آهنگ فعلی در حال پخش را از لیست حذف میکند



AxWindowsMediaPlayer1.currentPlaylist.removeItem(A xWindowsMediaPlayer1.currentPlaylist.Item(1))

آهنگ با ایندکس 1 که همان دومی در لیست پخش است را حذف میکند (ایندکس ها از صفر شروع میشوند)

[omid-vbAuto]

اگه میشه بعد از جمع شدن بحث یک مثال کامل در باره MediaPlayer درست کن تا همه استفاده کنن!

حتما این کارو می کنم.چشم.

[omid-vbAuto]

سلام



AxWindowsMediaPlayer2.currentPlaylist.clear()

برای پاک کردن لیست پخش



AxWindowsMediaPlayer1.currentPlaylist.appendItem(A xWindowsMediaPlayer1.newMedia(Your Music Path"))

برای اضافه کردن آهنگ به لیست پخش



AxWindowsMediaPlayer1.currentPlaylist.moveItem(Old Music Index,New Music Index)


برای جابجایی مکان دو آهنگ در لیست پخش



AxWindowsMediaPlayer1.currentPlaylist.removeItem(A xWindowsMediaPlayer1.currentMedia)

آهنگ فعلی در حال پخش را از لیست حذف میکند



AxWindowsMediaPlayer1.currentPlaylist.removeItem(A xWindowsMediaPlayer1.currentPlaylist.Item(1))

آهنگ با ایندکس 1 که همان دومی در لیست پخش است را حذف میکند (ایندکس ها از صفر شروع میشوند)


دوست عزیز شما به همه چیز اشاره کردی به غیر از Playlist مشکل من تو پر کردن Playlist هستش.نمی دونم چطوری Playlist رو از آیتم های انتخاب شده OpenFileDialog1 پر کنم.

و چطوری Playlist رو به دستور زیر ارجاع بدم:





AxWindowsMediaPlayer1.currentPlaylist.appendItem(A xWindowsMediaPlayer1.newMedia(Your Music Path"))




حالا اگه روشی رو بلدین که دستور بالا رو پر میکنه معرفی کنید.

[mansourii]

سلام/سورس رو ببین مشکل حل میشه.

[mansourii]

اینم یکی دیگه

[mansourii]

نحوه کد نویسی
Private Sub open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click
Try
opd.InitialDirectory = "c:\"
opd.ShowDialog()
player.URL = opd.FileName
player.Ctlcontrols.play()

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 mexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mexit.Click

Application.Exit()

End Sub
Private Sub play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play.Click

player.Ctlcontrols.play()

End Sub
Private Sub mstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mstop.Click

player.Ctlcontrols.stop()

End Sub
Private Sub mpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mpause.Click

player.Ctlcontrols.pause()

End Sub
Private Sub mup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mup.Click

player.settings.volume = player.settings.volume + 10

End Sub
Private Sub mdown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mdown.Click

player.settings.volume = player.settings.volume - 10

End Sub
Private Sub mmute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmute.Click

If player.settings.volume = player.settings.mute() Then

player.settings.volume = 20

Else

player.settings.volume = player.settings.mute()

End If

End Sub

[omid-vbAuto]

اینم یکی دیگه


مهندس دست درد نکنه به جواب نزدیک شدیم ولی هنوز نرسیدیم.

به عکس زیر نگاه کن ما Playlist رو پر می کنیم اما دکمه های جلو و عقب هنوز فعال نشدن!!!و همچنین کد های زیر هنوز هم کار نمی کنن!!!

63929


این کد ها رو دارم می گم:





AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
AxWindowsMediaPlayer1.Ctlcontrols.next()
AxWindowsMediaPlayer1.Ctlcontrols.previous()

[omid-vbAuto]

دوستان عزیز اولش همش Off می ذاشتم تا کسی بیاد و جواب بده ، ولی بعدش دوستان امدن و قسمت های مختلف کارو به دوش کشیدن تا حالا یه کارائی کردیم اما هنوز تموم نشده (اگه تموم بشه میذارم واسه دانلود).

لذا از دوستان خواهش می کنم تا تموم شدن این پروژه ما رو همراهی کنن.

و اما بریم در مورد پروژه بحث کنیم .من برای اینکه برناممون یه حالت گرافیک از نوع بالانس صدا داشته باشه فرمو به صورت زیر طراحی کردم.(به قسمت مستطیل قرمز توجه کنید).

حالا مشکلمون اینکه وقتی کلیپمون تموم شد به طریقی از تموم شدن اون اطلاع پیدا کنیم تا اون بالانس موسیقی رو از کار بندازیم.(و کار نکنه)

در ضمن اون بالانس موسیقی یه عکس از نوع GIF هست.



63930

[Navid Asadi]

حالا مشکلمون اینکه وقتی کلیپمون تموم شد به طریقی از تموم شدن اون اطلاع پیدا کنیم تا اون بالانس موسیقی رو از کار بندازیم.(و کار نکنه)
برای مطلع شدن از وضعیت media Player یک خاصیت وجود داره که نام درستش یادم نمیاد اما فکر کنم PlayStateChange باشه
مثلا دستور زیر پس از تمام شدن آهنگ روال کلیک یه button رو اجرا می کنه!

Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
If e.newState = WMPLib.WMPPlayState.wmppsMediaEnded Then GlassButton6_Click(GlassButton6, New EventArgs)
End Sub

[mansourii]

اون بالانسی که دارید میگید چند روزه دنبالشم/ هنوز هم گیرش نیاوردم/یک تایپیکی ایجاد کردم ولی هنوز کسی چیزی نگفته. اینم تایپیک (هنوز در صفحه اصلی هست. http://barnamenevis.org/showthread.php?265784-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%AE%D8%B1%D9%88%D8%AC%DB%8C-%D8%B5%D8%AF%D8%A7

بعدشم اون یک عکسه و کاربرد خاصی نداره. بنظرم یک کار کنیم. صدای زیر و بم صدا رو جدا نکنیم/این کار خیلی وقت خیلی زیادی نیاز داره/ اول یک خروجی کلی به همون بده .بعدا خودمون میتونیم زیر و بم و جدا کنیم. فقط یک خروجی دنبال این باش/ برای جدا کردن صدای زیر و بم راهی پیدا میکنیم.
مثل عکس پایین (فقط یکدونه خروجی)

[omid-vbAuto]

برای مطلع شدن از وضعیت media Player یک خاصیت وجود داره که نام درستش یادم نمیاد اما فکر کنم PlayStateChange باشه
مثلا دستور زیر پس از تمام شدن آهنگ روال کلیک یه button رو اجرا می کنه!

Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
If e.newState = WMPLib.WMPPlayState.wmppsMediaEnded Then GlassButton6_Click(GlassButton6, New EventArgs)
End Sub

با کد هائی که نوید جون دادن این مشکلم از سر راه برداشتیم. میمونه بقیه ی سوالامون.:تشویق:

[omid-vbAuto]

اون بالانسی که دارید میگید چند روزه دنبالشم/ هنوز هم گیرش نیاوردم/یک تایپیکی ایجاد کردم ولی هنوز کسی چیزی نگفته. اینم تایپیک (هنوز در صفحه اصلی هست. http://barnamenevis.org/showthread.php?265784-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%AE%D8%B1%D9%88%D8%AC%DB%8C-%D8%B5%D8%AF%D8%A7

بعدشم اون یک عکسه و کاربرد خاصی نداره. بنظرم یک کار کنیم. صدای زیر و بم صدا رو جدا نکنیم/این کار خیلی وقت خیلی زیادی نیاز داره/ اول یک خروجی کلی به همون بده .بعدا خودمون میتونیم زیر و بم و جدا کنیم. فقط یک خروجی دنبال این باش/ برای جدا کردن صدای زیر و بم راهی پیدا میکنیم.
مثل عکس پایین (فقط یکدونه خروجی)

دوست عزیز من هم با شما موافقم ولی فعلا چیزی در دست نداریم تا استفاده کنیم (پس همین عکس باقی بمونه بدک نیستش) .دوستان عزیز کمک کنن.

[pouyansaraf]

سلام
بخدا همه این مطالب تو سایت برنامه نویس هست ها
چرا جستجو نمیکنید

[omid-vbAuto]

سلام
بخدا همه این مطالب تو سایت برنامه نویس هست ها
چرا جستجو نمیکنید

دوست عزیز قسمت جستجوی سایت خراب شده.
چرا نگاه نمی کنید؟

[pouyansaraf]

فقط برای شما خراب شده؟

http://barnamenevis.org/search.php?searchid=28666

http://barnamenevis.org/search.php?searchid=28665

[omid-vbAuto]

فقط برای شما خراب شده؟

http://barnamenevis.org/search.php?searchid=28666

http://barnamenevis.org/search.php?searchid=28665


اولا لینک هائی که دادین کار نمی کنن.

دوما من خودم و اکثر بچه می دونن که سرچ سایت خرابه.شما چرا از این موضوع اطلاع ندارین!!!

[pouyansaraf]

واسه شما و اکثر بچه ها

:تشویق:

[mansourii]

سلام pouyansaraf (http://barnamenevis.member.php?102285-pouyansaraf)/
لینک ها یافت نشد.

اما جستجو سالمه/ در مورد این موضوع بحث مفصلی نشده.

[mansourii]

لطفا تایپیک معرفی نکیند/ خودتون اگه تو این زمینه کار کردید اطلاعات خود رو بذارید/
از کسانی که سعی دارن به دیگران کمک کنن سپاس گذارم.

[pouyansaraf]

تاپیک های هرز باعث میشه تا تاپیک های اصلی بی جواب بمونن

فقط کمک کردن مطرح نیست
اذیت نکردن دیگران هم مهمه

تمامی این مباحث چندین بار مطرح شده و به جواب نهایی هم رسیده
حالا مگه من بگم مگه متوجه میشید؟
نه

واقعا اگر نتونستی تو جستجو پیدا کنی اول برو کلاس ICDL مقدماتی بعد بیا تو این فروم
قسط توهین ندارم
اگر میخوای چندتا کتاب PDF خوب در زمینه کار با اینترنت دارم
اگر میخوای لینک دانلود بزارم چون احتمالا نمیتونی تو اینترنت جستجو کنی

ما هم نفهمیدیم جستجو برای شما و بچه هاتون کار میکنه یا نه؟
یکیتون میگه کار میکنه ، یکیشون میگه مگه نمیبینی کار نمیکنه. همه میدونن

واقعا از مدیران این بخش میخوام یه فکری واسه این تاپیک های 100بار تکراری بکنند

در هر صورت اول جستجو کن بعد سوال کنید تا تاپیک های ارزشمند به صفحات دیگر نره.
در هر صورت من چلنجی با شما ها ندارم.
اگر گوش شنوا داری متوجه میشی
اگرم نه که هر کاری میخوای بکن ولی به قول معروف ساید افکت نداشته باش

[mansourii]

واقعا اگر نتونستی تو جستجو پیدا کنی اول برو کلاس ICDL مقدماتی بعد بیا تو این فروم
قسط توهین ندارم
اگر میخوای چندتا کتاب PDF خوب در زمینه کار با اینترنت دارم
اگر میخوای لینک دانلود بزارم چون احتمالا نمیتونی تو اینترنت جستجو کنی

حق با شماست.
ولی بنظرم بهتر باشه توی این تایپیک وارد نشین/ چون با حرفهای پوچ و مجانی کار ما پیش نمیره.

[omid-vbAuto]

تاپیک های هرز باعث میشه تا تاپیک های اصلی بی جواب بمونن

فقط کمک کردن مطرح نیست
اذیت نکردن دیگران هم مهمه

تمامی این مباحث چندین بار مطرح شده و به جواب نهایی هم رسیده
حالا مگه من بگم مگه متوجه میشید؟
نه

واقعا اگر نتونستی تو جستجو پیدا کنی اول برو کلاس ICDL مقدماتی بعد بیا تو این فروم
قسط توهین ندارم
اگر میخوای چندتا کتاب PDF خوب در زمینه کار با اینترنت دارم
اگر میخوای لینک دانلود بزارم چون احتمالا نمیتونی تو اینترنت جستجو کنی

ما هم نفهمیدیم جستجو برای شما و بچه هاتون کار میکنه یا نه؟
یکیتون میگه کار میکنه ، یکیشون میگه مگه نمیبینی کار نمیکنه. همه میدونن

واقعا از مدیران این بخش میخوام یه فکری واسه این تاپیک های 100بار تکراری بکنند

در هر صورت اول جستجو کن بعد سوال کنید تا تاپیک های ارزشمند به صفحات دیگر نره.
در هر صورت من چلنجی با شما ها ندارم.
اگر گوش شنوا داری متوجه میشی
اگرم نه که هر کاری میخوای بکن ولی به قول معروف ساید افکت نداشته باش




راستشو بخواهین نمی خواستم وقتمو صرف پاسخ دادن به پست های پوچ کنم.ولی چون دوست عزیزم آقای منصوری جواب دادن وظیفه ی خودم دونستم تا چند خطی هم من بنویسم.:لبخند:


عزیز گیریم کل حرفاتون درست ولی من چندتا دلیل می آرم که شما خودتون با خودتون مشکل دارین:

1 - شما تو پست 37 همین تاپیک گفتی :




سلام
بخدا همه این مطالب تو سایت برنامه نویس هست ها
چرا جستجو نمیکنید


این در حالیه که شما تو پست 25 داشتی برا ما راه حل می دادی.خوب مرد مومن اگه تکراری بود همون اول می گفتی.دم دمی نباش!!!.

2 - نمی دونم شما جزء اصحاب کف هستی یا از خواب 300 ساله بلند شدی.تا همین چند وقت پیش از بزرگ تا کوچیک این سایت می دونستن که جستجوی سایت خرابه.حالا من هم هروز بعد از ورزش صبحگاهی نمی ام چک کنم که جستجو درست شده یا نه! این جواب جمله پایینتون بود:




فقط برای شما خراب شده؟

http://barnamenevis.org/search.php?searchid=28666 (http://barnamenevis.org/search.php?searchid=28666)

http://barnamenevis.org/search.php?searchid=28665 (http://barnamenevis.org/search.php?searchid=28665)





فقط برا من خراب نشده بود برا همه خراب شده بود شما هم حالا یه طقی به طوقی خرده فهمیدن جستجو درست شده .این رو باید مدیران اعلام می کردن که جستجو درست شده.

3 - شما می بینم وکیل وصی مدیران محترم سایتم که هستی::قهقهه:





واقعا از مدیران این بخش میخوام یه فکری واسه این تاپیک های 100بار تکراری بکنند



مدیران این سایت اگر ببینند مطلبی تکراری و یا بیهوده هست خودشون همون اول حذف می کنند شما برا خودتون تصمیم بگیرید.


یه چند کلمه هم برا دوستای خودم نوشتم:

بچه ها از همکاری همتون تشکر می کنم.نذارین همچین پست های بیهوده ای حس همکاری و حدتمونو به هم بریزه.راستشو بخواهین من بیشتر از اینکه با هم داشتم رو مدیا پلیر کار می کردیم حال می کردم که یه کار گروهی شکل گرفته و با هممیم.خواهشن به خاطر بعضی هم که شده نذارین این تاپیک بخوابه.

با تشکر از همه.

بازم می گم وقشو نداشتم این پست رو بنویسم ولی به خاطر داداش منصوری نوشتم.

[Navid Asadi]

مگه بازم سوال بی جوابی مونده؟

دوستان خوهش میکنم احترام همدیگر رو حفظ کنین!

دوستان ناراحت نشن ولی : گهی پشت به زین و گهی زین به پشت!

[omid-vbAuto]

مگه بازم سوال بی جوابی مونده؟

دوستان خوهش میکنم احترام همدیگر رو حفظ کنین!

دوستان ناراحت نشن ولی : گهی پشت به زین و گهی زین به پشت!

نوید جان به پست31 نگاه بکنی متوجه میشی. قربانت

[mansourii]

فکرشو نمیکردم اینطوری بشه/ این نوع بحث ها به جدال کشیده میشه هااا/ ما با هم همکار هستیم/ توی این سایت قراره به هم کمک کنیم نه اینکه سایه هم رو با تیر بزنیم.!/
فکر کنم بحث کار با مدیا پلیر هم تموم شده است. تایپیک خوبی بود و دوستان جواب های خوبی دادن. با تشکر از VB:لبخندساده:
اما دوستمون " پویان " میخواست راهی به ما نشون بده که زودتر به مقصد برسیم ( از پویان از بابت کمکتون سپاس گذارم ):لبخندساده:

انشالله موفق باشید

[Navid Asadi]

منم جوابت رو تو پست 33 دادم

[omid-vbAuto]

منم جوابت رو تو پست 33 دادم

من هم تو پست 35 پاسخ پست 33 شما رو دادم .نگاه کنید!

فقط باید نحوه استفاده از کدهای زیر رو بدونیم تا کل پرونده ی مدیا پلیر رو ببندیم.





AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
AxWindowsMediaPlayer1.Ctlcontrols.next()
AxWindowsMediaPlayer1.Ctlcontrols.previous()