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

Вот формула, решающая эту задачу без проверки на четность
Код: vbnet
1.
-Int(-x/2)*2
...
Рейтинг: 0 / 0
Округление до большего четного
    #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
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Округление до большего четного
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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