Создание массива

@sawa · Регистрация: 11.05.2020

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

Подскажите или укажите на примере.
Есть форма, на ней в строчку идут тестбоксы и леболы с вычислениями, простыми, типо

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Label4.Caption = (Text3.Text * 1000) / 400
Label4.Caption = Format(Label4.Caption, "0.0")
Dim a As Double
a = Val(Text2.Text)
If a > 70 Then
Else
s = 11.5
Label9.Caption = "" & s
End If
If a < 70 Then
Else
s = 10.8
Label9.Caption = "" & s
End If
Label15.Caption = (Label4.Caption * Label9.Caption) / 200
Label15.Caption = Format(Label15.Caption, "0.0")
Label20.Caption = (Text4.Text / Label15.Caption)
Label20.Caption = Format(Label20.Caption, "0")

как мне, эти вычисление обединить в массив и использовать для других таких же строк,
строк с вычислениями очень много, до 35 и не хочется переписывать каждый раз одно и то же. спасибо

@Argus19 · 15.05.2020, 23:42

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

вычисление обединить в массив

Вычисления не объединяются в массив, в массив записываются переменные одного типа.

@sawa · 16.05.2020, 00:01 **[ТС]**

подскажите где посмотреть пример хоть какой нить

@Alex77755 · 16.05.2020, 02:23

подскажите где посмотреть пример хоть какой нить

Массивы. Обьявление массивов. Сортировка массивов

@vedunasv · 16.05.2020, 11:30

хм... что-то получается...

Добавлено через 9 минут
короче, sawa, будет вам массив вычислений...
Но только это немножко по другому называется....
И Ближе к вечеру , не сейчас. Домашние дела....
А сейчас потренируйтесь над переименованием объектов с именами по умолчанию на свои имена и постановкой задач.
Где-то раньше уже говорилось, что это облегчит через день вспоминать смысл переменных.

Добавлено через 6 минут
Argus19, sawa имеет в виду не массив переменных, а массив повторяющих вычислений - то есть кучу одинаковых вычислений, которые можно объединить в виде отдельной подпрограммы (отдельного модуля).

@Alex77755 · 16.05.2020, 11:46

строчку идут тестбоксы и леболы

Во первых текстбоксы и леболы в массив
Кидаешь на форму 1 текстбокс. Копируешь его и вставляешь. Бейсик спросит создавать ли массив. Соглашайся
Так же и с лебелами
Убедись что в каждой строке контролы с одинаковыми индексами
А потом цикл от 0 до максимального индекса
Значение счетчика используешь в качестве индекса текстбокса и лабела

@Alex77755 · 16.05.2020, 12:03

пример массива контролов

@vedunasv · 16.05.2020, 22:04

Ответ на вопрос sawa о массивах управляющих элементов, о повторяющих вычислениях, и немного о том о сём
короче --- ЧАСТЬ 3

Вложение 1146768

Вложение 1146769

Вложение 1146770

Вложение 1146771

Visual Basic
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
Option Explicit
Rem Постановка задачи
Rem 1. Есть группа наивных людей, живущих в сосновом лесу.
Rem 2. Они решили распространять сосновые шишки
Rem 3. организовать добавление на форме окно "Склад"
Rem по мере необходимости после заполнения предыдущего
Rem 4. При создании нового склада соответственно автоматически (без
Rem указания на это действие) добавлять окна "Количество", "Поступление",
Rem "Выдача"
Rem 5. Иметь возможность формировать цену за шишку - добавление окна
Rem 6. Обеспечить набор Собирателей - людей, кторые собирают шишки - добавление окон
Rem "Номер Собирателя", "План Собирателя"
Rem 7. Организовать анализ выручки - добавить окно по каждому Собирателю.
 
Const verx% = 50
Public s%, tmp&
Public nSkladMasiv%, nKolShishekMasiv%
Public nSklad%
 
 
Private Sub sklad_Click()
nSklad% = nSklad% + 1
nSkladMasiv% = nSkladMasiv% + 1
nKolShishekMasiv% = nKolShishekMasiv% + 1
 
