این کد دو عدد را از فیلدهای edtFirst و edtSecond میخواند، عمل ضرب را انجام میدهد و نتیجه را با NumberFormat (حداقل ۱ رقم و حداکثر ۲ رقم اعشار) داخل lblStatus نشان میدهد. نکته مهم این است که متن EditText مستقیم قابل محاسبه نیست؛ اول باید در متغیر Double ریخته شود تا B4A آن را عدد بفهمد نه رشته. همین الگو را برای هر ماشینحساب، فرم فاکتور و محاسبه قیمت در فروشگاه میتوانید گسترش دهید.
بدون نیاز به کتابخانه جانبی (فقط کتابخانههای داخلی B4A)
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تعداد بازدید | ۲ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- بدون کتابخانه جانبی
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub btnCalc_Click
' خواندن دو عدد از فیلدهای ورودی
Dim n1 As Double = edtFirst.Text
Dim n2 As Double = edtSecond.Text
' محاسبه و نمایش نتیجه با دو رقم اعشار
Dim result As Double = n1 * n2
lblStatus.Text = "نتیجه: " & NumberFormat(result, 1, 2)
End Sub