Не работает анимация и цикл в Qbasic

@Grendal678 · Регистрация: 25.07.2019

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

Здравствуйте. Я запускаю Qbasic на windows 7(x64) через DosBox 0.74-3. Проблема в том,что иногда программа доходит до конца без проблем, а иногда доходит и выводит сообщение " Illegal function call". В чём дело? Вроде всё правильно написано. Более того этот пример рекомендован во многих учебниках по Qbasic как пример для анимации.

QBasic/QuickBASIC

CLS
SCREEN 12
DIM a%(300)
LINE(10,10)-(19,19),a%,4,bf
GET(10,10)-(19,19),a%
CLS
FOR z=10 TO 620 STEP 10
PUT(z,50),a%,XOR
SLEEP 1
PUT(z,50),a%,XOR
NEXT z
END

@Quiet Snow · 31.07.2019, 19:14

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

Illegal function call

Вот это может быть выведено только в одном случае, если границы PUT-а выходят
за границы экрана. Судя по вашей невнимательности в 4-й строке - проблема в вас,
а точнее в том, как вы перепечатываете программы. Прога абсолютно рабочая.

И тем не менее если в учебнике рекомендуют выделять 300 слов вместо 42-х,
то этот учебник писали дёшево, сердито и без соотв. знаний.

Напомню что объём информации в словах под 4 битовые слоёные режимы экрана считается
как:
Mem = ((((ResX - 1) \ 8) + 1) * 2) * RezY + 2

Связано это с тем, что графика загоняется в 4 битовых слоя, а т.к. всё сгруппировано по байтам,
то мы имеем минимальный размер слоя по горизонтали в 8 пикселей. Добавочные два слова -
это хедер (при резервировании от единицы, размеры спрайтов тоже от единицы).

@Quiet Snow 5001 / 1673 / 409 Регистрация: 25.04.2010 Сообщений: 4,624 Записей в блоге: 2
	31.07.2019, 19:14	2
	Сообщение от Grendal678 Illegal function call Вот это может быть выведено только в одном случае, если границы PUT-а выходят за границы экрана. Судя по вашей невнимательности в 4-й строке - проблема в вас, а точнее в том, как вы перепечатываете программы. Прога абсолютно рабочая. И тем не менее если в учебнике рекомендуют выделять 300 слов вместо 42-х, то этот учебник писали дёшево, сердито и без соотв. знаний. Напомню что объём информации в словах под 4 битовые слоёные режимы экрана считается как: Mem = ((((ResX - 1) \ 8) + 1) * 2) * RezY + 2 Связано это с тем, что графика загоняется в 4 битовых слоя, а т.к. всё сгруппировано по байтам, то мы имеем минимальный размер слоя по горизонтали в 8 пикселей. Добавочные два слова - это хедер (при резервировании от единицы, размеры спрайтов тоже от единицы). 0