اول از همه 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
از این که خوانا نیست من را ببخشید عجله داشتم حتما نظر بدید
به نام خدا
سلام من این پروژه را خودم بستم جواب داده برای همین آن را به اشتراک گذاشتن
و مزیت این پروژه این است که کلید عقب جلو را اگه بگیرید آهنگ زمانش کم وزیاد می شود
و اینکه این برنامه با بسکام نوشته شده است ببندینش و جواب بگیرید با تشکر از کسانی که کمک کردن
آن پروژه درست شود بدون رو در واسی خودشون بستنش صابر منش و دشتی
http://parsaspace.com/files/5207084884/?c=817
این هم برنامه
MP3 PROGRAM.rar (7 KB)
Download Link : http://parsaspace.com/files/7778084884/?c=817
ممنون از لطفتون
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks