سوال: گرفتن عدد بدون اعشار در لیبل با عمل تقسیم [بایگانی]

سید حمید حق پرست

جمعه 30 دی 1390, 02:55 صبح

با سلام

دوستان من یک تکس باکس و یک کامند و یک لیبل ایجاد کردم
و در لیبل کد زیر رو نوشتم

Label1.Caption = Val(t1.text) / 4

با زدن کامند تکس باکس عدد داخل تکس باکس بر 4 تقسیم میشود و نتیجه را در لیبل نمایش میدهد
حالا من میخوام این نتیجه بدون اعشار باشد

مثلا 15 تقسیم بر 4 میشود : 3.75 . من میخواهم جواب بدون اعشار باشد یعنی 3
3 تقسیم بر چهار : 0.75 میخواهم اینرو یا صفر نشون بده یا یک

امیدوارم بتونید راهنماییم کنید

arash020

جمعه 30 دی 1390, 06:58 صبح

سلام

Private Sub Command1_Click()
l = 10 / 4
Print l
Print Format(l, 0#)
End Sub

سید حمید حق پرست

جمعه 30 دی 1390, 10:58 صبح

ممنون از جواب دادن شما
خب حالا این کد رو در تکس باکس و لیبل چطوری استفاده کنم

Veteran

جمعه 30 دی 1390, 11:00 صبح

l = 10 / 4
Label1.Caption = Format(l, 0#)

سید حمید حق پرست

جمعه 30 دی 1390, 11:15 صبح

ممنون از جوابتون . دستتون طلا
l = val(t1.text) / 4

Label1.Caption = Format(l, 0#)

just4froum

جمعه 30 دی 1390, 13:02 عصر

با سلام

شما از / براي تقسيم مي توانيد از \ استفاده كنيد

كد زير را امتحان كن متوجه ميشويد

MsgBox 10 / 4
MsgBox 10 \ 4

M.T.P

جمعه 30 دی 1390, 14:04 عصر

وی بی به این منظور توابعی داره .

اگه می خواید کلا اعشار رو دور بریزید:

Dim dblNumber As Double
dblNumber = (3 / 4)
Label1.Caption = Fix(dblNumber)

اگه می خواید عدد اعشاری رو گرد کنید:

Dim dblNumber As Double
dblNumber = (3 / 4)
Label1.Caption = Round(dblNumber)

سید حمید حق پرست

جمعه 30 دی 1390, 15:33 عصر

جناب M.T.P محترم سپاس

اگه ممکنه به این پست برید و راهنماییم کنیدhttp://barnamenevis.org/showthread.php?323826-%D8%A7%D9%85%D9%86%DB%8C%D8%AA-%D8%AF%D8%A7%D8%AF%D9%86-%D8%A8%D9%87-%D9%81%D8%A7%DB%8C%D9%84%D9%87%D8%A7%DB%8C-RAR-%D8%AA%D9%88%D8%B3%D8%B7-NOD-Decrypter-%D9%84%D8%B7%D9%81%D8%A7-%DA%A9%D9%85%DA%A9%D9%85-%DA%A9%D9%86%DB%8C%D8%AF&p=1422930&posted=1#post1422930

karimi64bit

جمعه 30 دی 1390, 23:25 عصر

با سلام

دوستان من یک تکس باکس و یک کامند و یک لیبل ایجاد کردم
و در لیبل کد زیر رو نوشتم

Label1.Caption = Val(t1.text) / 4

با زدن کامند تکس باکس عدد داخل تکس باکس بر 4 تقسیم میشود و نتیجه را در لیبل نمایش میدهد
حالا من میخوام این نتیجه بدون اعشار باشد

مثلا 15 تقسیم بر 4 میشود : 3.75 . من میخواهم جواب بدون اعشار باشد یعنی 3
3 تقسیم بر چهار : 0.75 میخواهم اینرو یا صفر نشون بده یا یک

امیدوارم بتونید راهنماییم کنید

اینو بنویسو خیال خودتو راحت کن

Label1.Caption = int(t1.text) / 4