سورس موزیک پلیر توسط دیتا بیس

[amirjun32 105]

این یک سورس موزیک پلیره

قرار بود واسه فروش بزارمش.اما رایگان میزارم تاهمه استفاده کنن.اینم یک عکس ازش

http://s5.picofile.com/file/8173400426/music_player_with_sql.zip.html

[amirjun32 105]

اگه دوستان خواستن که به صورت دسته بندی هم بشه اهنگارو پخش کرد،بگید تا کدشو بزارم

[vistamobile 1,700]

ممنون میشم بزاریم

[amirjun32 105]

ممنون میشم بزاریم

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

[masoud8600 10]

اگه بزاری که عالی میشه

[حاج حسین 2,098]

ممنون اقای طاهری فقط اینکه اگر بخواهیم خودش بره آهنگ بعدی چه کار کنیم ؟

[amirjun32 105]

چشم.دارم یک سری تغییرات رو توش انجام میدم.

از جمله:

پخش خودکار آهنگ بعد از فشره شدم کلید های جلو وعقب

رفتن خودکاربه اهنگ بعدی

نمایش عکس مربوط به هر موسیقی

امکان دسته بندی موسیقی ها

ان شاا.. در سریعترین زمان ممکن توسایت میزارمش

[wryakamangar 10]

چشم.دارم یک سری تغییرات رو توش انجام میدم.

از جمله:

پخش خودکار آهنگ بعد از فشره شدم کلید های جلو وعقب

رفتن خودکاربه اهنگ بعدی

نمایش عکس مربوط به هر موسیقی

امکان دسته بندی موسیقی ها

ان شاا.. در سریعترین زمان ممکن توسایت میزارمش

چشمت بی بلا

[amirjun32 105]

(اینارو کلا جایگزین act1 کنید)

انیم تغییرات اعمال شده:

پخش خودکار آهنگ بعد از فشره شدن کلید های جلو وعقب

رفتن خودکاربه اهنگ بعدی

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

#Region Activity Attributes
#FullScreen: true
#IncludeTitle: false
#End Region


Sub Process_Globals
Dim SQL As SQL
Dim timer1 As Timer
End Sub


Sub Globals
Dim cr As Cursor
Dim i As Int:i=0
Private lblword As Label
Private imgnex As ImageView
Dim MediaPlayer1 As MediaPlayer
Private btnsot As Button
Dim barPosition As SeekBar
Dim barVolume As SeekBar
Dim lblPosition As Label
Dim Looping As ToggleButton
Private imgback As ImageView
Private imgpause As ImageView
Private imgplay As ImageView
Private imgstop As ImageView


Private Label4 As Label
End Sub


Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
If File.Exists(File.DirInternal,"sqldata2.db")=False Then
File.Copy(File.DirAssets,"sqldata2.db",File.DirInternal,"sqldata2.db")
End If
SQL.Initialize(File.DirInternal,"sqldata2.db",False)
timer1.Initialize("timer1", 1000)


Try
cr=SQL.ExecQuery("SELECT*FROM sqldataa")
cr.Position=i
lblword.Text=cr.GetString("sot")
Catch
End Try


MediaPlayer1.Initialize( )
MediaPlayer1.Load(File.DirAssets, lblword.Text)

End Sub


Sub imgnex_Click
imgpause.Visible=False
imgplay.Visible=True
If MediaPlayer1.IsPlaying Then
MediaPlayer1.stop
End If
i=i+1
Try
cr=SQL.ExecQuery("SELECT*FROM sqldataa")
cr.Position=i
lblword.Text=cr.GetString("sot")
Catch
End Try
'///////
MediaPlayer1.Initialize( )
MediaPlayer1.Load(File.DirAssets, lblword.Text)
MediaPlayer1.play
imgpause.Visible=True
imgplay.Visible=False




'/////////
End Sub
Sub imgback_Click
imgpause.Visible=False
imgplay.Visible=True
If MediaPlayer1.IsPlaying Then
MediaPlayer1.stop
End If
i=i-1
Try
cr=SQL.ExecQuery("SELECT*FROM sqldataa")
cr.Position=i
lblword.Text=cr.GetString("sot")
Catch
End Try
MediaPlayer1.Initialize( )
MediaPlayer1.Load(File.DirAssets, lblword.Text)
MediaPlayer1.play
imgpause.Visible=True
imgplay.Visible=False
End Sub


Sub imgplay_Click
MediaPlayer1.Initialize( )
MediaPlayer1.Load(File.DirAssets, lblword.Text)
MediaPlayer1.play
imgpause.Visible=True
imgplay.Visible=False
'/////////////




'////////
End Sub


Sub Activity_Resume
timer1.Enabled = True
timer1_Tick




End Sub


Sub Activity_Pause (UserClosed As Boolean)
If MediaPlayer1.IsPlaying Then MediaPlayer1.Pause
timer1.Enabled = False
End Sub


Sub timer1_Tick
If MediaPlayer1.IsPlaying Then
barPosition.Value = MediaPlayer1.Position / MediaPlayer1.Duration * 100
lblPosition.Text = "Position: " & ConvertToTimeFormat(MediaPlayer1.Position) & _
" (" & ConvertToTimeFormat(MediaPlayer1.Duration) & ")"



