VBNet - Форум - Округление

Вопрос: Округление Добавлено: 20.12.09 13:11

Автор вопроса: ηikolaŠ~rus | ICQ: 604058327

как сделать чтоб при нажатии на кнопку лабель1.каптион
округлялось до 2 цифр (например 1.3 км/час)???
Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #1	Добавлено: 20.12.09 13:21
	label1.caption = cstr(round(val(label1,caption)0,2)) Ответить

Номер ответа: 2 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #2	Добавлено: 20.12.09 14:08
	еще можно Format$ использовать: label1.Caption = Format$(Val(label1.Caption), "0.0" Ответить

Номер ответа: 3 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| \| #3	Добавлено: 20.12.09 14:08
	Спасибо Ответить

Номер ответа: 4 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| \| #4	Добавлено: 20.12.09 18:28
	а как етот код- label1.caption = cstr(round(val(label1,caption)0,2)) запихать в мой -- label1.caption = text1.text/(val(text2.text & text3.text)) ??? Ответить

Номер ответа: 5 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| \| #5	Добавлено: 20.12.09 18:29
	и ответ нужно округлить до 2 цифр??? Ответить

Номер ответа: 6 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #6	Добавлено: 20.12.09 19:56
	label1.caption = cstr(round(val( text1.text/(val(text2.text & text3.text)) )0,2)) / Вообще, расскажи, что ты делаешь. Ответить

Номер ответа: 7 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| \| #7	Добавлено: 21.12.09 16:57
	делаю прогу с помощбю которой можно узнать с какой скоростью спортсмен пробужал дистанцию --label1.caption = text1.text/(val(text2.text & text3.text)) & "км/час" ---- вот я вся прога а как твой код туда запихать незнаю????[ Ответить

Номер ответа: 8 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #8	Добавлено: 21.12.09 18:31
	Если равномерное движение, то так: На форме Text1, Text2, Command1, Label1 Text1 - Дистанция в километрах Text2 - Время в часах Private Sub Command1_Click() Dim s As Double, t As Double, v As Double s = Val(Text1.Text) t = Val(Text2.Text) v = s / t Label1.Caption = CStr(Round(v,2)) & " км/час" End Sub Ответить

Номер ответа: 9 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| \| #9	Добавлено: 21.12.09 19:07
	Спасибо огромно!!! Ответить

Страница: 1 |