QBasic - Формы (Окна)! Меню!

@ynxarmed · Регистрация: 21.08.2010

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

Как на QBasic можно сделать Формы (Окна), которые уже есть в версии бейсика под DOS: Visual Basic for DOS? И как в QBasic сделать Меню?

@Quiet Snow · 28.08.2010, 16:22

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

Visual Basic for DOS

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

И как в QBasic сделать Меню?

Текстовое оч. просто операторами PRINT,LOCATE,COLOR, графическое через ABSOLUTE )))))

Евгений М. · 28.08.2010, 16:26

Не по теме:

Сообщение от >Quiet Snow<

=-O

Да, есть такое.

@Quiet Snow · 28.08.2010, 16:38

Сообщение от Евгений М.

Да, есть такое.

Жуть))), ищ мелкомягкие чё придумали))))

ynxarmed, обзаведись таблицей ASCII, для текстовых окошек...

@ynxarmed · 28.08.2010, 16:46 **[ТС]**

Евгений М., Ну да, правильную фотку прислал про Visual Basic for DOS, но мы всё это хотим сделать на QBasic и плюс меню!

Добавлено через 1 минуту
>Quiet Snow<, А как выглядит текстовое меню и как графическое?

Добавлено через 3 минуты
>Quiet Snow<, Ну а что вы не видели такой Visual Basic под DOS? Эта была переходная версия бейсика от Quick Basic к Visual Basic под Windows!

Добавлено через 1 минуту
>Quiet Snow<, Ну эта таблица по моему в хелпе для qbasic есть, да? И как ей пользоваться?

@PB · 28.08.2010, 16:49

Я вот ну не могу понять, зачем это делать на QB.
Из интереса, или нужно написать оконную прогу под DOS?

@ynxarmed · 28.08.2010, 16:54 **[ТС]**

PB, Из интереса!

@Quiet Snow · 28.08.2010, 16:58

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

Я вот ну не могу понять, зачем это делать на QB.

"Мазахизмус обыкновеннус"...

@ynxarmed · 28.08.2010, 17:08 **[ТС]**

>Quiet Snow<, Ага!

@Quiet Snow · 28.08.2010, 20:22

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

Ну эта таблица по моему в хелпе для qbasic есть, да? И как ей пользоваться?

В Helpe есть, пользоваться легко: смотрите номер ASCII кода допустим 254(это квадратик) и пишете так:

PureBasic
1
PRINT CHR$(254)

чтобы поставить много символов делаем так:

PureBasic
1
PRINT STRING$(10,CHR$(254))

Там есть специальные символы для окошек(176-223).
Оператор Screen способен устанавливать видимые и активные страницы, научитесь пользоваться ими и создать меню будет дело 2-х минут.

@ynxarmed · 28.08.2010, 20:26 **[ТС]**

>Quiet Snow<, Да, это уже интересно, надо только больше опыта набраться!

@ynxarmed · 28.08.2010, 20:46 **[ТС]**

>Quiet Snow<, Мне нужно сделать рамку! Как сделать, чтобы эти квадратики сливались между собой? (Чтобы между ними не было промежутков!) Вот такую рамку надо, как на картинке, которую я приложил! И такой точно цвет нужен зелёный, как на картинке, какой нужен код для этого зелёного цвета экрана?

@ynxarmed · 28.08.2010, 20:55 **[ТС]**

>Quiet Snow<, Пока только такой результат!

@Quiet Snow · 28.08.2010, 22:35

Вам нужно обрисовать "символами" следующие части:

Левый верхний угол : 218
Верхняя и нижняя часть рамки: 196
Правый верхний угол: 191
Левая и правая часть рамки: 179
Левый нижний угол: 192
Правый нижний угол: 217

Цвет выбирается опцией COLOR. Для вас подходит

PureBasic
1
COLOR 3,0

Вот ваш код:

PureBasic
1
2
3
4
5
6
   COLOR 0, 3
  PRINT CHR$(218) + STRING$(78, CHR$(196)) + CHR$(191)
   FOR i = 1 TO 21
     PRINT CHR$(179) + STRING$(78, CHR$(32)) + CHR$(179)
   NEXT
  PRINT CHR$(192) + STRING$(78, CHR$(196)) + CHR$(217)

@ynxarmed · 29.08.2010, 10:00 **[ТС]**

>Quiet Snow<, Довольно тонкая рамка, не такая как у кода 254!

@ynxarmed · 29.08.2010, 10:08 **[ТС]**

>Quiet Snow<, Поставил везде 254, получилась вот такая штука:

