آموزش برنامه نویسی اندروید با 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 برابر با رشته خالی بود ، عملیات رو انجام بده.
• در خط 3 مقدار EditText1 را داخل متغیر Num1 ریختیم.
• در خط 4 مقدار EditText2 را داخل متغیر Num2 ریختیم.
• در خط 5 مقدار num1+num2  را در متغیری به نام Result ریختیم.
• در خط 6 مقدار های جمع شده رو با استفاده از msgbox به کاربر نشون میدیم.
• در خط 8 هم که گفتیم اگر عددی وارد نشده بود پیغامی نشون بده.

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

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

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

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

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

موفق باشید.