این کد دو عدد را از فیلدهای edtA و edtNum2 می‌خواند، عمل تقسیم را انجام می‌دهد و نتیجه را با NumberFormat (حداقل ۱ رقم و حداکثر ۲ رقم اعشار) داخل lblMsg نشان می‌دهد. چون عمل تقسیم است، قبل از محاسبه چک می‌شود عدد دوم صفر نباشد تا برنامه کرش نکند؛ این ساده‌ترین مثال دفاع در برابر ورودی خراب است. نکته مهم این است که متن EditText مستقیم قابل محاسبه نیست؛ اول باید در متغیر Double ریخته شود تا B4A آن را عدد بفهمد نه رشته. همین الگو را برای هر ماشینحساب، فرم فاکتور و محاسبه قیمت در فروشگاه می‌توانید گسترش دهید.
بدون نیاز به کتابخانه جانبی (فقط کتابخانه‌های داخلی B4A)
این قطعه‌کد به‌صورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکراری‌نبودن بررسی شده است. برای دیدن تکه‌کدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه می‌شود.
| دسته‌بندی | تکه کدها |
| تعداد بازدید | ۱ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال می‌شود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگی‌های کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- بدون کتابخانه جانبی
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال می‌شود)
Sub btnResult_Click
' خواندن دو عدد از فیلدهای ورودی
Dim n1 As Double = edtA.Text
Dim n2 As Double = edtNum2.Text
' جلوگیری از تقسیم بر صفر
If n2 = 0 Then
ToastMessageShow("تقسیم بر صفر مجاز نیست!", True)
Return
End If
' محاسبه و نمایش نتیجه با دو رقم اعشار
Dim result As Double = n1 / n2
lblMsg.Text = "نتیجه: " & NumberFormat(result, 1, 2)
End Sub
محصولات مشابه