مینی سورس توابع ریاضی به زبان بیسیک فور اندروید

[MR.B4A 252]

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

توابعی مثل
قدرمطلق
مقدار سقفی
کوسینوس برمبنای درجه
مقدار کف عدد
و...

سورس:

Sub Globals
	
	Private i As Double
	
	Private EditText1 As EditText
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Private Sub btn_tan_Click
	If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی وارد کنید",False)
		Return
	End If
	
	i=EditText1.Text
	
	Msgbox(TanD(i),"تانژانت")
End Sub

Private Sub btn_jazr_Click
	If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی وارد کنید",False)
		Return
	End If
	
	i=EditText1.Text
	
	Msgbox(Sqrt(i),"جذر مربعی")
End Sub

Private Sub btn_sin_Click
	If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی وارد کنید",False)
		Return
	End If
	
	i=EditText1.Text
	
	Msgbox(SinD(i),"سینوس")
End Sub

Private Sub btn_round_Click
	If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی وارد کنید",False)
		Return
	End If
	
	i=EditText1.Text
	
	Msgbox(Round(i),"گردکردن")
End Sub

Private Sub btn_tavan_Click
	If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی وارد کنید",False)
		Return
	End If
	
	i=EditText1.Text
	
	Msgbox(Power(2,i),"مقدار2 به توان "&i)
End Sub

Private Sub btn_log_Click
	If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی وارد کنید",False)
		Return
	End If
	
	i=EditText1.Text
	
	Msgbox(Logarithm(i,100),"لگاریتم عدد100 برمبنای"&i)
End Sub

Private Sub btn_kaf_Click
	If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی وارد کنید",False)
		Return
	End If
	
	i=EditText1.Text
	
	Msgbox(Floor(i),"مقدار کف")
End Sub

Private Sub btn_cos_Click
	If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی وارد کنید",False)
		Return
	End If
	
	i=EditText1.Text
	
	Msgbox(CosD(i),"کسینوس")
End Sub

Private Sub btn_saghfi_Click
	If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی وارد کنید",False)
		Return
	End If
	
	i=EditText1.Text
	
	Msgbox(Ceil(i),"مقدار سقفی")
End Sub

Private Sub btn_motlagh_Click
	If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی وارد کنید",False)
		Return
	End If
	
	i=EditText1.Text
	
	Msgbox(Abs(i),"مقدار مطلق")
End Sub

طراح و تهیه کننده:
مرتضی صباغی
MR.B4A