Закрытие окна

@BoxHead · Регистрация: 25.04.2016

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

Здравствуйте! Возникла проблема, сделав только числовой ввод, теперь не получается закрыть окно, до тех пор пока не заполню верно все переменные. Как реализовать закрытие без окончания ввода переменных?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command1_Click()
Dim mmi As Double
Dim t As Double
Dim mgmi As Double
    On Error Resume Next
Do
          mmi = InputBox("Введите число")
          If Err Then MsgBox "Неверный ввод": Err.Clear Else Exit Do
Loop
Do
          
          t = InputBox("Введите число")
          If Err Then MsgBox "Неверный ввод": Err.Clear Else Exit Do
Loop
On Error GoTo 0
                           
          mgmi = 3.6 * mmi * t * 10 ^ -3
         MsgBox "Ответ " & mgmi & " т/г"
End Sub

@vedunasv · 21.09.2020, 12:45

строку 13 MsgBox "Необходимо ввести значение....", , "Автор проекта: BoxHead " замените на команду END.

Chr$(13) - это совершенно отдельная команда = коду клавиши ENTER = код ASCIA и аналогична константе VB = VbCrLf.
13 - это номер кнопы ENTER

Любая кнопа на клаве имеет свой индивидуальный номер (код).

константа VbCrLf - это сумма значений "конец строки + перевод строки"
Chr$(13) - всё вместе.

иногда удобно применять Chr$(13), и иногда VbCrLf.

Вы можете смело убрать Chr$(13) и Space$(30) - это не повлияет на ответ. просто сам ответ будет выведен тогда на одной строчке.

@BoxHead · 21.09.2020, 12:58 **[ТС]**

Спасибо большое за помощь и разъяснение!

@vedunasv · 21.09.2020, 13:05

счас делаю второй вариант. Примерно через 15 минут будет готово.

@Pro_grammer · 21.09.2020, 18:09

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

Chr$(13) - это совершенно отдельная команда = коду клавиши ENTER = код ASCIA и аналогична константе VB = VbCrLf.

Это не совсем так.
Константе VbCrLf будет соответствовать конкатенация Chr$(13) & Chr$(10).
Тогда как Chr$(13) будет равно константе vbCr

@vedunasv · 21.09.2020, 20:21

BoxHead, интернет пропал ((((, не готово.

Добавлено через 1 минуту
Pro_grammer, да, моя неточность... надо было написать ПОХОЖА, а не "аналогична".
Вот почему я люблю CHR$(13) - узнал про неё с детства ))))), а константы VB - позже.

@Argus19 · 21.09.2020, 21:15

Как-то так:

@Argus19 · 21.09.2020, 21:46

Более "продвинутая" версия:

@vedunasv · 22.09.2020, 16:49

Argus19, Вы, как всегда, молодец.
И с заменой "точка-запятая" тоже вовремя.

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

@Argus19 · 22.09.2020, 18:10

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

что показали свой вариант

Это "старинная" разработка с заменами.
Кроме того попробовал для той же программы, вместо функции Val использовать CDbl и CSng. Теперь наглядно убедился, что эти функции, при вводе символа или использования вместо разделителя запятой, вызывают ошибку. Что не допустимо для скомпилированой программы.

Не по теме:

У нас в городе ненадолго пропадало электричество, но интернет не рухнул.

@vedunasv · 23.09.2020, 12:10

Argus19, знач, Ваш оператор обеспечил себя аварийным светом ))))
У нас просто вырезали кусок - думали провод, хотя в основном уже оптоволокно. Но ремонт быстро сделали...

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

Это "старинная" разработка с заменами.

Зато в большинстве совместима с любым обновлением языка, так как без всяких заморочек

(не команды CDbl и CSng - они тоже старые, а именно "старинная" - так как именно в этот период логика программирования у нас интуитивная (не знаем многих команд) и поэтому качество выходило на высшем уровне.

а счас у нас "горе от ума" - как писал высочайший классик...

Ой, что-то накрученное получилось ....

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	21.09.2020, 12:45
	строку 13 MsgBox "Необходимо ввести значение....", , "Автор проекта: BoxHead " замените на команду END. Chr$(13) - это совершенно отдельная команда = коду клавиши ENTER = код ASCIA и аналогична константе VB = VbCrLf. 13 - это номер кнопы ENTER Любая кнопа на клаве имеет свой индивидуальный номер (код). константа VbCrLf - это сумма значений "конец строки + перевод строки" Chr$(13) - всё вместе. иногда удобно применять Chr$(13), и иногда VbCrLf. Вы можете смело убрать Chr$(13) и Space$(30) - это не повлияет на ответ. просто сам ответ будет выведен тогда на одной строчке. 1

@BoxHead 0 / 0 / 0 Регистрация: 25.04.2016 Сообщений: 92
	21.09.2020, 12:58 [ТС]
	Спасибо большое за помощь и разъяснение! 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	21.09.2020, 13:05
	счас делаю второй вариант. Примерно через 15 минут будет готово. 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	21.09.2020, 20:21
	BoxHead, интернет пропал ((((, не готово. Добавлено через 1 минуту Pro_grammer, да, моя неточность... надо было написать ПОХОЖА, а не "аналогична". Вот почему я люблю CHR$(13) - узнал про неё с детства ))))), а константы VB - позже. 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	22.09.2020, 16:49
	Argus19, Вы, как всегда, молодец. И с заменой "точка-запятая" тоже вовремя. Добавлено через 8 минут Благодарю, что показали свой вариант, а то у меня руки еще не дошли после обрыва интернета. 0