Бесплатный компилятор QuickBasic 4.5
3 ответа

QBasic: как запустить программу из другой программы?

Я сделал две разные программы в QBasic, и они обе сохранены в разных файлах.bas, то есть одна - 1.bas, а другая - 2.bas. Как открыть программу 1.bas, пока я нахожусь в программе 2.bas, не закрывая ее? Программа 1 должна некоторое время запускаться в…
21 июн '16 в 12:21
1 ответ

Сохранение значений в текстовом документе с использованием QB64

В моей текстовой приключенческой игре с использованием QB64, в попытке сохранить имя игрока, которого они ввели, возраст, в котором они были указаны, и пол, который они выбрали. ошибок не возникает, но когда я проверяю текстовый документ, все, что о…
17 янв '19 в 19:33
0 ответов

Он продолжает перезагружать этот экран, как мне его остановить?

Всякий раз, когда я прихожу к этому экрану, когда я тестирую свою игру, он просто постоянно повторяет текст. что-то не так с этим, потому что я не могу понять это smith_dialog: CLS PRINT "you walk up to Smith and greet him" PRINT "1: chat weapons" P…
05 фев '19 в 20:06
0 ответов

Не могу прочитать Com порт с QB64

Я использую Arduino в качестве раба, просто чтобы прочитать напряжение батареи. Программа на Arduino - C. Компьютерная программа написана на QB64. Она подключена к USB-порту #3. Программа Slave и QB64 отлично работают для того, чтобы сделать Pin 13 …
12 дек '17 в 23:23
6 ответов

QBasic/QB64: Как очистить ЕСЛИ ЕСЛИ "Лестницу"?

Не уверен, что я использую правильные термины здесь, но по какой-то причине QBasic не понимает что-то вроде "x = y = z". Это ограничено двумя. Чтобы это исправить, я сделал это: IF sum(1) = sum(2) THEN IF sum(2) = sum(3) THEN IF sum(3) = sum2(1) THE…
29 мар '18 в 06:09
1 ответ

Как перехватить Control-Alt-Delete в QB64

Я использую следующий код в QB64 для перехвата Control-Break: ON TIMER(1) GOSUB breaktrap TIMER ON x = _EXIT ' disable break DO _LIMIT 50 x$ = INKEY$ LOOP breaktrap: v = _EXIT IF v THEN PRINT "*break*" SLEEP 5 SYSTEM END IF RETURN Я хотел бы знать, …
03 окт '16 в 19:15
0 ответов

Циклическая оптимизация в QB64

Иметь цикл в QB64 относительно оптимизации цикла: DIM N AS DOUBLE, X(100000000) AS DOUBLE T! = TIMER FOR N = 1 to 100000000 IF X(N) THEN PRINT X(N) EXIT FOR END IF NEXT PRINT TIMER - T! это быстрее чем: DIM N AS DOUBLE, X(100000000) AS DOUBLE T! = T…
18 сен '18 в 05:00
1 ответ

WideCharToMultiByte в QB64

