[Amin_Mansouri]

به نام خدا

خیلی از دوستان پیغام دادن و بعضی از دوستان هم اصرار داشتن که این بحث و مقاله رو ادامه بدهم.

برنامه basic4android فعلا ساپورت زبان فارسی نمیکنه اما خوب به فرض یخواهید یک پیغام فارسی به کاربر نمایش بدیم از عنصر Image یا همون تصویر استفاده میکنیم متن پیغام رو داخل عکس میزاریم و به کاربر نشان میدهیم !
اولین برنامه که نوشتم و براتون با توضیحات اماده کردم یه برنامه ساده که 2 تا کادر تکست باکس داره و میخواهیم 2 عدد در ان وارد کنیم و نتیجه رو به کاربر نمایش بدهد.
در این پروژه یاد میگیریم :
چطوری 2 تکست باکس رو با هم جمع کنیم ؟
چگونه فقط تکست باکس ما عدد دریافت کند ؟
چگونه یک تابع بسازیم و فراخوانی کنیم ؟
لود کردن اسکین یا محیطی که طراحی کردید (ارتباط سورس با طراحی )
بارگذاری عددهای تکست باکس در متغیر
و .....
کد :

کد پی‌اچ‌پی:

/CODER Calc By Mohammad Amin MANSOURI
/PUBLIC : Www.ParsiCODERS.COM
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim btnAction As Button
    Dim edtResult As EditText
    Dim lblComments As Label
    Dim lblMathSign As Label
    Dim lblNumber1 As Label
    Dim lblNumber2 As Label
    
Dim EDITTEXT1 As EditText
Dim EDITTEXT2 As EditText
    Dim Number1, Number2 As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Main") 'Barname skin Ya hamon layout Barname Ro LOAD mIKONE
EDITTEXT1.InputType=EDITTEXT1.INPUT_TYPE_NUMBERS 'inja Migim EditText1 HAMONJA kE faghat Addad Type Mikonim AZ noa Number (addad ) Bashe
EDITTEXT2.InputType=EDITTEXT1.INPUT_TYPE_NUMBERS
End Sub



Sub btnAction_Click
'vAGHTI Roye Button yA hamon Dokme Click Kard roYDAD CheckResult farakhani mishe
            CheckResult ' Tabea CheckResult Ro sEDA ZADIM

End Sub



Sub CheckResult
NUMBER1 = EDITTEXT1.Text ' EDITTEXT1 YA HAMON TEXTBOX RO DAR MOTGAYER Int Gharar mIDIM
NUMBER2 = EDITTEXT2.Text
 edtResult.Text = NUMBER1 +NUMBER2 'hala ba + number1 va number 2 ro ba ham jham mikonim va dar khoroji edtresult gharar midim

End Sub 


دانلود پروژه :

  PROJE CLAC.zip (اندازه 7.76 KB / تعداد دانلود: 473)