Упрощение проверки условий

@Strannik_san · Регистрация: 07.09.2019

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста упростить это код

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
        If TextBox3.Text = "" Then GoTo m1
        ЗначениеBox3 = TextBox3.Text
        If TextBox3.Text > 99 Then
            TextBox3.BackColor = Color.Red
        Else
            TextBox3.BackColor = Color.White
        End If
        ЗначениеBox3 = Nothing
m1:
 
        If TextBox4.Text = "" Then GoTo m2
        ЗначениеBox3 = TextBox4.Text
        If TextBox4.Text > 99 Then
            TextBox4.BackColor = Color.Red
        Else
            TextBox4.BackColor = Color.White
        End If
        ЗначениеBox3 = Nothing
m2:
        If TextBox5.Text = "" Then GoTo m3
        ЗначениеBox3 = TextBox5.Text
        If TextBox5.Text > 99 Then
            TextBox5.BackColor = Color.Red
        Else
            TextBox5.BackColor = Color.White
        End If
        ЗначениеBox3 = Nothing
m3:
        If TextBox6.Text = "" Then GoTo m4
        ЗначениеBox3 = TextBox6.Text
        If TextBox6.Text > 99 Then
            TextBox6.BackColor = Color.Red
        Else
            TextBox6.BackColor = Color.White
        End If
        ЗначениеBox3 = Nothing
m4:

@Orlangur · 30.03.2020, 22:29

Strannik_san, назначение ЗначениеBox3 не совсем понял, но если надо пройтись по определенным textbox'ам и покрасить их в зависимости значения

VB.NET
1
2
3
4
5
6
7
8
9
10
 Dim TxtBoxes() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5} 'добавляем в массив все textbox'ы для проверки
        For Each txtbox As TextBox In TxtBoxes
            If txtbox.TextLength > 0 Then 'проверяем длинну теста в textbox'е
                If CInt(txtbox.Text) > 99 Then
                    txtbox.BackColor = Color.Red
                Else
                    txtbox.BackColor = Color.White
                End If
            End If
        Next

@Strannik_san · 30.03.2020, 23:16 **[ТС]**

В программе которую создаю находятся 40 текстбоксов и их надо проверить чтобы пользователь не вводил значение больше чем 99.Переменная ЗначениеBox3 создал чтобы её указать что она Integer.В текстбоксы надо вводить именно числа.

Добавлено через 3 минуты
В программе которую создаю находятся 40 текстбоксов и их надо проверить чтобы пользователь не вводил значение больше чем 99.Переменная ЗначениеBox3 создал чтобы её указать что она Integer.В текстбоксы надо вводить именно числа.

Добавлено через 7 минут
Ваш код закрашивает текстбоксы на при удалении в текста в белый не перекрашивается.

@Orlangur · 30.03.2020, 23:52

Strannik_san,

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Dim TxtBoxes() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4, TextBox5} 'добавляем в массив все textbox'ы для проверки
        For Each txtbox As TextBox In TxtBoxes
            If txtbox.TextLength > 0 Then 'проверяем длинну теста в textbox'е
                If CInt(txtbox.Text) > 99 Then
                    txtbox.BackColor = Color.Red
                Else
                    txtbox.BackColor = Color.White
                End If
            Else
                txtbox.BackColor = Color.White
            End If
        Next

и раз вводить надо числа, почему не использовать NumericUpdDown?

@Strannik_san · 30.03.2020, 23:59 **[ТС]**

Способ ввода ручная блютуз-клавиатура на которой только цифры,Tab и функциональные F1,F2,F3,F4 и стрелки вверх и вниз.

@Orlangur · 31.03.2020, 00:03

Strannik_san, ок, но просто в NumericUpdDown можно задать минимальное и максимальное значение, что избавит от проверок

@Strannik_san · 31.03.2020, 00:09 **[ТС]**

Это я знаю,но тогда надо будет придумывать как вводить без использования мышки.Колличество нажатий в программе с помощью мыши нужно минимальным.Большой монитор с окном программы находиться на удаление от пользователя.

@Orlangur · 31.03.2020, 00:50

Strannik_san, так же как в текстбоксы, с клавиатуры, переключаясь между NumericUpdDown с помощью Tab, но дело ваше

@Strannik_san · 31.03.2020, 00:53 **[ТС]**

Спасибо я попробую.Я начал заниматься программированием совсем недавно.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Strannik_san 7 / 7 / 0 Регистрация: 07.09.2019 Сообщений: 207
	30.03.2020, 23:16 [ТС]
	В программе которую создаю находятся 40 текстбоксов и их надо проверить чтобы пользователь не вводил значение больше чем 99.Переменная ЗначениеBox3 создал чтобы её указать что она Integer.В текстбоксы надо вводить именно числа. Добавлено через 3 минуты В программе которую создаю находятся 40 текстбоксов и их надо проверить чтобы пользователь не вводил значение больше чем 99.Переменная ЗначениеBox3 создал чтобы её указать что она Integer.В текстбоксы надо вводить именно числа. Добавлено через 7 минут Ваш код закрашивает текстбоксы на при удалении в текста в белый не перекрашивается. 0

@Strannik_san 7 / 7 / 0 Регистрация: 07.09.2019 Сообщений: 207
	30.03.2020, 23:59 [ТС]
	Способ ввода ручная блютуз-клавиатура на которой только цифры,Tab и функциональные F1,F2,F3,F4 и стрелки вверх и вниз. 0

@Orlangur Лень — мое второе и 3228 / 2416 / 687 Регистрация: 28.11.2014 Сообщений: 3,601 Записей в блоге: 3
	31.03.2020, 00:03
	Strannik_san, ок, но просто в NumericUpdDown можно задать минимальное и максимальное значение, что избавит от проверок 0

@Strannik_san 7 / 7 / 0 Регистрация: 07.09.2019 Сообщений: 207
	31.03.2020, 00:09 [ТС]
	Это я знаю,но тогда надо будет придумывать как вводить без использования мышки.Колличество нажатий в программе с помощью мыши нужно минимальным.Большой монитор с окном программы находиться на удаление от пользователя. 0

@Orlangur Лень — мое второе и 3228 / 2416 / 687 Регистрация: 28.11.2014 Сообщений: 3,601 Записей в блоге: 3
	31.03.2020, 00:50
	Strannik_san, так же как в текстбоксы, с клавиатуры, переключаясь между NumericUpdDown с помощью Tab, но дело ваше 0

@Strannik_san 7 / 7 / 0 Регистрация: 07.09.2019 Сообщений: 207
	31.03.2020, 00:53 [ТС]
	Спасибо я попробую.Я начал заниматься программированием совсем недавно. 0

Упрощение проверки условий

Решение