PodgotovkaElement nSkladMasiv%, nSklad%, nKolShishekMasiv%
 
 
End Sub
Private Sub Form_Load()
 
Me.Left = 0: Me.Top = 0: Me.Height = 10000: Me.Width = 15000
End Sub
 
'+++++++++ подпрограммы +++++++++++
Sub PodgotovkaElement(nSkladMasiv%, nSklad%, nKolShishekMas%)
Load oknoSekret(nSkladMasiv%)
oknoSekret(nSkladMasiv%).Caption = "Склад № " & nSklad
oknoSekret(nSkladMasiv%).BorderStyle = 1
oknoSekret(nSkladMasiv%).Appearance = 0
oknoSekret(nSkladMasiv%).Left = 100
oknoSekret(nSkladMasiv%).Top = verx% * nSkladMasiv% + 200 * nSkladMasiv%
oknoSekret(nSkladMasiv%).Height = 400
oknoSekret(nSkladMasiv%).Width = 1800
oknoSekret(nSkladMasiv%).Font = 12
oknoSekret(nSkladMasiv%).Font.Size = 14
oknoSekret(nSkladMasiv%).Visible = True
 
nSkladMasiv% = nSkladMasiv% + 1
Load oknoSekret(nSkladMasiv%)
oknoSekret(nSkladMasiv%).Caption = "Поступило шишек"
oknoSekret(nSkladMasiv%).Left = 2000
oknoSekret(nSkladMasiv%).Top = verx% * (nSkladMasiv% - 1) + 200 * (nSkladMasiv% - 1)
oknoSekret(nSkladMasiv%).Height = 400
oknoSekret(nSkladMasiv%).Width = 3000
oknoSekret(nSkladMasiv%).BackColor = &H8000000F
oknoSekret(nSkladMasiv%).Font = 12
oknoSekret(nSkladMasiv%).Font.Size = 14
oknoSekret(nSkladMasiv%).Visible = True
 
Load SekretShishek(nKolShishekMas%)
SekretShishek(nKolShishekMas%).Text = ""
SekretShishek(nKolShishekMas%).Left = 4400
SekretShishek(nKolShishekMas%).Top = verx% * (nSkladMasiv% - 1) + 200 * (nSkladMasiv% - 1)
SekretShishek(nKolShishekMas%).Height = 400
SekretShishek(nKolShishekMas%).Width = 1000
SekretShishek(nKolShishekMas%).Font = 12
SekretShishek(nKolShishekMas%).Font.Size = 14
SekretShishek(nKolShishekMas%).Visible = True
 
nSkladMasiv% = nSkladMasiv% + 1
Load oknoSekret(nSkladMasiv%)
oknoSekret(nSkladMasiv%).Caption = "Выдать шишки"
oknoSekret(nSkladMasiv%).Left = 5500
oknoSekret(nSkladMasiv%).Top = verx% * (nSkladMasiv% - 2) + 200 * (nSkladMasiv% - 2)
oknoSekret(nSkladMasiv%).Height = 400
oknoSekret(nSkladMasiv%).Width = 3000
oknoSekret(nSkladMasiv%).BackColor = &H8000000F
oknoSekret(nSkladMasiv%).Font = 12
oknoSekret(nSkladMasiv%).Font.Size = 14
oknoSekret(nSkladMasiv%).Visible = True
 
nKolShishekMas% = nKolShishekMas% + 1
Load SekretShishek(nKolShishekMas%)
SekretShishek(nKolShishekMas%).Text = "" 'выдать шишки
SekretShishek(nKolShishekMas%).Left = 7500
SekretShishek(nKolShishekMas%).Top = verx% * (nSkladMasiv% - 2) + 200 * (nSkladMasiv% - 2)
SekretShishek(nKolShishekMas%).Height = 400
SekretShishek(nKolShishekMas%).Width = 1000
SekretShishek(nKolShishekMas%).Font = 12
SekretShishek(nKolShishekMas%).Font.Size = 14
SekretShishek(nKolShishekMas%).Visible = True
 
