Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Округление до большего четного / 5 сообщений из 5, страница 1 из 1
28.02.2014, 17:21
    #38575542
Shaman Weeder
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление до большего четного
Всем привет!
Подскажите, пожалуйста, код для округления результата в текстовом поле до большего четного числа или проверки результата на чётность. Например, на форме есть 3 текстовых поля и кнопка. В первое и второе поля вводятся значения, над которыми будут выполняться различные арифметические действия, а в третье будет выводиться результат по нажатию на кнопку. При помощи функции Round я добился округления результата до целого, но мне необходимо, чтобы результат всегда округлялся в большую сторону до четного целого. Пытался сделать это через условие проверки на чётность Mod 2=0, но, то ли я криво вставил код, то ли вставил не туда, то ли он не подходит для данного конкретного случая... Задача: проверить результат в Textbox3 на чётность... ну, а дальше я уже просто прибавлю 1 в случае нечётности через If... Then... Как проверить на чётность? Я новичок, поэтому самому разобраться сложно.
Приведите, пожалуйста, пример кода для данной задачи.
Спасибо.
...
Рейтинг: 0 / 0
28.02.2014, 17:38
    #38575561
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление до большего четного
Shaman WeederЗадача: проверить результат в Textbox3 на чётность.... Как проверить на чётность?обратиться к учебнику третьего класса средней школы - число является четным, если делится без остатка на 2.
...
Рейтинг: 0 / 0
28.02.2014, 17:39
    #38575564
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление до большего четного
Shaman Weederто ли я криво вставил код, то ли вставил не тудапрежде всего не вставил код в свое сообщение на форуме, поэтому мы и не можем сказать, что ты неправильно сделал
...
Рейтинг: 0 / 0
28.02.2014, 17:43
    #38575568
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление до большего четного
Shaman Weederокругления результата в текстовом поле до большего четного числа

Вот формула, решающая эту задачу без проверки на четность
Код: vbnet
1.
-Int(-x/2)*2
...
Рейтинг: 0 / 0
03.03.2014, 11:43
    #38576636
Shaman Weeder
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Округление до большего четного
Shocker.ProShaman Weederокругления результата в текстовом поле до большего четного числа

Вот формула, решающая эту задачу без проверки на четность
Код: vbnet
1.
-Int(-x/2)*2



спасибо. задача уже решена.
Код: vbnet
1.
2.
3.
Private Function MyFix(ByVal Value As Double) As Long
    MyFix = -(Int(-Value / 2)) * 2
End Function
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Округление до большего четного / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]