آموزش برنامه نویسی اندروید با B4A - قسمت ششم(برنامه ماشین حساب)

عضویت در سایت

نام کاربری*

ایمیل*

رمزعبور*

تایید رمز عبور*

نام*

نام خانوادگی*

نام نمایشی*

تصویر پروفایل*

مرور

کشور*

شهر*

جنسیت* آقا

خانم

سایر

سن*

قوانین و مقررات* با تیک زدن این گزینه شما قوانین و مقررات را میپذیرید.

عضویت در سایت

رایگان ثبت نام کنید و سوالات خود را بپرسید، همچنین میتوانید در پاسخگویی به سوالات دیگر کاربران نیز سهیم باشید، هر مشکلی در ثبت نام یا ورود داشتید با ایمیل beporsam@gmail.com در ارتباط باشید

آموزش برنامه نویسی اندروید با 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 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

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

۱۰

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 به کاربر نشون میدیم.
در خط ۸ هم که گفتیم اگر عددی وارد نشده بود پیغامی نشون بده.

حالا برای سه عملیات بعدی یعنی تفریق،ضرب و تقسیم نیز کدهای خودمون رو می نویسیم.

مطلب پیشنهادی: آموزش ویندوز 10 – قسمت دوازدهم(Quick Actions)

دکمه 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

۱۰

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

۱۰

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

۱۰

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

مطلب پیشنهادی: آموزش مقدماتی PHP - قسمت پنجم(انواع داده ها)

و در آخر برنامه ما به این شکل در میاد:

سورس برنامه را در آخر می تونید دانلود کنید.

هرگونه سوالی یا مشکلی در رابطه با مطلب فوق داشتید؛ در سایت بپرسید، پاسخگوی سوالات شما هستیم، برای پرسیدن سوال کلیک کنید.

موفق باشید.