Parsi Coders

Parsi Coders > Mobile > Basic4Android > اموزش برنامه نویسی اندروید به همراه تمامی ابزارها
نسخه‌ی کامل: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها
شما در حال مشاهده نسخه آرشیو هستید. برای مشاهده نسخه کامل کلیک کنید.
صفحات: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79

m.gooooolzar

09-01-2013، 02:05 AM
(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 گذاشتم رو به کتابخانه هات اضافه کن بعد با برنامه کار کن
خیلی آسونه اگه سوالی داشتی بپرس
با این برنامه میتونی یه شماره رو ذخیره کنی و شماره های دفترچه تلفن رو بخونی (حتی اگه عکس هم داشته باشن نشون میده)

دوستان عزیز یه کتابخانه درست کردم که بزودی میذارم براتون
با این کتابخونه میتونید تاریخ میلادی رو به شمسی و بلعکس و همچنین اعداد رو به حروف تبدیل کنید و امکانات دیگه ...
اگه کسی ایده ای داره بگه تا اضافه کنم

 

 



 

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

 


 

درود
این دقیقاً همونیه که لازم دارید
موفق باشید

 

 

mhr74

09-01-2013، 08:10 AM
سلام آقا میثم بالن ها به نظر من عالی هستند انشاالله کتابخانه اش را درست کنید در اختیار ما هم بگذارید.

ممنون و متشکر از شما که اطلاعات تان را در اختیار بقیه می گذارید.

m.gooooolzar

09-02-2013، 12:29 AM
(09-01-2013، 08:10 AM)'mhr74' نوشته: [ -> ]درود آقا میثم بالن ها به نظر من عالی هستند انشاالله کتابخانه اش را درست کنید در اختیار ما هم بگذارید.

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

 
درود
چشم عزیزم ، بزودی کتابخونه رو میذارم


 

vahid_d_0101

09-03-2013، 12:37 AM
نقل قول:
دوست عزیز خب اول یه اسکرول بذارید بعد هرچی که نیاز داشتید رو بهش اضافه کنید دیگه .مثل این کد :
کد 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]
امیدوارم منظورتونو فهمیده باشم
 
اقا این درسته ولی الان وقتی این کار را میکنم پشت زمینه از بین میره و دیگه عکس پشت زمینه را ندارم

m.gooooolzar

09-03-2013، 01:03 AM
(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]
امیدوارم منظورتونو فهمیده باشم
 
اقا این درسته ولی الان وقتی این کار را میکنم پشت زمینه از بین میره و دیگه عکس پشت زمینه را ندارم



 

من الان رو پشت زمینه یه عکس گذاشتم ،نشون داد
عکسش رو پیوست کردم
بهتره پروژه رو بذارید ببینیم مشکلش چیه

 

 

 

kore.khow

09-03-2013، 06:34 AM
درود دوستان
اگه کسی ب سایت basic4ppc.com دسترسی کامل داره برام پیام خصوصی بذاره میخوام چندتا کتابخونه برام بخره با تشکر

mhr74

09-03-2013، 04:18 PM
سلام دوستان من یک متن را از یک فایل تکست با یک لیبل و اسکرول لود کردم به دلیل نوع فونتم باید فاصله ی خط ها را از هم بیشتر کنم یک سرچ کردم از روش زیر استفاده کردم فاصله ی بین خط ها را زیاد می کند ولی ارتفاعی که در آخر می ده  اشتباه است باید چه کار کنم؟ روش دیگه ای هست؟ ممنون http://www.basic4ppc.com/android/forum/t...ost-147568

vahid_d_0101

09-03-2013، 11:19 PM
خیلی ممنون کلی کارم راه افتاد
یه سوال 
این کد 

کد:
sv.Panel.AddView(btn,10dip,60dip,100%x-20dip,50dip)
یه کلید را به صفحه اضافه میکنه که در هر گوشی با هر رزولیشینی باز کنی وصط صفحه قرار میده
حالا من میخواهم همین کد را برای یه کلید خاص که در designer درست کردم را در designer script بنویسم باید چی کار کنم

m.gooooolzar

09-04-2013، 12:15 AM
(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) 



 

m.gooooolzar

09-04-2013، 01:27 AM
(09-03-2013، 04:18 PM)'mhr74' نوشته: [ -> ]درود دوستان من یک متن را از یک فایل تکست با یک لیبل و اسکرول لود کردم به دلیل نوع فونتم باید فاصله ی خط ها را از هم بیشتر کنم یک سرچ کردم از روش زیر استفاده کردم فاصله ی بین خط ها را زیاد می کند ولی ارتفاعی که در آخر می ده  اشتباه است باید چه کار کنم؟ روش دیگه ای هست؟ ممنون http://www.basic4ppc.com/android/forum/t...ost-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 ایجاد کردم که ارتفاع واقعی رو برمیگردونه
اگه سوالی بود در خدمتم
صفحات: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
Parsi Coders > Mobile > Basic4Android > اموزش برنامه نویسی اندروید به همراه تمامی ابزارها