|
امتیاز موضوع:
Title: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها
حالت موضوعی |
(02-18-2014، 12:18 AM)'mohsen.zeus' نوشته: ممنون که جواب میدید
چطور میشه وقتی رو گوشی از سمت چب به راست وقتی انگشت رو میکشی پنل باز شه :-؟ ؟؟؟
منظورمو فهمیدید ؟ ورژن جدید کافه بازار اینجوریه
(02-17-2014، 07:34 PM)'m.gooooolzar' نوشته:سلام(02-17-2014، 05:08 PM)'mojtaba212' نوشته: سلا:م دوستان
اول از همه خواهشا اول این سلا م که میشه درود و تشک ر و مرس ی که میشه سپاسگزارم رو درست کنید تو بعضی جملات درود و بعضی جملات سپاسگزارم معنی خاصی نمیده.
و حالا برای 5 یا 6 مین بار سوال من در مورد یه اسکرول که بیش از 100/000 آیتم داره حالا من میخوام این آیتم ها که درون یک پنل هستن رو در یک اسکرول نمایش بدم و اسکرولم قفل میکنه باید پله پله برم جلو ولی نمیدونم چطوری.
تو سایت بیسیک هم سوالم رو مطرح کردم ولی متاسفانه گفت چون کاربر پولی نیستی جوابتو نمیدم.
امین جان هم جواب داد ولی من متوجه نشدم خواهشا اگه کسی بلده واسم یه سمپل بزاره.
سپاسگزارم دست گلتون درد نکنه.
عزیزم شما نمیتونی پنلی که توش یک آیتم وجود داره رو به اسکرول اضافه کنی (البته با یه کتابخوانه میشه) . اول باید پنل رو اضافه کنی بعد آیتم های داخل پنل رو
تازه ، شما اصلاً نمیگی این آیتم ها چی هستن ! خب عزیزم شما که ننشستی این 100000 آیتم رو تک تک اضافه کنی ،مطمئناً چیدن این آیتم ها توسط یک حلقه تکرار بوده و یه نظمی داره . اجزای سازنده اون رو بگید تا بتونیم کمک کنیم
s1.Initialize(1000000)
Activity.AddView(s1,10,10,100%x,100%y)
For i = 0 To 100000
Dim l2,l1,l3 As Label
Dim btnfav,btnread,btndelete,btnshair As Button
l1.Initialize("")
l2.Initialize("")
l3.Initialize("")
btnfav.Initialize("btnfav")
btnread.Initialize("btnread")
btndelete.Initialize("btndelete")
btnshair.Initialize("btnshair")
s1.Panel.AddView(l1,0,stop,100%x,50dip)
s1.Panel.AddView(l2,0,stop,100%x,50dip)
s1.Panel.AddView(l3,0,stop,100%x,50dip)
s1.Panel.AddView(btnfav,0,stop,100%x,50dip)
s1.Panel.AddView(btnread,0,stop,100%x,50dip)
s1.Panel.AddView(btndelete,0,stop,100%x,50dip)
s1.Panel.AddView(btnshair,0,stop,100%x,50dip)
l1.Text=i
l2.Text=i
l3.Text=i
Next
(02-18-2014، 09:29 AM)'mojtaba212' نوشته: درود
این کد منه:
سپاسگزارمکد پی‌اچ‌پی:s1.Initialize(1000000)
Activity.AddView(s1,10,10,100%x,100%y)
For i = 0 To 100000
Dim l2,l1,l3 As Label
Dim btnfav,btnread,btndelete,btnshair As Button
l1.Initialize("")
l2.Initialize("")
l3.Initialize("")
btnfav.Initialize("btnfav")
btnread.Initialize("btnread")
btndelete.Initialize("btndelete")
btnshair.Initialize("btnshair")
s1.Panel.AddView(l1,0,stop,100%x,50dip)
s1.Panel.AddView(l2,0,stop,100%x,50dip)
s1.Panel.AddView(l3,0,stop,100%x,50dip)
s1.Panel.AddView(btnfav,0,stop,100%x,50dip)
s1.Panel.AddView(btnread,0,stop,100%x,50dip)
s1.Panel.AddView(btndelete,0,stop,100%x,50dip)
s1.Panel.AddView(btnshair,0,stop,100%x,50dip)
l1.Text=i
l2.Text=i
l3.Text=i
Next
من تا الان بیش از 100 تا کد نوشتم ولی هیچ کدوم کار نکرده.
نقل قول: و برای ارسال فایل از این کد :کد پی‌اچ‌پی:Sub Activity_Create(FirstTime As Boolean)
‘Activity.LoadLayout(“Layout1”)
Dim i As Intent
Dim sFile As String
Dim sFullPath As String
Dim URI As String
sFile=”MyFile.TXT”
sFullPath=File.Combine( File.DirRootExternal ,sFile)
URI = “file://” & sFullPath
i.Initialize(i.ACTION_SEND, “”)
i.SetType(“text/plain”)
i.PutExtra(“android.intent.extra.STREAM”, URI)
i.WrapAsIntentChooser(“Share via”)
StartActivity(i)
End Sub
(02-18-2014، 06:01 PM)'m.gooooolzar' نوشته:سلام دوباره خیلی خیلی عذر میخوام از دوستان ولی عزیزم کجای کد من گنگ و گیج کننده بود؟(02-18-2014، 09:29 AM)'mojtaba212' نوشته: درود
این کد منه:
سپاسگزارمکد پی‌اچ‌پی:s1.Initialize(1000000)
Activity.AddView(s1,10,10,100%x,100%y)
For i = 0 To 100000
Dim l2,l1,l3 As Label
Dim btnfav,btnread,btndelete,btnshair As Button
l1.Initialize("")
l2.Initialize("")
l3.Initialize("")
btnfav.Initialize("btnfav")
btnread.Initialize("btnread")
btndelete.Initialize("btndelete")
btnshair.Initialize("btnshair")
s1.Panel.AddView(l1,0,stop,100%x,50dip)
s1.Panel.AddView(l2,0,stop,100%x,50dip)
s1.Panel.AddView(l3,0,stop,100%x,50dip)
s1.Panel.AddView(btnfav,0,stop,100%x,50dip)
s1.Panel.AddView(btnread,0,stop,100%x,50dip)
s1.Panel.AddView(btndelete,0,stop,100%x,50dip)
s1.Panel.AddView(btnshair,0,stop,100%x,50dip)
l1.Text=i
l2.Text=i
l3.Text=i
Next
من تا الان بیش از 100 تا کد نوشتم ولی هیچ کدوم کار نکرده.
درود
دوست خوبم یکم رو طرز کد نویسیت کار کن ، اگه اصول کد نویسیت خوب نباشه وقتی که کد برنامه زیاد میشه خیلی گیج کننده میشه ،حتی خود برنامه نویسش هم کلی باید وقت بذاره تا یادش بیاد چرا این کدها رو نوشته !!!!!
اگه دقت کرده باشی قبلاً گفته بودم که برای ساخت یه همچین چیزی شما به ساخت لیست سفارشی نیاز داری که با کتابخانه CustomListView میشه انجامش داد
کدهای اصلی رو براتون نوشتم و با پیوست ارائه دادم
فقط شما تیک گزینه Reflection و StringUtils رو از کتابخانه فعال کنید
در ضمن من وقتی برنامه رو با حلقه تکرار 1000 روی گوشی تست کردم در عرض 1 ثانیه اجرا شد ،اگه میخوای از حلقه های بزرگتر استفاده کنی مشکل سرعت پیش میاد ،برای حل این مشکل میتونم چنتا پیشنهاد بدم ،اگه لازم بود بگید
موفق باشید
(02-19-2014، 07:26 AM)'majid20100' نوشته: درود با استفاده از webView هم میشه کتاب ساخت اگه میشه یک پروژه کوچک حداقل 2 مطلب داشته باشه را بذاریدسلام. این تاپیک رو ببین. سمپل کد هم داره. خیلی هم قشنگ توضیح داده
cursor1=sql1("SELECT * FROM tbname WHERE col1 LIKE '%" & EditText1.Text & "%'" )