nSkladMasiv% = nSkladMasiv% + 1
Load oknoSekret(nSkladMasiv%)
oknoSekret(nSkladMasiv%).Caption = "Остаток на складе"
oknoSekret(nSkladMasiv%).Left = 8500
oknoSekret(nSkladMasiv%).Top = verx% * (nSkladMasiv% - 3) + 200 * (nSkladMasiv% - 3)
oknoSekret(nSkladMasiv%).Height = 400
oknoSekret(nSkladMasiv%).Width = 2400
oknoSekret(nSkladMasiv%).BackColor = &H8000000F
oknoSekret(nSkladMasiv%).Font = 12
oknoSekret(nSkladMasiv%).Font.Size = 14
oknoSekret(nSkladMasiv%).Visible = True
 
nSkladMasiv% = nSkladMasiv% + 1
Load oknoSekret(nSkladMasiv%)
oknoSekret(nSkladMasiv%).Caption = "" 'остаток на складе
oknoSekret(nSkladMasiv%).Left = 11000
oknoSekret(nSkladMasiv%).Top = verx% * (nSkladMasiv% - 4) + 200 * (nSkladMasiv% - 4)
oknoSekret(nSkladMasiv%).Height = 400
oknoSekret(nSkladMasiv%).Width = 2000
 
oknoSekret(nSkladMasiv%).BorderStyle = 1
oknoSekret(nSkladMasiv%).Appearance = 1
oknoSekret(nSkladMasiv%).BackColor = &HFFFFC0 '&H8000000F
oknoSekret(nSkladMasiv%).Font = 12
oknoSekret(nSkladMasiv%).Font.Size = 14
oknoSekret(nSkladMasiv%).Visible = True
End Sub
 
'********** обозначения *****
' nSklad% - номер склада
 
' D0 F0 I0 S0

тег, что это VB - ставлю, но русские фразы не получаются...

ПОЯСНЕНИЕ

1. Проект часть 3 - протестироована
2. В начале проекта расписана постановка задачи - конечно, не образец для подражание...
3. математика - не расписана
4. здесь расписан второй вариант создание элементов управления- в виде массива элементов управления.
Первый вариант (интернетовский) с sawa был обсужден.
5. Также расписан алгоритм вынесения повторяющих муторных вычисления в виде отдельного модуля (подпрограммы)
6. Была попытка вынести совершенно во внешний модуль еще одну часть вычислений - это "ПЕРЕУЧЕТ", но не хватило времени.

7. алгоритм работы с прогой: запустить, в проге вызвать меню... и щелкать, вводитиь числа..
Другие пункты МЕНЮ проги - не разработаны. Также из-за нехватки времени.

@vedunasv · 16.05.2020, 22:07

@sawa · 16.05.2020, 22:29 **[ТС]**

мне надо время, спасибо за проделанную работу

@vedunasv · 16.05.2020, 22:52

ага, конечно ))))))))))

Добавлено через 3 минуты
надо было прямо здесь написать все комментарии в коде напрямую по русски...не получается с кодировкой....может-кто-то подскажет по шагам???

Добавлено через 17 минут
sawa, на форме создается только одно окно LABEL и одно окно TEXT
и видимость их сделать Visible = FALSE

Все остальные окна делаются во время самой работы программы по запросу из меню программы

больше ничего.
Меню проги делается через конструктор меню

Рабочий файл нужен?? (*.ехе)

@vedunasv · 18.05.2020, 22:01

Добрый вечер, sawa.
Выполняю своё обещание по вырезке модуля запрета алфавита, который был зашит у меня в модуле глобальных переменных.

