اعشاری بودن عدد

[mostafa.kasiri 115]

با سلام

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

بعضی اعداد اعشاری به دست میاد می خوام اون قسمت اعشاری رو خودش حذف یا گرد کنه

[حاج حسین 2,098]

مشخصه که هنوز تو کدنویسی مشکل دارید طوری نیست حتما حتما بخش مبتدی رو از اول تا آخر ببیند 

تو این خط a=i یعنی مقدار i رو بریز تو a 

من یه نمونه سورس دم دستی ساختم فک کنم همون چیزی که شما دنبالشید

اگر متوجه نشید که چی دارید مینویسید هیچ وقت برنامه نویس نمیشید 

ddd.rar

[حاج حسین 2,098]

اینو ببین 

قسمت صحیح عدد - پرسش و پاسخ (بیسیک4اندروید) - AnswerCenter.IR

[mostafa.kasiri 115]

میشه یک توضیحی بدین من متوجه نشدم

[حاج حسین 2,098]

اینو ببین 

قسمت صحیح عدد - پرسش و پاسخ (بیسیک4اندروید) - AnswerCenter.IR

توی پست سوم خوب توضیح داده شده کلا یه تابع round که گرد به سمت بالا میکنه یعنی مثلا5.71245 باشه یا 5.0222010 باشه تو خروجی 6 نشون میده اون یکی Floor برعکسشه 

توی پست دومش هم یکی دوستان یه مثال ساده گذاشتن 

کجاش دقیقا مبهمه براتون تا بیشتر توضیح بدم 

[mostafa.kasiri 115]

#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim a As Double
Dim i As Int
Private EditText1 As EditText
Private EditText2 As EditText
Private EditText3 As EditText
Private Label1 As Label
Private button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L2")
Label1.Text=i
End Sub


Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub button1_Click
Try
Label1.text = (((EditText1.text + EditText2.text) * EditText3.text) * 1.09) * 1.074
a = i
i=Round=(a)                            به این براچی ایراد میگیره؟


Catch
Msgbox("لطفا تمام گزینه های را پر کنید","error")
End Try
End Sub
Sub Button2_Click
Label1.Text = 0 
End Sub
Sub CheckBox1_CheckedChange(Checked As Boolean)
If Checked = True Then
EditText1.visible = False
EditText3.visible = False
EditText2.visible = False
Else
EditText1.visible= True
EditText2.visible= True
EditText3.visible= True
End If
End Sub

این کد ها من هست میشه بم بگید چی کارکنم