ماشین‌حساب ساده — تقسیم دو عدد — کامل و تست‌شده

این کد دو عدد را از فیلدهای edtNum1 و edtNum2 می‌خواند، عمل تقسیم را انجام می‌دهد و نتیجه را با NumberFormat (حداقل ۱ رقم و حداکثر ۲ رقم اعشار) داخل lblStatus نشان می‌دهد. چون عمل تقسیم است، قبل از محاسبه چک می‌شود عدد دوم صفر نباشد تا برنامه کرش نکند؛ این ساده‌ترین مثال دفاع در برابر ورودی خراب است. نکته مهم این است که متن EditText مستقیم قابل محاسبه نیست؛ اول باید در متغیر Double ریخته شود تا B4A آن را عدد بفهمد نه رشته. همین الگو را برای هر ماشین‌حساب، فرم فاکتور و محاسبه قیمت در فروشگاه می‌توانید گسترش دهید.

بدون نیاز به کتابخانه جانبی (فقط کتابخانه‌های داخلی B4A)

این قطعه‌کد به‌صورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکراری‌نبودن بررسی شده است. برای دیدن تکه‌کدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه می‌شود.

دسته‌بندیتکه کدها
تعداد بازدید۲
تعداد فروش۰
فرمت تحویلکد نمونهٔ رایگان در همین صفحه
پشتیبانیتیکت پشتیبانی در پنل کاربری

ویژگی‌های کلیدی

  • کد B4A آماده استفاده
  • توضیح کامل فارسی
  • کاملاً رایگان
  • بدون کتابخانه جانبی

هنوز نظری ثبت نشده است. اولین نفر باشید!

برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال می‌شود)

B4A — کد نمونه رایگان این تکه‌کد را می‌توانید مستقیم در پروژه بیسیک۴اندروید استفاده کنید 
Sub btnCount_Click
    ' خواندن دو عدد از فیلدهای ورودی
    Dim n1 As Double = edtNum1.Text
    Dim n2 As Double = edtNum2.Text

    ' جلوگیری از تقسیم بر صفر
    If n2 = 0 Then
        ToastMessageShow("تقسیم بر صفر مجاز نیست!", True)
        Return
    End If
    ' محاسبه و نمایش نتیجه با دو رقم اعشار
    Dim result As Double = n1 / n2
    lblStatus.Text = "نتیجه: " & NumberFormat(result, 1, 2)
End Sub

محصولات مشابه

تخصصی بیسیک۴اندرویدسورس‌کد آمادهآموزش گام‌به‌گامکتابخانه‌های کاربردیتحویل آنی بعد از پرداختپشتیبانی واقعی ۲۴/۷بروزرسانی رایگان+۱۰۱۹ محصول فعال