Visual Basic
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
Rem запрет на ввод определённого алфавита
Sub ZapretAzbuka(azbuka$, slovoAzbuka$)
Rem додано 03.02.2013
Select Case azbuka$ 'S3
Case "0" 'S3
If Not IsNumeric(slovoAzbuka$) Then 'I2 'перевірка на число
slovoAzbuka$ = ""
End If 'I2
Case "э" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F2
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S4
Case "а" To "я", "А" To "Я", " ", ".", "," 'S4
Case Else 'S4
slovoAzbuka$ = ""
End Select 'S4
Next 'F2
Case "є" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F3
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S5
Case "ы", "Ы", "э", "Э" 'S5
slovoAzbuka$ = ""
Case "є", "Є", "і", "І" 'S5
Case "а" To "я", "А" To "Я", " ", ".", "," 'S4
Case Else
slovoAzbuka$ = ""
End Select 'S5
Next 'F3
Case "f" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F2
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S4
Case "a" To "z", "A" To "Z", " ", ".", "," 'S4
Case Else
slovoAzbuka$ = ""
End Select 'S4
Next 'F2
 
Case "1э" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F2
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S4
Case "а" To "я", "А" To "Я", " ", ".", ",", "0" To "9" 'S4
Case Else 'S4
slovoAzbuka$ = ""
End Select 'S4
Next 'F2
 
Case "1є" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F3
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S5
Case "ы", "Ы", "э", "Э" 'S5
slovoAzbuka$ = ""
Case "є", "Є", "і", "І" 'S5
Case "а" To "я", "А" To "Я", " ", ".", ",", "0" To "9" 'S4
Case Else
slovoAzbuka$ = ""
End Select 'S5
Next 'F3
 
Case "1f" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F4
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S5
Case "a" To "z", "A" To "Z", " ", ".", ",", "0" To "9" 'S5
Case Else
slovoAzbuka$ = ""
End Select 'S5
Next 'F4
Case "эє" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F5
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S7
Case "а" To "я", "А" To "Я", "є", "Є", "і", "І", " ", ".", "," 'S7
Case Else 'S7
slovoAzbuka$ = ""
End Select 'S7
Next 'F5
Case "1эє" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F6
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S8
Case "а" To "я", "А" To "Я", "є", "Є", "і", "І", " ", ".", ",", "0" To "9" 'S8
Case Else 'S8
slovoAzbuka$ = ""
End Select 'S8
Next 'F6
 
End Select 'S3
End Sub
Rem конец запрет на ввод определённого алфавита
 
'**************************************** позначення ***************
' azbuka$ - признак азбуки
' = 0 смешанная, разрешена любая
' = 1 цифровая 0-9
' = э русская а-я
' = є украинская а-я
' = f английская a-z
' = 1ф цифровая и русская 0-9, а-я
' = 1є цифровая и украинская 0-9, а-я
' = 1f цифровая и английская 0-9, а-z
' = эє русско-украинская а-я, "є", "Є", "і", "І"
' = 1эє цифровая русско-украинская а-я, "є", "Є", "і", "І"
 
' dlina% - длина слова
' imKniga - название книги
' kanal% - номер канала файла #
' LenZapKniga - длина записи в байтах для файла произвольного доступа
' maxNtimer% - макс.кількість запусків таймера
' nTimerErr% - кількість запусків таймера
' otvet% - код ответа (например, от MsgBox)
' registrSimv% - регистр символов
' =0 все смешанное
' =1 цифры
' =англБол английские большие
' =англМал английские малые
' =рус русские большие
' =рус русские малые
' =укр украинские большие
' =укр украинские малые
' =70 цифро-английские большие
' =80 цифро-английские малые
' rezim% - режим системи
' = 0 - основний
' rezimErr% - режим попереджень системи
' =0 старт системи
' =666 закінчити програму через windows-хрест
' simvBol$ - символ большой
' simvMal$ - символ малый
' slovo$, slovo0$, tmp$ - тимчасові
' slovoAzbuka$ - слово для передачи на запрет азбуки
' sysDate$ - системна дата
' sysTime$ - системний час
' tekstXOkna% - поправка кількості пробелу для заголовку вікна
' timerSek# - кількість відличеннх секунд секунд
' timerSek0# - стартова кількість секунд
' tipKniga% - =1 книга для открытия последовательного доступа
' =2 книга для чтениня последовательного доступа
' =3 книга для открытия произвольного доступа
' =4 книга для открытия бинарного доступа
' tipRabotaKniga% - =1 работа с дисками
' =2 работа с каталогами
' =3 работа с файлами (книгами)
' tmp$ - тимчасові
' xOkno% - ширина вікна
' vizovKniga - работа с файловой системой компа (FSO)
 
