آموزش برنامه نویسی اندروید با B4A – قسمت ششم(برنامه ماشین حساب)
سلام
در آموزش های قبلی با بیسیک فور اندروید آشنایی مختصری پیدا کردیم و یک مثال عملی هم انجام دادیم، اگر آموزش های قبلی رو ندید اینجا کلیک کنید.
در این قسمت از آموزش برنامه ماشین حساب رو می نویسم، که قبلا سورسش رو در سایت گذاشته بودم برای دانلود، این سورس دو عملیات جمع و تفریق داشت، حالا میخوایم از پایه برنامه رو بنویسیم و دو عملیات ضرب و تقسیم رو هم بهش اضافه کنیم .
پس برنامه ای که میخوایم در این قسمت بنویسیم:
- برنامه ای بنویسید که چهار عملیات جمع،تفریق،ضرب،تقسیم را برای ما انجام دهد.
آموزش:
- بیسیک را باز کنید و در Designer صفحه ای مانند شکل زیر طراحی کنید.
- رویداد های کلیک دکمه ها را به برنامه اضافه کنید . (راست کلیک رو دکمه ها و Generate و سپس رویداد Click را انتخاب کنید).
- و دو تا EditText ها رو هم به برنامه تعریف کنید . (راست کلیک روی EditText و Generate و سپس Dim as edittext1.text … را انتخاب کنید)
در برنامه میخوایم دو از کاربر دوعدد بگیریم و نتیجه این دو عدد رو در یک متغیر بریزیم و نمایش بدیم ، پس به دو متغیر از نوع عددی و یک متغیر از نوع رشته نیاز داریم، پس کدهای بخش Sub Globals که برای تعریف متغیر ها به کار میره به صورت زیر است:
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ |
Sub Globals Private EditText1 As EditText Private EditText2 As EditText Dim num1 As Int Dim num2 As Int Dim result As String End Sub |
و در sub Activity_create نام لایوت رو می نویسم:
|
۱ ۲ ۳ |
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Lmain") End Sub |
حالا در Btn_sum (یا همون Button1 که من اسمش رو گذاشتم Btn_sum تا در برنامه قابل فهم تر باشه) ، کدهای مربوط به عملیات جمع رو می نویسیم:
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ |
Sub sum_Click If (EditText1.Text <> "" And EditText2.Text <> "") Then num1 = EditText1.Text num2 = EditText2.Text result = num1+num2 Msgbox(res,"جمع") Else Msgbox("عددی وراد نشده است","خطا") End If End Sub |
توضیحات:
- در خط دوم گفتیم اگر مقدار EditText1 و EditText2 برابر با رشته خالی بود ، عملیات رو انجام بده.
- در خط ۳ مقدار EditText1 را داخل متغیر Num1 ریختیم.
- در خط ۴ مقدار EditText2 را داخل متغیر Num2 ریختیم.
- در خط ۵ مقدار num1+num2 را در متغیری به نام Result ریختیم.
- در خط ۶ مقدار های جمع شده رو با استفاده از msgbox به کاربر نشون میدیم.
- در خط ۸ هم که گفتیم اگر عددی وارد نشده بود پیغامی نشون بده.
حالا برای سه عملیات بعدی یعنی تفریق،ضرب و تقسیم نیز کدهای خودمون رو می نویسیم.
دکمه Btn_minus (تفریق):
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ |
Sub Btn_minus_Click If(EditText1.Text <> "" And EditText2.Text <> "") Then num1 = EditText1.Text num2 = EditText2.Text result = num1-num2 Msgbox(result,"جمع") Else Msgbox("عددی وارد نشده است" , "خطا") End If End Sub |
دکمه Btn_devision (تقسیم):
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ |
Sub Btn_division_Click If(EditText1.Text <> "" And EditText2.Text <> "") Then num1 = EditText1.Text num2 = EditText2.Text result = num1*num2 Msgbox(result,"جمع") Else Msgbox("عددی وارد نشده است" , "خطا") End If End Sub |
دکمه Btn_beat (ضرب):
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ |
Sub Btn_beat_Click If(EditText1.Text <> "" And EditText2.Text <> "") Then num1 = EditText1.Text num2 = EditText2.Text result = num1*num2 Msgbox(result,"جمع") Else Msgbox("عددی وارد نشده است" , "خطا") End If End Sub |
و در آخر برنامه ما به این شکل در میاد:
سورس برنامه را در آخر می تونید دانلود کنید.
هرگونه سوالی یا مشکلی در رابطه با مطلب فوق داشتید؛ در سایت بپرسید، پاسخگوی سوالات شما هستیم، برای پرسیدن سوال کلیک کنید.
موفق باشید.
ارسال نظر
شما باید وارد شوید یا عضو شوید تا بتوانید نظر ارسال کنید