ساخت برنامه ی mp3player

[2600]

اول از همه 5 کامند بزارید یکی واسه open ویکی واسه پلی واستوپ و دوتاهم واسه کم و زیاد کردن صدا یک timer ویک commandialogو یکmediaplayer ویک sliderرا از قسمت component به فرم خود وارد کنیدروی دکمه open کلیک نموده واین کد را برای آن بنویسید
op3.Filter = "Open(*.MP3 , *.Wav)|*.mp3;*.wav"
op3.ShowOpen
Mpl.FileName = op3.FileName
sl1.Value = 0
If op3.FileName <> "" Then
sl1.Max = Mpl.Duration
Timer1.Enabled = True
End If
op3=commandialog
sl1=sliderاین در بخش کومپونینت وجود دارد
mpl=mediaplayer
روی play کلیک نمایید واین کد را برایش بنویسید
On Error Resume Next
Mpl.Play
وروی سومین کانمد کلیک نمایید وبنویسید
Timer1.Enabled = False
sl1.Value = 0
Mpl.Stop
Mpl.FileName = ""
توی کامند چهار وپنج هم این هارا کپی نمایید برا کم وزیاد شدن صدا

Private Sub Command4_Click()
1 Mpl.Volume = Mpl.Volume + 100
If Mpl.Volume >= 0 Then Command4.Enabled = False Else If Not Mpl.Volume <= 0 Then GoTo 1
End Sub
Private Sub Command5_Click()
Mpl.Volume = Mpl.Volume + -100
Command4.Enabled = True
End Sub
وبعد روی slider دابل کلیک نمایید و این کد را برایش بنویسید
Mpl.CurrentPosition = sl1.Value
وبعد تو timerهم این کد را بنویسید
sl1.Value = Mpl.CurrentPosition
Me.Caption = "VBpLaYer Ver 1.0" & " >> " & sl1.Value

از این که خوانا نیست من را ببخشید عجله داشتم حتما نظر بدید

[MSALAMTI]

به نام خدا
سلام من این پروژه را خودم بستم جواب داده برای همین آن را به اشتراک گذاشتن
و مزیت این پروژه این است که کلید عقب جلو را اگه بگیرید آهنگ زمانش کم وزیاد می شود
و اینکه این برنامه با بسکام نوشته شده است ببندینش و جواب بگیرید با تشکر از کسانی که کمک کردن
آن پروژه درست شود بدون رو در واسی خودشون بستنش صابر منش و دشتی
http://parsaspace.com/files/5207084884/?c=817
این هم برنامه
MP3 PROGRAM.rar (7 KB)
Download Link : http://parsaspace.com/files/7778084884/?c=817

[سینا_00]

ممنون از لطفتون