+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Mobile (http://parsicoders.com/forumdisplay.php?fid=56)
+--- انجمن: Basic4Android (http://parsicoders.com/forumdisplay.php?fid=112)
+--- موضوع: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها (/showthread.php?tid=1439)
RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها - m.gooooolzar - 09-01-2013
(09-01-2013، 12:13 AM)'vahid_d_0101' نوشته: اره همونی بود که میخواستم
بالن هم خوبه بهتر از هیچیه اخه الان من هیچی ندیدم
در مورد اون سوال میتونید بگید چه طوری میتونم حالت اسکرول به صفحه اصلی بدم
دوست عزیز خب اول یه اسکرول بذارید بعد هرچی که نیاز داشتید رو بهش اضافه کنید دیگه .مثل این کد :
کد پی‌اچ‌پی:
Sub Activity_Create(FirstTime As Boolean)
Dim sv As ScrollView
sv.Initialize(30*60dip)
Activity.AddView(sv,0,0,100%x,100%y)
Dim s As SeekBar
s.Initialize("")
s.Max=100
s.Value=68
sv.Panel.AddView(s,50dip,10dip,100%x-100dip,30dip)
For i=1 To 30
Dim btn As Button
btn.Initialize("btn")
btn.Text="btn " & i
sv.Panel.AddView(btn,10dip,i*60dip,100%x-20dip,50dip)
Next
End Sub
Sub Btn_Click
Dim b As Button
b=Sender
Msgbox("Btn_Click",b.Text)
End Sub
(08-23-2013، 06:34 PM)'farsoft' نوشته:(08-23-2013، 04:59 PM)'m.gooooolzar' نوشته: درود
یه نمونه برنامه برات گذاشتم ،اول کتابخانه هایی که تو فایل Lib.rar گذاشتم رو به کتابخانه هات اضافه کن بعد با برنامه کار کن
خیلی آسونه اگه سوالی داشتی بپرس
با این برنامه میتونی یه شماره رو ذخیره کنی و شماره های دفترچه تلفن رو بخونی (حتی اگه عکس هم داشته باشن نشون میده)
دوستان عزیز یه کتابخانه درست کردم که بزودی میذارم براتون
با این کتابخونه میتونید تاریخ میلادی رو به شمسی و بلعکس و همچنین اعداد رو به حروف تبدیل کنید و امکانات دیگه ...
اگه کسی ایده ای داره بگه تا اضافه کنم
سپاسگزارم دوست عزیز
ولی من بیشتر احتیاجم به ویرایش شماره ها است ولی این کتابخانه فقط درج را انجام می دهد
آیا مرجعه برای طراحی کتابخانه ها هم وجود دارد که خودم کتابخانه مورد نیازم را بسازم
با سپاس
درود
این دقیقاً همونیه که لازم دارید
موفق باشید
RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها - mhr74 - 09-01-2013
سلام آقا میثم بالن ها به نظر من عالی هستند انشاالله کتابخانه اش را درست کنید در اختیار ما هم بگذارید.
ممنون و متشکر از شما که اطلاعات تان را در اختیار بقیه می گذارید.
RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها - m.gooooolzar - 09-02-2013
(09-01-2013، 08:10 AM)'mhr74' نوشته: درود آقا میثم بالن ها به نظر من عالی هستند انشاالله کتابخانه اش را درست کنید در اختیار ما هم بگذارید.درود
ممنون و مسپاس از شما که اطلاعات تان را در اختیار بقیه می گذارید.
چشم عزیزم ، بزودی کتابخونه رو میذارم
RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها - vahid_d_0101 - 09-03-2013
نقل قول:اقا این درسته ولی الان وقتی این کار را میکنم پشت زمینه از بین میره و دیگه عکس پشت زمینه را ندارمدوست عزیز خب اول یه اسکرول بذارید بعد هرچی که نیاز داشتید رو بهش اضافه کنید دیگه .مثل این کد :کد PHP:
کد:[color=#0000bb]Sub Activity_Create[/color][color=#007700]([/color][color=#0000bb]FirstTime [/color][color=#007700]As [/color][color=#0000bb]Boolean[/color][color=#007700])
[/color][color=#0000bb]Dim sv [/color][color=#007700]As [/color][color=#0000bb]ScrollView
sv[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#0000bb]30[/color][color=#007700]*[/color][color=#0000bb]60dip[/color][color=#007700])
[/color][color=#0000bb]Activity[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]sv[/color][color=#007700],[/color][color=#0000bb]0[/color][color=#007700],[/color][color=#0000bb]0[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]y[/color][color=#007700])
[/color][color=#0000bb]Dim s [/color][color=#007700]As [/color][color=#0000bb]SeekBar
s[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#dd0000]""[/color][color=#007700])
[/color][color=#0000bb]s[/color][color=#007700].[/color][color=#0000bb]Max[/color][color=#007700]=[/color][color=#0000bb]100
s[/color][color=#007700].[/color][color=#0000bb]Value[/color][color=#007700]=[/color][color=#0000bb]68
sv[/color][color=#007700].[/color][color=#0000bb]Panel[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]s[/color][color=#007700],[/color][color=#0000bb]50dip[/color][color=#007700],[/color][color=#0000bb]10dip[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700]-[/color][color=#0000bb]100dip[/color][color=#007700],[/color][color=#0000bb]30dip[/color][color=#007700])
For [/color][color=#0000bb]i[/color][color=#007700]=[/color][color=#0000bb]1 To 30
Dim btn [/color][color=#007700]As [/color][color=#0000bb]Button
btn[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#dd0000]"btn"[/color][color=#007700])
[/color][color=#0000bb]btn[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700]=[/color][color=#dd0000]"btn " [/color][color=#007700]& [/color][color=#0000bb]i
sv[/color][color=#007700].[/color][color=#0000bb]Panel[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]btn[/color][color=#007700],[/color][color=#0000bb]10dip[/color][color=#007700],[/color][color=#0000bb]i[/color][color=#007700]*[/color][color=#0000bb]60dip[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700]-[/color][color=#0000bb]20dip[/color][color=#007700],[/color][color=#0000bb]50dip[/color][color=#007700])
[/color][color=#0000bb]Next
End Sub
Sub Btn_Click
Dim b [/color][color=#007700]As [/color][color=#0000bb]Button
b[/color][color=#007700]=[/color][color=#0000bb]Sender
Msgbox[/color][color=#007700]([/color][color=#dd0000]"Btn_Click"[/color][color=#007700],[/color][color=#0000bb]b[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700])[/color]
[color=#0000bb]End Sub [/color]امیدوارم منظورتونو فهمیده باشم
RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها - m.gooooolzar - 09-03-2013
(09-03-2013، 12:37 AM)'vahid_d_0101' نوشته:نقل قول:دوست عزیز خب اول یه اسکرول بذارید بعد هرچی که نیاز داشتید رو بهش اضافه کنید دیگه .مثل این کد :کد PHP:اقا این درسته ولی الان وقتی این کار را میکنم پشت زمینه از بین میره و دیگه عکس پشت زمینه را ندارم
امیدوارم منظورتونو فهمیده باشمکد:[color=#0000bb]Sub Activity_Create[/color][color=#007700]([/color][color=#0000bb]FirstTime [/color][color=#007700]As [/color][color=#0000bb]Boolean[/color][color=#007700])
[/color][color=#0000bb]Dim sv [/color][color=#007700]As [/color][color=#0000bb]ScrollView
sv[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#0000bb]30[/color][color=#007700]*[/color][color=#0000bb]60dip[/color][color=#007700])
[/color][color=#0000bb]Activity[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]sv[/color][color=#007700],[/color][color=#0000bb]0[/color][color=#007700],[/color][color=#0000bb]0[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]y[/color][color=#007700])
[/color][color=#0000bb]Dim s [/color][color=#007700]As [/color][color=#0000bb]SeekBar
s[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#dd0000]""[/color][color=#007700])
[/color][color=#0000bb]s[/color][color=#007700].[/color][color=#0000bb]Max[/color][color=#007700]=[/color][color=#0000bb]100
s[/color][color=#007700].[/color][color=#0000bb]Value[/color][color=#007700]=[/color][color=#0000bb]68
sv[/color][color=#007700].[/color][color=#0000bb]Panel[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]s[/color][color=#007700],[/color][color=#0000bb]50dip[/color][color=#007700],[/color][color=#0000bb]10dip[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700]-[/color][color=#0000bb]100dip[/color][color=#007700],[/color][color=#0000bb]30dip[/color][color=#007700])
For [/color][color=#0000bb]i[/color][color=#007700]=[/color][color=#0000bb]1 To 30
Dim btn [/color][color=#007700]As [/color][color=#0000bb]Button
btn[/color][color=#007700].[/color][color=#0000bb]Initialize[/color][color=#007700]([/color][color=#dd0000]"btn"[/color][color=#007700])
[/color][color=#0000bb]btn[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700]=[/color][color=#dd0000]"btn " [/color][color=#007700]& [/color][color=#0000bb]i
sv[/color][color=#007700].[/color][color=#0000bb]Panel[/color][color=#007700].[/color][color=#0000bb]AddView[/color][color=#007700]([/color][color=#0000bb]btn[/color][color=#007700],[/color][color=#0000bb]10dip[/color][color=#007700],[/color][color=#0000bb]i[/color][color=#007700]*[/color][color=#0000bb]60dip[/color][color=#007700],[/color][color=#0000bb]100[/color][color=#007700]%[/color][color=#0000bb]x[/color][color=#007700]-[/color][color=#0000bb]20dip[/color][color=#007700],[/color][color=#0000bb]50dip[/color][color=#007700])
[/color][color=#0000bb]Next
End Sub
Sub Btn_Click
Dim b [/color][color=#007700]As [/color][color=#0000bb]Button
b[/color][color=#007700]=[/color][color=#0000bb]Sender
Msgbox[/color][color=#007700]([/color][color=#dd0000]"Btn_Click"[/color][color=#007700],[/color][color=#0000bb]b[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700])[/color]
[color=#0000bb]End Sub [/color]
من الان رو پشت زمینه یه عکس گذاشتم ،نشون داد
عکسش رو پیوست کردم
بهتره پروژه رو بذارید ببینیم مشکلش چیه
RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها - kore.khow - 09-03-2013
درود دوستان
اگه کسی ب سایت basic4ppc.com دسترسی کامل داره برام پیام خصوصی بذاره میخوام چندتا کتابخونه برام بخره با تشکر
RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها - mhr74 - 09-03-2013
سلام دوستان من یک متن را از یک فایل تکست با یک لیبل و اسکرول لود کردم به دلیل نوع فونتم باید فاصله ی خط ها را از هم بیشتر کنم یک سرچ کردم از روش زیر استفاده کردم فاصله ی بین خط ها را زیاد می کند ولی ارتفاعی که در آخر می ده اشتباه است باید چه کار کنم؟ روش دیگه ای هست؟ ممنون http://www.basic4ppc.com/android/forum/threads/measuremultilinetextheight-doesnt-work-with-line-spacing.25431/#post-147568
RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها - vahid_d_0101 - 09-03-2013
خیلی ممنون کلی کارم راه افتاد
یه سوال
این کد
کد:
sv.Panel.AddView(btn,10dip,60dip,100%x-20dip,50dip)حالا من میخواهم همین کد را برای یه کلید خاص که در designer درست کردم را در designer script بنویسم باید چی کار کنم
RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها - m.gooooolzar - 09-04-2013
(09-03-2013، 11:19 PM)'vahid_d_0101' نوشته: خیلی ممنون کلی کارم راه افتاددوست عزیز یکم بیشتر توضیح بدید
یه سوال
این کد
یه کلید را به صفحه اضافه میکنه که در هر گوشی با هر رزولیشینی باز کنی وصط صفحه قرار میدهکد:sv.Panel.AddView(btn,10dip,60dip,100%x-20dip,50dip)
حالا من میخواهم همین کد را برای یه کلید خاص که در designer درست کردم را در designer script بنویسم باید چی کار کنم
یعنی شما با designer یه کلید گذاشتید و میخواید تو designer script محل قرار گرفتنش رو تعیین کنید ؟
این کد رو تو designer script بنویس
کد پی‌اچ‌پی:
Btn.SetLeftAndRight(10dip,100%x-10dip)
Btn.SetTopAndBottom(10dip,60dip)
RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها - m.gooooolzar - 09-04-2013
(09-03-2013، 04:18 PM)'mhr74' نوشته: درود دوستان من یک متن را از یک فایل تکست با یک لیبل و اسکرول لود کردم به دلیل نوع فونتم باید فاصله ی خط ها را از هم بیشتر کنم یک سرچ کردم از روش زیر استفاده کردم فاصله ی بین خط ها را زیاد می کند ولی ارتفاعی که در آخر می ده اشتباه است باید چه کار کنم؟ روش دیگه ای هست؟ ممنون http://www.basic4ppc.com/android/forum/threads/measuremultilinetextheight-doesnt-work-with-line-spacing.25431/#post-147568درود
داداشی خب اگه یکم تغییرات تو کد ایجاد میکردی مشکل حل میشد
بفرما عزیزم
کد پی‌اچ‌پی:
Sub Globals
Dim MeasureLabel As Label
Dim su As StringUtils
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
MeasureLabel.Initialize("")
Activity.AddView(MeasureLabel,60dip,60dip,100dip,100dip)
Dim Obj2 As Reflector
MeasureLabel.Text="bxcbg dkj tkjbtkbdflg gdfkthjn bljhb lhjsdb thb lodbltkjbdlbgl dftldjbgljd bfljby ldjby"
Msgbox( su.MeasureMultilineTextHeight(MeasureLabel, MeasureLabel.Text),"Text Height 1")
Obj2.Target = MeasureLabel
Obj2.RunMethod3("setLineSpacing", 1, "java.lang.float", 2, "java.lang.float")
Msgbox(su.MeasureMultilineTextHeight(MeasureLabel, MeasureLabel.text),"Text Height 2")
Msgbox(TextHeight(MeasureLabel,MeasureLabel.Text),"Text Height 3")
MeasureLabel.Height=TextHeight(MeasureLabel,MeasureLabel.Text)
End Sub
Sub TextHeight( v As View,txt As String)
Dim RLabel As Label :RLabel.Initialize("")
Dim rowheight As Int = su.MeasureMultilineTextHeight(v,txt)
Dim Obj1 As Reflector
Obj1.Target = RLabel
Dim before As Int = Obj1.RunMethod("getLineHeight") 'Get the height of line BEFORE you change it
Obj1.Target = RLabel
Obj1.RunMethod3("setLineSpacing", 0, "java.lang.float", 1.5, "java.lang.float") 'Change the space between lines
Obj1.Target = RLabel
Dim after As Int = Obj1.RunMethod("getLineHeight") 'Get the height of line AFTER you change it
Return ((after * rowheight)/before) + 20dip 'Add 20dip to have some space below the text.
End Sub
ابتدا برنامه یه لیبل میسازه و یه متنی رو داخلش میذاره که اندازش بزرکتر از لیبل هست
اما با کد su.MeasureMultilineTextHeight میشه تشخیص داد که ارتفاعش چقدره
خب حالا میخوایم کدی بنویسیم که فاصله بین خط هارو زیاد کنه
با زیاد کردن فاصله بین خطها ،درصورتی که بخوایم ارتفاع کاملش رو بدست بیاریم، اگر باز از کد su.MeasureMultilineTextHeight استفاده کنیم بازهم جواب قبلی رو برمیگردونه در صورتی که باید یه عدد بزرگتری بهمون بده
من یه تابع TextHeight ایجاد کردم که ارتفاع واقعی رو برمیگردونه
اگه سوالی بود در خدمتم