تکه کد محاسبه تخفیف در b4a

با سلام و سپاس خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO

 

شاید تا حالا دیده باشید در برنامه تخفیفی اعمال میشه

 

اموروز ساده ترین روش محاسبه تخفیف رو درون برنامتون بهتون آموزش میدم . کافیه طبق دستور زیر عمل کنید :

 

Sub Takhfif(Gheymat As Int,Darsad As Int) As Int
 Dim i As Int
 i = Gheymat * Darsad / 100
 Return i
End Sub

برای مثال در لیبل زیر میخوایم ۴۰ درصد تخفیف رو اعمال کنی م

 

Label.Text = Takhfif(8000,40)

 

به همین راحتی موفق باشید/