رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase
  • 0

دانلود تکی یا گروهی در مولتی پنل

علی علایی

سوال شده توسط علی علایی,

سوال

علی علایی

علی علایی 161

ارسال شده در
ارسال شده در

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

ولی فقط آخریو دانلود میکنه 

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

نمیدونم منظورو رسوندم یا نه

اینم کدهام 

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	Private sql1   As SQL
	Public link1 As String
End Sub

Sub Globals
	Private CheckBox1 As CheckBox
	Private ImageView1 As ImageView
	Private Label1 As Label
	Private Label2 As Label
	Private Panel1 As Panel
	Private Panel2 As Panel

	Private ScrollView1 As ScrollView
	Dim Stopint As Int=5%y
    
	Private Cur1  As Cursor

	Dim btnDownload As Button
	
	Dim paneldownload As Panel
	Dim progssbardownload As ProgressBar
	Dim labeldownload As Label
	Dim btnCancel As Button
	Dim btnagindownload As Button
	Dim namedownload As Label
	
	Dim nb As NotificationBuilder
	
	 Dim name As String
End Sub


Sub Activity_Create(FirstTime As Boolean)
	'Activity.LoadLayout("Layout1")
	ScrollView1.Initialize(2000dip)
	File.MakeDir(File.DirRootExternal, "MusicB4A")
	btnDownload.Initialize("btndownload")
	btnDownload.BringToFront
	btnDownload.Color=Colors.Green
	btnDownload.Visible=True
	btnDownload.Text="دانلود"
	btnDownload.TextColor=Colors.White
	btnDownload.TextSize=30
	Activity.AddView(btnDownload,0%X,90%Y,100%X,10%y)
	Activity.AddView(ScrollView1,0,7%Y,100%x,100%y)
	'-----------------------------------
	paneldownload.Initialize("paneldownload")
	progssbardownload.Initialize("progssbardownload")
	labeldownload.Initialize("labeldownload")
	btnCancel.Initialize("btnCancel")
	btnagindownload.Initialize("btnagindownload")
	namedownload.Initialize("namedownload")
	
	Activity.AddView(paneldownload,5%X,15%Y,90%X,20%Y)
	paneldownload.AddView(progssbardownload,5%X,2%Y,80%X,5%y)
	paneldownload.AddView(labeldownload,35%X,9%Y,50%X,5%y)
	paneldownload.AddView(btnCancel,45%x,12%Y,30%X,8%y)
	paneldownload.AddView(btnagindownload,15%X,12%Y,30%X,8%y)
	paneldownload.AddView(namedownload,28%X,5%Y,30%X,6%y)

	paneldownload.Color=Colors.Black
	
	labeldownload.TextSize=22
	labeldownload.TextColor=Colors.Green
	namedownload.TextSize=20
	namedownload.TextColor=Colors.Blue
	btnCancel.Text="انصراف"
	btnagindownload.Text="دانلود دوباره"
	
	'--------------------------------------
	
	ScrollView1.SendToBack
If File.Exists(File.DirInternal,"mo3madahi.db")=False Then
	File.Copy(File.DirAssets,"mo3madahi.db",File.DirInternal,"mo3madahi.db")
	End If
sql1.Initialize(File.DirInternal,"mo3madahi.db",False)
Cur1=sql1.ExecQuery("SELECT * From Tmp3madahi")

For i=0 To Cur1.RowCount-1
Cur1.Position=i
Dim p As Panel
p.Initialize("p")

ScrollView1.Panel.AddView(p,0,Stopint-5%Y,100%x,100%Y)
Stopint=Stopint+25%Y
p.LoadLayout("pnl")
Panel1.Color=Colors.Blue	
Label1.Text=Cur1.GetString("name")
Label1.Tag=Cur1.GetString("name")
ImageView1.Bitmap=LoadBitmapSample(File.DirAssets,"2mahdvi.jpg",ImageView1.Width,ImageView1.Height)
Label2.Tag=Cur1.GetString("linkdownload")
ScrollView1.Panel.Height=Stopint+7%Y
link1=Label2.Tag
name=Label1.Tag
namedownload.Text=Label1.Text
Panel2.Tag=Cur1.GetString("linkdownload")
Next
ScrollView1.Panel.Height = (Cur1.RowCount * 27%Y)

'11111111111111111111111
	nb.Initialize
    nb.SmallIcon = "icon"
	nb.DefaultSound=False
	nb.ContentTitle = Label1.Text
	nb.setProgress(100,1,True)
	nb.OnGoingEvent = False
	'1111111111111
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub Panel2_Click
	Dim p As Panel
	p=Sender
	
	If File.Exists(File.DirRootExternal & "/MusicB4A",Label1.Text &".mp3") = True Then 

'	 ToastMessageShow(name&".mp3"&TAB&"در مسیر حافظه کارت و پوشه musicB4a ذخیره شده است"  ,True)
	 Else

	Dim dd As DownloadData
	dd.url = p.Tag
	dd.EventName = "dd"
	dd.Target = Me
	CallSubDelayed2(DownloadService, "StartDownload", dd )
	End If
End Sub
Sub CheckBox1_CheckedChange(Checked As Boolean)

End Sub
Sub btndownload_Click
	If File.Exists(File.DirRootExternal & "/MusicB4A",Label1.Text &".mp3") = True Then 

	 ToastMessageShow(Label1.Text&".mp3"&TAB&"در مسیر حافظه کارت و پوشه musicB4a ذخیره شده است"  ,True)
	 Else

	Dim dd As DownloadData
	dd.url = Label1.Text
	dd.EventName = "dd"
	dd.Target = Me
	CallSubDelayed2(DownloadService, "StartDownload", dd)
	End If
