Собрать несколько блоков кода в один

@ASSEI · Регистрация: 18.10.2012

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

Доброго вам всем дня дорогие форумчане! подскажите направьте в нужном направлении как решить такого рода момент, собрать воедино, т.е в один блок, код, а то мне кажется раздуется мой проект как пузырь). заранее спасибо всем !

PureBasic
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
Public a As Byte
Public b As Byte
Public c As Byte
Public d As Byte
 
Private Sub Text1_Change()
c = Len(Text1.Text)
If c > 4 Then
MsgBox "Не соответствие символов для поля! " & Label1 & "", vbInformation, "СООБЩЕНИЕ!"
End If
End Sub
Private Sub Text2_Change()
a = Len(Text2.Text)
If a > 10 Then
MsgBox "Не соответствие символов для поля! " & Label2 & "", vbInformation, "СООБЩЕНИЕ!"
End If
End Sub
Private Sub Text3_Change()
b = Len(Text3.Text)
If b > 10 Then
MsgBox "Не соответствие символов для поля! " & Label3 & "", vbInformation, "СООБЩЕНИЕ!"
End If
End Sub
 
Private Sub Text9_Change()
d = Len(Text9.Text)
If d > 14 Then
MsgBox "Не соответствие символов для поля! " & Label9 & "", vbInformation, "СООБЩЕНИЕ!"
End If
End Sub
 
.........ну и так далее

echs · 21.04.2017, 12:29

ASSEI
Вопрос не очень понятен. На Visual Basic процедура
и есть своего рода "блок". Хотя...
возможно вы имеете в виду Модуль, а называете его
блоком.
Просто добавьте в свой проект модуль
(их число не ограничено)

@Homarty · 21.04.2017, 19:24

echs, можно предположить, что ТС имел в виду вопрос оптимизации однотипного кода

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Text1_Change()
    Handler 1, 4
End Sub
 
Private Sub Text2_Change()
    Handler 2, 10
End Sub
 
Private Sub Text3_Change()
    Handler 3, 10
End Sub
 
Private Sub Text9_Change()
    Handler 9, 14
End Sub
 
'.......ну и так далее
 
Private Sub Handler(Number As Long, Minimum As Long)
    If Len(Controls("Text" & Number)) > Minimum Then MsgBox "Несоответствие символов для поля! " _
         & Controls("Label" & Number) & " ", vbInformation, "СООБЩЕНИЕ!"
End Sub

echs · 21.04.2017, 20:10

Homarty
А знаете, скорее всего вы правы. И между
прочим код можно укоротить еще... например
ввести текстовые поля с индексами... тогда
потребуется всего одна процедура...

Добавлено через 1 минуту
точнее две процедуры

@ASSEI · 21.04.2017, 21:03 **[ТС]**

совершенно верно ребята но тогда сообщение будет одно на всех а хотелось бы как видно из моего примера кода у каждого текстового поля свое сообщение которое показывает в каком поле что не так!

SoftIce · 21.04.2017, 21:37

Сообщение от ASSEI

сообщение будет одно на всех

С какого перепугу? Вы код Homarty проверяли?

Добавлено через 1 минуту

Сообщение от echs

точнее две процедуры

Если сделать массив текстбоксов и массив Label-ов, то и одной процедуры достаточно.

Добавлено через 1 минуту
ASSEI, кстати, а зачем Вам метки?

@ASSEI · 21.04.2017, 21:39 **[ТС]**

это и хотелось бы увидеть в одной процедуре всего пять текстбоксов

Добавлено через 1 минуту
что бы пользователь визуально в сообщенни видел откуда ошибка, может типа как фишка

SoftIce · 21.04.2017, 21:39

Вы в Label-ах храните строки что ли?

@ASSEI · 21.04.2017, 21:42 **[ТС]**

нет просто в сообщении текстового поля прикрепляю информ. по его названию лабэл

SoftIce · 21.04.2017, 21:59

Понятно. Минутку.

Добавлено через 14 минут
Вот такой код примерно будет для массива из 5 текстбоксов и Label-ов

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Text1_Change(Index As Integer)
    Dim n As Integer, m As Integer
    n = Len(Text1(Index))
    Select Case Index
        Case 3, 4: m = 4  ' в 3 и 4-м текстбоксе максимальное количество символов = 4
        Case 1, 2: m = 10 ' в 1 и 2-м текстбоксе максимальное количество символов = 10
        Case 0: m = 14    ' в 0-м текстбоксе максимальное количество символов = 14
    End Select
    If n > m Then MsgBox "Не соответствие символов для поля! " & Label1(Index).Caption & "", vbInformation, "СООБЩЕНИЕ!"
End Sub

@ASSEI · 21.04.2017, 22:03 **[ТС]**

Сообщение от SoftIce

Private Sub Text1_Change(Index As Integer)

я немного не понял а почему здесь только одно текстовое поле?

SoftIce · 21.04.2017, 22:05

Сообщение от ASSEI

почему здесь только одно текстовое поле?

Это одна процедура для всех полей.

@ASSEI · 21.04.2017, 22:07 **[ТС]**

я просто потерялся куда его загонять в форму или тектовое поле

SoftIce · 21.04.2017, 22:07

Поля все в массиве. Называются Text1(0), Text1(1), Text1(2), Text1(3), Text1(4)....

Умеете создавать массив?

@ASSEI · 21.04.2017, 22:11 **[ТС]**

до этого пока мое понимание в программе сведено к нулю

SoftIce · 21.04.2017, 22:13

Сообщение от SoftIce

Называются Text1(0), Text1(1)

@ASSEI · 21.04.2017, 22:46 **[ТС]**

все получилось спасибо вам огромное!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Собрать несколько блоков кода в один

Решение

Решение

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	21.04.2017, 12:29
	ASSEI Вопрос не очень понятен. На Visual Basic процедура и есть своего рода "блок". Хотя... возможно вы имеете в виду Модуль, а называете его блоком. Просто добавьте в свой проект модуль (их число не ограничено) 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	21.04.2017, 20:10
	Homarty А знаете, скорее всего вы правы. И между прочим код можно укоротить еще... например ввести текстовые поля с индексами... тогда потребуется всего одна процедура... Добавлено через 1 минуту точнее две процедуры 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	21.04.2017, 21:03 [ТС]
	совершенно верно ребята но тогда сообщение будет одно на всех а хотелось бы как видно из моего примера кода у каждого текстового поля свое сообщение которое показывает в каком поле что не так! 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	21.04.2017, 21:39 [ТС]
	это и хотелось бы увидеть в одной процедуре всего пять текстбоксов Добавлено через 1 минуту что бы пользователь визуально в сообщенни видел откуда ошибка, может типа как фишка 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	21.04.2017, 21:39
	Вы в Label-ах храните строки что ли? 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	21.04.2017, 21:42 [ТС]
	нет просто в сообщении текстового поля прикрепляю информ. по его названию лабэл 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	21.04.2017, 22:07 [ТС]
	я просто потерялся куда его загонять в форму или тектовое поле 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	21.04.2017, 22:07
	Поля все в массиве. Называются Text1(0), Text1(1), Text1(2), Text1(3), Text1(4).... Умеете создавать массив? 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	21.04.2017, 22:11 [ТС]
	до этого пока мое понимание в программе сведено к нулю 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	21.04.2017, 22:46 [ТС]
	все получилось спасибо вам огромное! 0