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

[mehrabmmp 528]

سلام دوستان

یه برنامه ساده درست کرده بودم که میومد تخفیف قیمت هارو محاسبه میکرد

بعضی از دوستان گفتند که کدی که اونو محاسبه میکنه بنویسم

 

اینکه کاری نداره میای قیمت رو از کاربر میگیریبعد ضرب مقدار تخفیف و تقسیم بر 100 میکنی

مثل:

35/100*2000

این محاسبه بالایی میاد مقدار تخفیف رو پیدا میکنه مثلا 20 درصد 1000 تومن میشه 200 تومن

وقتی که مقدار رو پیدا کردی باید منهای قیمت کنی که میشه 800 تومن

 

کدشم اینه

میای تو edittext قیمت و تخفیف رو میگیری

Dim int1,int2,int3,int4 As Long
	int1 = EditText1.Text
	int2 = EditText2.Text
	int3 = int1 * int2 / 100
	lblmegdartakhfif.Text = int3
	int4 = int1 - lblmegdartakhfif.Text
	lblgeymatpayan.Text = int4

[محمد رشوند 1,208]

 

سلام دوستان

یه برنامه ساده درست کرده بودم که میومد تخفیف قیمت هارو محاسبه میکرد

بعضی از دوستان گفتند که کدی که اونو محاسبه میکنه بنویسم

 

اینکه کاری نداره میای قیمت رو از کاربر میگیریبعد ضرب مقدار تخفیف و تقسیم بر 100 میکنی

مثل:

35/100*2000

این محاسبه بالایی میاد مقدار تخفیف رو پیدا میکنه مثلا 20 درصد 1000 تومن میشه 200 تومن

وقتی که مقدار رو پیدا کردی باید منهای قیمت کنی که میشه 800 تومن

 

کدشم اینه

میای تو edittext قیمت و تخفیف رو میگیری

Dim int1,int2,int3,int4 As Long
	int1 = EditText1.Text
	int2 = EditText2.Text
	int3 = int1 * int2 / 100
	lblmegdartakhfif.Text = int3
	int4 = int1 - lblmegdartakhfif.Text
	lblgeymatpayan.Text = int4

بسیار عالی من همیشه ریاضیم ضعیف بوده وگرنه همش چهار تا متغییر بود

ایکاش ریاضیمو یکم بهتر میکردم