ماشین حساب

[مجید آرتا 5,874]

به نام خدا

سلام

عکسس زیر روو مشاهده کنید و طبق عکس کنترل هارو اضافه کنید به علاوه یک Label:

در قسمت Globals این متغیر هارو تعریف کنید:

Sub Globals    
Dim fn,sn,result As Double
   Private input_num_txt As EditText
   Private Label1 As Label
End Sub

کد دکمه های صفر تا 9 و کد دکمه اعشار (.)

Sub one_btn_Click
   input_num_txt.Text=input_num_txt.Text&"1"
End Sub

Sub two_btn_Click
   input_num_txt.Text=input_num_txt.Text&"2"
End Sub

Sub three_btn_Click
   input_num_txt.Text=input_num_txt.Text&"3"
End Sub

Sub four_btn_Click
   input_num_txt.Text=input_num_txt.Text&"4"
End Sub

Sub five_btn_Click
   input_num_txt.Text=input_num_txt.Text&"5"
End Sub

Sub six_btn_Click
   input_num_txt.Text=input_num_txt.Text&"6"
End Sub

Sub seven_btn_Click
   input_num_txt.Text=input_num_txt.Text&"7"
End Sub

Sub eight_btn_Click
   input_num_txt.Text=input_num_txt.Text&"8"
End Sub

Sub nine_btn_Click
   input_num_txt.Text=input_num_txt.Text&"9"
End Sub

Sub zero_btn_Click
   input_num_txt.Text=input_num_txt.Text&"0"
End Sub

Sub Ashar_btn_Click
   input_num_txt.Text=input_num_txt.Text&"."
End Sub

کد دکمه Clear :

Sub clear_btn_Click    
input_num_txt.Text=""    
End Sub

کد دکمه BackSpace (یه دونه یه دونه پاک میکنه):

Sub Back_btn_Click    
Dim i As Int
   i=input_num_txt.Text.Length
   input_num_txt.Text=input_num_txt.Text.SubString2(0,i-1)
End Sub

توضیح مختصر در مورد کد بالا:

ابتدا کل متن رو توسط Length که یک عدد رو بر میگردونه می گیریم

بعد به وسیله Substring2 می گیم که بیا از صفر برو تا i-1 که میشه یکی کم کن از کل متن بعد نشونش بده توی EditText

کد های دکمه های عملگر (x,/,-,+):

Sub zarb_btn_Click   
Label1.Text="x"
   fn=input_num_txt.Text
   input_num_txt.Text=""
End Sub

Sub taqsim_btn_Click
   Label1.Text="/"
   fn=input_num_txt.Text
   input_num_txt.Text=""
End Sub

Sub menha_btn_Click
   Label1.Text="_"
   fn=input_num_txt.Text
   input_num_txt.Text=""
End Sub

Sub bealave_btn_Click
   Label1.Text="+"
   fn=input_num_txt.Text
   input_num_txt.Text=""
End Sub

و در نهایت کد آخر و مهم این برنامه یعنی کد دکمه مساوی:

Sub mosavi_btn_Click    
sn=input_num_txt.Text

   Select (Label1.Text)

   Case "x"
   result=fn*sn
   input_num_txt.Text=result
   Case "/"
   result=fn/sn
   input_num_txt.Text=result

   Case "+"
   result=fn+sn
   input_num_txt.Text=result

   Case "_"
   result=fn-sn
   input_num_txt.Text=result
   End Select
End Sub

با این کدها به راحتی می تونیم یک ماشین حساب بسازیم

موفق و موید باشید