End If
If (MediaPlayer1.Position*1.005)>=MediaPlayer1.Duration Then
imgnex_Click
'Msgbox("ddrb","hddr")
'MediaPlayer1.Play
End If


End Sub
Sub ConvertToTimeFormat(ms As Int) As String
Dim seconds, minutes As Int
seconds = Round(ms / 1000)
minutes = Floor(seconds / 50)
seconds = seconds Mod 50
Return NumberFormat(minutes, 1, 0) & ":" & NumberFormat(seconds, 2, 0) 'ex: 3:05


End Sub


Sub barVolume_ValueChanged (Value As Int, UserChanged As Boolean)
MediaPlayer1.SetVolume(barVolume.Value / 100, barVolume.Value / 100)
End Sub


Sub barPosition_ValueChanged (Value As Int, UserChanged As Boolean)
If UserChanged = False Then Return
MediaPlayer1.Position = Value / 100 * MediaPlayer1.Duration
If MediaPlayer1.IsPlaying = False Then 'in halat zamani etefagh miofte k music b akhar reside v karbar neshangaro b aval montaghel mikone
MediaPlayer1.Play
End If
timer1_Tick
End Sub


Sub Looping_CheckedChange(Checked As Boolean)
MediaPlayer1.Looping = Checked
End Sub




Sub imgstop_Click
MediaPlayer1.Stop
imgpause.Visible=False
imgplay.Visible=True
End Sub


Sub imgpause_Click
MediaPlayer1.Pause
imgpause.Visible=False
imgplay.Visible=True
End Sub

[shahab1392 47]

واقعا ممنون که راهنمایی کردید دوست عزیز

حالا یه سئوال اگه بخواهیم که به آهنگ آخری رسد و بگه شما به آخرین آهنگ رسیدید باید چکار باید کرد

[amirjun32 105]

واقعا ممنون که راهنمایی کردید دوست عزیز

حالا یه سئوال اگه بخواهیم که به آهنگ آخری رسد و بگه شما به آخرین آهنگ رسیدید باید چکار باید کرد

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

[shahab1392 47]

سلام amirjun32 وقت کردی ؟؟؟؟

(حالا یه سئوال اگه بخواهیم که به آهنگ آخری رسد و بگه شما به آخرین آهنگ رسیدید باید چکار باید کرد)

[مهدی ایزدی 9,203]

سلام amirjun32 وقت کردی ؟؟؟؟

(حالا یه سئوال اگه بخواهیم که به آهنگ آخری رسد و بگه شما به آخرین آهنگ رسیدید باید چکار باید کرد)

شما اگه آهنگ ها id داشته باشن راحت میتونید id آخری رو شناسایی کنی و بگی آهنگ ها تمام شدن !!!

[msajad 501]

حالا سوال بزرگ تر اگه بخواییم بگرده کل اهنگ های تو sd کارت رو بیاره چی؟

[مهدی ایزدی 9,203]

حالا سوال بزرگ تر اگه بخواییم بگرده کل اهنگ های تو sd کارت رو بیاره چی؟

تا اینجا تاپیک بحث دیتابیس بود *گاز* الان یهو بحث SD Card اومد وسط چرا ...

شما باید اول کل فایل ها پوشه موزیک رو بگیرید.

به این تاپیک که توی قسمت ابزارهای انجمن هست سر بزنید:

http://answercenter.ir/thread214.html

[msajad 501]

تا اینجا تاپیک بحث دیتابیس بود *گاز* الان یهو بحث SD Card اومد وسط چرا ...

شما باید اول کل فایل ها پوشه موزیک رو بگیرید.

به این تاپیک که توی قسمت ابزارهای انجمن هست سر بزنید:

http://answercenter.ir/thread214.html

ببخشید یهویی پریدم وسط*زبونک*

اگه یادتون باشه خودم این مثاله رو مطرح کردم شما این کتابخونه رو نوشتید

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

اگه یادتون باشه تو پیام خصوصی این موضوع رو بهتون گفتم

[مهدی ایزدی 9,203]

ببخشید یهویی پریدم وسط*زبونک*

اگه یادتون باشه خودم این مثاله رو مطرح کردم شما این کتابخونه رو نوشتید

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

اگه یادتون باشه تو پیام خصوصی این موضوع رو بهتون گفتم

اجازه بدید سعی میکنم خودم سورس رو بنویسم و توی تاپیک جداگونه قرار بدم !

[sana 10]

سلام ، مرسی از برنامه مفیدتون

فقط یه سوال با دکمه های ولوم گوشی چجوری صدا کم و زیاد میشه؟/

ممنون میشم راهنمایی کنید

[ehadi 16]

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

فقط یه موردی تو سورس هست

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

an error has occurred in sub:

java.io.FileNotFoundException:

null

Continue?

چ/وری این ارورو حذف کنیم؟

ممنون میشم پاسخ بدید.

[shahab1392 47]

حالا چطور میشه بعد از اینکه آهنگ تمام شد اتوماتیک بره آهنگ بعدی ؟

لطفا راهنمایی کنید ؟