End Sub
Sub dd_Progress(Progress As Long, Total As Long)
	progssbardownload.Progress = Progress / Total * 100
	labeldownload.Text = NumberFormat(Progress / 1024, 0, 0) & "KB / " & _
		NumberFormat(Total / 1024, 0, 0) & "KB"
		change( Progress / Total * 100 , labeldownload.Text )
End Sub

Sub dd_Complete(Job As HttpJob)
	Log("Job completed: " & Job.Success)
	ToastMessageShow("مداحی" & Label1.Text &".mp3" ,True)
	Dim o As OutputStream
    o = File.OpenOutput(File.DirRootExternal & "/MusicB4A",Label1.Text &".mp3", False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
	Job.Release
End Sub

Sub btnCancel_Click
	progssbardownload.Progress=0
	labeldownload.Text=""
	CallSubDelayed2(DownloadService, "CancelDownload", link1)
    StopService(HttpUtils2Service1)
	StopService(DownloadService)
End Sub
Sub change(darsad As Int,Text As String)
	nb.ContentText = Text
nb.setProgress(100,darsad,False)
nb.Notify(1)
End Sub

اینم سورسم 

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

با تشکر

 

 

 

 

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

28 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

مجید آرتا

مجید آرتا 5,874

ارسال شده در
ارسال شده در

شما توی همین رویداد بیایید تگ پنل رو Add  کنید به متغییر لیست

Dim pp As Panel
	pp = Sender
	GetTag = pp.Tag
        lstLinks.Add(GetTag)
	Dim Cur As Cursor
	Cur = sql1.ExecQuery("SELECT * FROM Tmp3madahi WHERE id='" & Main.onvan1 & "'")
	Cur.Position = 0
	For Each v As View In Activity.GetAllViewsRecursive
	  If v Is CheckBox Then
	  	Dim Check As CheckBox = v
	    If Check.Tag = GetTag Then
	   Check.Checked = True
	   End If
	  End If
	 Next

در ضمن تگ شما با تگ چک باکس یکی نیست و به همین خاطر هستش نمی تونید مقدرشو تغییر بدید.

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر
علی علایی

علی علایی 161

ارسال شده در
  • سازنده
ارسال شده در

الان چک باکس تیک میخوره ولی فقط آخریو دانلود میکنه و همین اینکه فقط اسم آخریو به فایل دانلود شده نسبت میده

اینم کدهام 

Sub Panel2_Click	
Dim pp As Panel
	pp = Sender
	GetTag = pp.Tag
	Dim Cur As Cursor
'	Cur = sql1.ExecQuery("SELECT * FROM Tmp3madahi WHERE id='" & Main.onvan1 & "'")
	
	Cur = sql1.ExecQuery("SELECT * FROM Tmp3madahi WHERE id=" & pp.Tag)
	
	Cur.Position = 0
	For Each v As View In Activity.GetAllViewsRecursive
	  If v Is CheckBox Then
	  	Dim Check As CheckBox = v
	    If Check.Tag = GetTag Then
	   Check.Checked = Not(Check.Checked)
	   End If
	  End If
	 Next
End Sub

Sub btndownload_Click
		
		list1.Add(Panel1.Tag)
	
		paneldownload.Visible=True
	If File.Exists(File.DirRootExternal & "/MusicB4A",Label1.tag &".mp3") = True Then 

	 ToastMessageShow(Label1.Text&".mp3"&TAB&"در مسیر حافظه کارت و پوشه musicB4a ذخیره شده است"  ,True)
	 Else

	Dim dd As DownloadData
'	dd.url = Label1.Text
	dd.url = Panel1.Tag
	dd.EventName = "dd"
	dd.Target = Me
	CallSubDelayed2(DownloadService, "StartDownload", dd)
	End If

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

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

مجید آرتا 5,874

ارسال شده در
ارسال شده در

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

موفق باشید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر
علی علایی

علی علایی 161

ارسال شده در
  • سازنده
ارسال شده در

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

" تو حلقه هر دفعه که لینک رو میگرفتین اون رو برابر label1.text قرار می دادین خب معلومه که مقدار label1.text  همیشه برابر آخرین مقدار حلقه میشه " 

حالا چه کار کنم که هر دفعه که لینکو میگرم نام ستون مورد نظر خودشم بگیرم (2 ستون تو دیتابیس دارم یکی لینک و دومی نام ترانه )

یعنی سوال تا این حد سخته ؟؟!!

2 ماه معطل این سوالم 

حداقل بیاید یه اخطاری چیزی  بدید  به خاطر این همه اسپمی که من اینجا دادم تا من یکم آروم بشم :aggressive:

لینک ارسال
به اشتراک گذاری در سایت های دیگر
علی علایی

علی علایی 161

ارسال شده در
  • سازنده
ارسال شده در

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

" تو حلقه هر دفعه که لینک رو میگرفتین اون رو برابر label1.text قرار می دادین خب معلومه که مقدار label1.text  همیشه برابر آخرین مقدار حلقه میشه " 

حالا چه کار کنم که هر دفعه که لینکو میگرم نام ستون مورد نظر خودشم بگیرم (2 ستون تو دیتابیس دارم یکی لینک و دومی نام ترانه )

up

لینک ارسال
به اشتراک گذاری در سایت های دیگر
علی علایی

علی علایی 161

ارسال شده در
  • سازنده
ارسال شده در

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

موفق باشید.

آقای آرتا 

من همچینان منتظرم  :doa:

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

با تشکر

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

رفتن به لیست سوال ها

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...