' D0 F6 I2 S8

Также даю маленькую форму как пример вызывать вышеуказанный модуль:

и ее код:

Visual Basic
1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Command1_Click()
  slovoAzbuka$ = Text1
  azbuka$ = "f"
  ZapretAzbuka azbuka$, slovoAzbuka$
  If slovoAzbuka$ = "" Then Text1 = slovoAzbuka$: Text1.SetFocus: Exit Sub
  Text2.SetFocus
End Sub

ИНСТРУКЦИЯ ПО ВЫЗОВУ МОДУЛЯ:

1. Занести значение в TextBox1 в необходимой раскладке - цифры или русские буквы, или английские
то есть так как надо.
2. При нажатии Command1 (строка 3) присваиваем значение Text1 переменной slovoAzbuka$ (строка 4).
3. Переменной azbuka$ присваиваем значение "1" (строка 5)- обрабатывать только числа ( в примере указано значение "f"-обрабатывать только английские буквы). Расшифровку всех значений можно посмотреть в обозначениях модуля.
4. Вызывать модуль командой ZapretAzbuka azbuka$, slovoAzbuka$ , где ZapretAzbuka - название модуля; azbuka$, slovoAzbuka$ - переменные для модуля.
5. Проверяем полученное значение (строка 7): если slovoAzbuka$ - пустое значение, то его присвоить полю Text1 (Text1 станет = ""), передать фокус обратно этому же полю Text1, и выйти из режима нажатия Command1
6. Если же slovoAzbuka$ имеет то же самое значение, что было введено, то оно набрано в правильной раскладке, и тогда мы
продолжаем работу, передав фокус полю Text2.

Модуль работает несколько лет, проблем не должно быть.

Если его будете использовать, то в своем проекте просто его дозагрузите как модуль. И в самом начале этого модуля
добавте 4 строки объявления глобальных переменных

Public azbuka$, slovoAzbuka$

Public slovo$, slovo0$, tmp$
Public dlina%
Public n As Integer, s As Integer

Вроде всё.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера 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. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	16.05.2020, 00:01 [ТС]
	подскажите где посмотреть пример хоть какой нить 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	16.05.2020, 11:30
	хм... что-то получается... Добавлено через 9 минут короче, sawa, будет вам массив вычислений... Но только это немножко по другому называется.... И Ближе к вечеру , не сейчас. Домашние дела.... А сейчас потренируйтесь над переименованием объектов с именами по умолчанию на свои имена и постановкой задач. Где-то раньше уже говорилось, что это облегчит через день вспоминать смысл переменных. Добавлено через 6 минут Argus19, sawa имеет в виду не массив переменных, а массив повторяющих вычислений - то есть кучу одинаковых вычислений, которые можно объединить в виде отдельной подпрограммы (отдельного модуля). 1

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	16.05.2020, 22:07
	1

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	16.05.2020, 22:29 [ТС]
	мне надо время, спасибо за проделанную работу 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	16.05.2020, 22:52
	ага, конечно )))))))))) Добавлено через 3 минуты надо было прямо здесь написать все комментарии в коде напрямую по русски...не получается с кодировкой....может-кто-то подскажет по шагам??? Добавлено через 17 минут sawa, на форме создается только одно окно LABEL и одно окно TEXT и видимость их сделать Visible = FALSE Все остальные окна делаются во время самой работы программы по запросу из меню программы больше ничего. Меню проги делается через конструктор меню Рабочий файл нужен?? (*.ехе) 0