У меня проблемы с преобразованием из ANSI в Unicode и обратно. Следующий фрагмент кода описывает, что я делаю. Я получаю ошибки 0x57.. DECLARE DYNAMIC LIBRARY "kernel32" FUNCTION MultiByteToWideChar& (codePage~&, dwFlags~&, lpszMbstring$…
06 сен '17 в 02:31
0 ответов

Определить ОБМЕН в QB64

В настоящее время я использую следующий код для обнаружения доли в qb64: Есть ли более простой способ определить долю? REM detect share in qb64: InregsX.AX = &H1000 CALL INTERRUPTX(&H2F, InregsX, OutregsX) IF (OutregsX.AX AND &HFF) = &am…
19 авг '18 в 06:24
2 ответа

Скомпилировать, собрать и выполнить код Qb64 в Geany?

Добрый вечер, Я установил Geany 1.24 на свой компьютер, а также установил QB64 (я не помню, какая версия и официальный сайт недоступны). ОС: Windows XP. В Geany, когда я пишу программу на Basic, она не компилируется (за исключением возврата успешно …
03 июн '14 в 02:16
1 ответ

Я пытаюсь создать систему выравнивания в QB64 Txt Based Adventure

То, что я хочу, случается всякий раз, когда expertotal% равно levelup%, Я хочу добавить 1 в level%, я пробовал level% + 1, но я получаю синтаксическую ошибку. Тогда всякий раз level% идет вверх, я хочу, чтобы умножить levelup% а также experience% ум…
15 янв '19 в 19:59
2 ответа

Ошибка двигателя Raycaster с чтением и определением

Когда программа запускается, она возвращается OUT OF DATA в read nw DIM vx1(15), vx2(20), vy1(20), vy2(20) DIM tx1(20), tz1(20), tx2(20), tz2(20), wc(20) AS INTEGER DIM w AS INTEGER DIM nw AS INTEGER READ nw FOR w = 1 TO nw: READ vx1(w), vy1(w), vx2…
01 мар '19 в 05:34
3 ответа

8250 UART требует соответствия модема

Я изучаю модем ввода-вывода и устанавливаю UART через com1: и базовый адрес x03f8, и мне интересно, должно ли соединение UART с модемом быть равным? Я делаю это в QB64.
09 апр '18 в 06:58
2 ответа

Могут ли пользовательские функции qbasic возвращать строку?

FUNCTION QUAD_NAME (X, Y, Z AS INTEGER) QUAD_NAME = string_var возвращает "недопустимое преобразование числа строки" Я проверил справку в IDE по команде функций (в настоящее время использую QB64, но их вики не работает), но нет информации о том, мож…
22 июл '18 в 02:38
3 ответа

Как получить каталоги дисков по умолчанию в QB64

Я использовал следующий код для получения каталогов по умолчанию для всех дисков, однако я не хочу использовать _CWD$ Есть ли более эффективный способ сделать это? REM get default directory of drives. ON ERROR GOTO ErrSub FOR D = 1 TO 26 D$ = CHR$(D…
06 сен '16 в 01:04
1 ответ

Как зашифровать файл в QB64

Я пытаюсь зашифровать файл с помощью этой программы в QB64. На самом деле он не шифрует файл и всегда возвращается успешно. Зачем? DECLARE LIBRARY FUNCTION EncryptFile (f$) FUNCTION DecryptFile (f$, BYVAL f&) END DECLARE PRINT "Enter filename"; …
28 авг '16 в 05:09
4 ответа

Тип прохода QBasic в качестве аргумента функции

Вернулся к старому доброму qbasic по ностальгическим причинам и никогда раньше не использовал типы и функции в qbasic, так как в то время я был очень молод. TYPE Vector2 x AS SINGLE y AS SINGLE END TYPE FUNCTION Vector2Mag (a AS Vector2) Vector2Mag …
05 фев '16 в 20:49
1 ответ

Тройные кавычки требуются в командной строке в QB64

Есть программа, которая анализирует командную строку в QB64. Функция COMMAND$ возвращает командную строку. Мне нужно проанализировать длинное имя файла, которое может содержать пробел, анализируя его из кавычек, чтобы отличаться от имени файла без п…
15 ноя '17 в 05:39
0 ответов

Как установить цвет заголовка в QB64

У меня есть этот код в QB64, и мне было интересно, как установить цвет заголовка. SCREEN 12 DO: LOOP UNTIL _SCREENEXISTS COLOR 13, 1 ' magenta on blue _TITLE "My Title" END Я попробовал это безрезультатно: SCREEN 12 DO: LOOP UNTIL _SCREENEXISTS OUT …
26 фев '19 в 05:01
1 ответ

Как мне сделать этот расчет в qb64 (1 / (2.718282 ^ 110)) + 1, чтобы получить правильный ответ?

Как мне сделать этот расчет в qb64 (1 / (2.718282 ^ 110)) + 1, чтобы получить правильный ответ? Потому что он говорит мне, что ответ 1.
28 мар '18 в 21:50