PureBasic
1
2
3
4
5
6
   COLOR 0, 3
  PRINT CHR$(254) + STRING$(78, CHR$(254)) + CHR$(254)
   FOR i = 1 TO 21
     PRINT CHR$(254) + STRING$(78, CHR$(254)) + CHR$(254)
   NEXT
  PRINT CHR$(254) + STRING$(78, CHR$(254)) + CHR$(254)

@ynxarmed · 29.08.2010, 10:10 **[ТС]**

>Quiet Snow<, Хотелось бы, чтобы эта рамка была бы в толшину этого прямоугольничка 254! Но без промежутков! А с теми кодами получается слишком тонкая рамка!

@ynxarmed · 29.08.2010, 10:19 **[ТС]**

>Quiet Snow<, Вот такая получается, как на рисунке 1, а надо такую, которая на рисунке 2!

@Quiet Snow · 29.08.2010, 14:28

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

Добавлено через 2 минуты
Программист должен уметь писать такие простые вещи, учитесь, за вас в жизни НИКТО, НИЧЕГО делать не будет.

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

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

>Quiet Snow<, Поставил везде 254

Методом тыка действовать не советую, не поможет 100%. Разберитесь основательно в коде и уверяю сами сделаете нормальную рамку.

@ynxarmed · 29.08.2010, 16:05 **[ТС]**

>Quiet Snow<, Да я просто с QBasic уже не работал много лет, в голове каша!

Добавлено через 7 минут
>Quiet Snow<, Да писал и такие простые вещи и намного сложнее, просто это было очень давно, я же любитель, забыл уже всё!

Добавлено через 2 минуты
>Quiet Snow<, А на форуме я новичок, вот мне рейтинг и испортили до -17!

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Ниже машинный перевод статьи The Thinkpad X220 Tablet is the best budget school laptop period . Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы,. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230

	QBasic - Формы (Окна)! Меню! 28.08.2010, 15:47. Показов 4373. Ответов 22 Метки нет (Все метки) Как на QBasic можно сделать Формы (Окна), которые уже есть в версии бейсика под DOS: Visual Basic for DOS? И как в QBasic сделать Меню? 0

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230
	28.08.2010, 16:46 [ТС]
	Евгений М., Ну да, правильную фотку прислал про Visual Basic for DOS, но мы всё это хотим сделать на QBasic и плюс меню! Добавлено через 1 минуту >Quiet Snow<, А как выглядит текстовое меню и как графическое? Добавлено через 3 минуты >Quiet Snow<, Ну а что вы не видели такой Visual Basic под DOS? Эта была переходная версия бейсика от Quick Basic к Visual Basic под Windows! Добавлено через 1 минуту >Quiet Snow<, Ну эта таблица по моему в хелпе для qbasic есть, да? И как ей пользоваться? 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	28.08.2010, 16:49
	Я вот ну не могу понять, зачем это делать на QB. Из интереса, или нужно написать оконную прогу под DOS? 0

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230
	28.08.2010, 16:54 [ТС]
	PB, Из интереса! 0

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230
	28.08.2010, 17:08 [ТС]
	>Quiet Snow<, Ага! 0

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230
	28.08.2010, 20:26 [ТС]
	>Quiet Snow<, Да, это уже интересно, надо только больше опыта набраться! 0

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230
	28.08.2010, 20:46 [ТС]
	>Quiet Snow<, Мне нужно сделать рамку! Как сделать, чтобы эти квадратики сливались между собой? (Чтобы между ними не было промежутков!) Вот такую рамку надо, как на картинке, которую я приложил! И такой точно цвет нужен зелёный, как на картинке, какой нужен код для этого зелёного цвета экрана? Миниатюры 0

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230
	28.08.2010, 20:55 [ТС]
	>Quiet Snow<, Пока только такой результат! Миниатюры 0

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230
	29.08.2010, 10:00 [ТС]
	>Quiet Snow<, Довольно тонкая рамка, не такая как у кода 254! 0

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230
	29.08.2010, 10:10 [ТС]
	>Quiet Snow<, Хотелось бы, чтобы эта рамка была бы в толшину этого прямоугольничка 254! Но без промежутков! А с теми кодами получается слишком тонкая рамка! 0

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230
	29.08.2010, 10:19 [ТС]
	>Quiet Snow<, Вот такая получается, как на рисунке 1, а надо такую, которая на рисунке 2! Миниатюры 0

@ynxarmed 17 / 3 / 0 Регистрация: 21.08.2010 Сообщений: 230
	29.08.2010, 16:05 [ТС]
	>Quiet Snow<, Да я просто с QBasic уже не работал много лет, в голове каша! Добавлено через 7 минут >Quiet Snow<, Да писал и такие простые вещи и намного сложнее, просто это было очень давно, я же любитель, забыл уже всё! Добавлено через 2 минуты >Quiet Snow<, А на форуме я новичок, вот мне рейтинг и испортили до -17! 0