محاسبه ی 20 درصد از عدد

[oggiii]

من می خوام 20درصد از یک مبلغ رو کم کنه و نشون بده اما همش صفر نمایش میده چکار باید بکنم کجارو اشتباه کردم ؟؟




Dim f As Double = 800
Private Sub TextBox3_TextChanged
f = Val(TextBox1.Text)
f -= (f / 100 * 20)
Label14.Text = f
End Sub
End Classf

[ACorvinus]

دوست من سلام.
اینجوری بنویس:



Private Sub TextBox3_TextChanged(Byval sender As Object, Byval e As EventArgs)
Dim F As Double = Double.Parse(Me.Textbox1.Text)

Dim Percent As Double = (F * 20) / 100
F -= Percent
End Sub

[oggiii]

دوست من سلام.
اینجوری بنویس:



Private Sub TextBox3_TextChanged(Byval sender As Object, Byval e As EventArgs)
Dim F As Double = Double.Parse(Me.Textbox1.Text)

Dim Percent As Double = (F * 20) / 100
F -= Percent
End Sub


ممنون از لطفتون
یه سئوال دیگه ام داشتم
می یه تکس باکس دارم مثل همین که درصد رو محاسبه میکنه و میریزه توی دیتابیس
خوب حالا می خوام هرچی قیمت یا پول که داخل جدول ذخیره شده رو با هم جمع کنه و مقدار نهایش رو نشون بده

[oggiii]

دوست من سلام.
اینجوری بنویس:



Private Sub TextBox3_TextChanged(Byval sender As Object, Byval e As EventArgs)
Dim F As Double = Double.Parse(Me.Textbox1.Text)

Dim Percent As Double = (F * 20) / 100
F -= Percent
End Sub


من الان این کد رو استفاده کردم و درست بود واسه 1000 تومان 800 تومان نشون میده الان اگه من بخوام اون 20 درصدی که ازش کم شده یعنی 200تومان رو در یه label نمایش بدم باید چه کار کنم؟؟اگه مبلغ اصلی رو از این 800 تومان کم کنم درست میشه ؟؟؟

[Hossis]

من الان این کد رو استفاده کردم و درست بود واسه 1000 تومان 800 تومان نشون میده الان اگه من بخوام اون 20 درصدی که ازش کم شده یعنی 200تومان رو در یه label نمایش بدم باید چه کار کنم؟؟اگه مبلغ اصلی رو از این 800 تومان کم کنم درست میشه ؟؟؟
Label2.text=f

[Hossis]

ممنون از لطفتون
یه سئوال دیگه ام داشتم
می یه تکس باکس دارم مثل همین که درصد رو محاسبه میکنه و میریزه توی دیتابیس
خوب حالا می خوام هرچی قیمت یا پول که داخل جدول ذخیره شده رو با هم جمع کنه و مقدار نهایش رو نشون بده
یک راه آسان که به نظر من می رسه اینه که یک متغیر عددی ساخته و با حلقه For تک تک رکوردها را بررسی کرده و فیلد مبلغ را گرفته و به حاصل جمع ذخیره شده در متغیر فوق،‌ اضافه کنید.
من برای توضیح یک تابع فرضی می نویسم ، بسته به نوع پایگاهی که از آن استفاده می کنید، کد را تنظیم کنید.



dim I ,Jas integer
dim Rc as integer
for i=1 to rs.recordcount

rc=rs.fields("Mablagh").value
j=j+rc
rs.movenext
next

[oggiii]

یک راه آسان که به نظر من می رسه اینه که یک متغیر عددی ساخته و با حلقه For تک تک رکوردها را بررسی کرده و فیلد مبلغ را گرفته و به حاصل جمع ذخیره شده در متغیر فوق،‌ اضافه کنید.
من برای توضیح یک تابع فرضی می نویسم ، بسته به نوع پایگاهی که از آن استفاده می کنید، کد را تنظیم کنید.



dim I ,Jas integer
dim Rc as integer
for i=1 to rs.recordcount

rc=rs.fields("Mablagh").value
j=j+rc
rs.movenext
next


جای RS باید چی بنویسم چون غلط میگیره rs فکر کردم که باید اسم جدولم رو بنویسم که اونم غلط گرفت

[Hossis]

جای RS باید چی بنویسم چون غلط میگیره rs فکر کردم که باید اسم جدولم رو بنویسم که اونم غلط گرفت
شما از چه کلاسی برای ارتباط با بانک داده استفاده می کنید
rs اشاره به جدول خاصی از بانک اطلاعات داره که توسط کلاسهای ADODB اجرا می شود
به این صورت


Dim DB as new adodb.connection
dim RS as new recordset
بعد در سایر روال ها و توابع از اون استفاده می شه