Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Сообщество Поиск  
 
 
Рейтинг 4.54/501: Рейтинг темы: голосов - 501, средняя оценка - 4.54
4973 / 1645 / 409
Регистрация: 25.04.2010
Сообщений: 4,539
Записей в блоге: 1
1

Графика на бейсике

16.08.2010, 02:10. Показов 95993. Ответов 166
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте уважаемые участники форума и администрация!

Уже давно заметил, что "скудновато" в данном разделе по прикреплённым темам, есть предложение закрепить топик, освещая следующие вопросы:

1) Обсуждаем графические приложения, написанные на бейсике(любые MS-DOS компиляторы)
2) Выкладываем разные "поучительные" примеры

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

Что подразумевается под графическими приложениями:
- В первую очередь программы работающие в графическом режиме, с упором на вывод графики.
- Разные рисунки, анимация, эффекты, воспроизводящиеся непосредственно в программе.
- Мультимедиа приложения и игры.
- Обычные программы использующие средства для вывода графики.

Также можно обсуждать и выкладывать какие-либо вспомогательные программы(будь то конвертер или редактор), идеологические аспекты, т.е. допустим один человек предлагает идею - другой реализовывает.

Вообщем если найдутся энтузиасты поддержать топик, буду очень рад. Хочется чтобы в разделе было больше посетителей и чтоб форум не "сдох".
10
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.08.2010, 02:10
Ответы с готовыми решениями:

Функция на бейсике
помогите пожалуйста сделать задание) составить функцию на Бейсике для вычисления заданной...

Программы на Паскале И Бейсике
Помогите решить: 5.Составить программу, с помощью которой получить цвет¬ной рисунок «Робот». А...

Текстовые игры на бейсике
Подскажите, можно ли сделать что-то похожее на тиду или мир теней (или еще что-то от playtox)в...

решение задач на бейсике
прошу, помогите с решением номера 98 и 99

166
70 / 65 / 5
Регистрация: 27.04.2022
Сообщений: 193
05.09.2022, 18:01 141
Студворк — интернет-сервис помощи студентам
Немного сельского пейзажа:

QBasic/QuickBASIC
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
SCREEN 7
LINE (30, 160)-(120, 70), 14, B
LINE (20, 80)-(75, 25), 12
LINE (75, 25)-(130, 80), 12
LINE (31, 69)-(119, 69), 12
PAINT (40, 150), 14
PAINT (65, 55), 12, 12
LINE (180, 101)-(190, 123), 6, B
PAINT (183, 110), 6
LINE (40, 150)-(70, 110), 0, B
PSET (170, 100), 2
DRAW " U13 L10 U13 L10 U13 R10 U13 R10 U13 R10 U5 R10 D5 R10 D13 R10 D13 R10 D13 L10 D13 L10 D13 L30 "
FOR T = 1 TO 10000
NEXT T
PSET (170, 100), 0
DRAW "BN L10 U13 L10 U13 L10 U13 R10 U13 R10 U13 R10 U5 R10 D5 R10 D13 R10 D13 R10 D13 L10 D13 L10 D13 L30 "
FOR T = 1 TO 10000
NEXT T
PSET (170, 100), 2
DRAW " U5 L10 U10 L10 U10 L10 U10 L10 U10 L10 U10 L10 U30 R30 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 L10 D5 L30 "
FOR T = 1 TO 10000
NEXT T
PSET (170, 100), 0
DRAW "B  U5 L10 U10 L10 U10 L10 U10 L10 U10 L10 U10 L10 U30 R30 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 L10 D5 L30 "
FOR T = 1 TO 10000
NEXT T
PSET (170, 100), 2
DRAW " U13 L10 U13 L10 U13 R10 U13 R10 U13 R10 U5 R10 D5 R10 D13 R10 D13 R10 D13 L10 D13 L10 D13 L30 "
FOR T = 1 TO 10000
NEXT T
PSET (170, 100), 0
DRAW "BN L10 U13 L10 U13 L10 U13 R10 U13 R10 U13 R10 U5 R10 D5 R10 D13 R10 D13 R10 D13 L10 D13 L10 D13 L30 "
FOR T = 1 TO 10000
NEXT T
PSET (170, 100), 2
DRAW " U5 L10 U10 L10 U10 L10 U10 L10 U10 L10 U10 L10 U30 R30 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 L10 D5 L30 "
FOR T = 1 TO 10000
NEXT T
PSET (170, 100), 0
DRAW "B  U5 L10 U10 L10 U10 L10 U10 L10 U10 L10 U10 L10 U30 R30 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 R10 D10 L10 D5 L30 "
FOR T = 1 TO 10000
NEXT T
PSET (170, 100), 2
DRAW " U13 L10 U13 L10 U13 R10 U13 R10 U13 R10 U5 R10 D5 R10 D13 R10 D13 R10 D13 L10 D13 L10 D13 L30 "
PAINT (180, 50), 2
Миниатюры
Графика на бейсике  
1
COM‐пропагандист
781 / 734 / 143
Регистрация: 18.12.2014
Сообщений: 2,085
Записей в блоге: 4
05.09.2022, 18:04 142
Приведите пример чего‐нибудь близкого к современности. Например, заставку из Windows 98 «Метаморфозы».
https://r4.mt.ru/u25/photo13C4... iginal.gif

Не всё же круглешки и квадратики в цикле для MSDOS рисовать.
2
70 / 65 / 5
Регистрация: 27.04.2022
Сообщений: 193
05.09.2022, 18:06 143
Замабувараев, как уже неоднократно упоминал Quiet Snow — я болван, а значит не должен выходить за рамки (не)способностей. =)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
SCREEN 7
PSET (190, 140), 4
DRAW "E30 U30 H10 L30 G20 H20 L30 G10 D30 F60 E30  "
PAINT (190, 100), 4
PSET (170, 130), 4
DRAW "E45 U45 H25 L45 G35 H35 L45 G25 D45 F105 E90  "
PSET (230, 145), 12
DRAW "E25 U25 H5 L25 G15 H15 L25 G5 D25 F45 E25  "
PAINT (225, 130), 12
PAINT (160, 20), 12, 4
LOCATE 10, 3
PRINT "CyberForum"
Миниатюры
Графика на бейсике  
0
70 / 65 / 5
Регистрация: 27.04.2022
Сообщений: 193
05.09.2022, 18:49 144
Анимация парусника, код не мой. Всё это добро найдено на институтских (теперь университетских) дискетах.
Миниатюры
Графика на бейсике   Графика на бейсике  
Вложения
Тип файла: 7z PARUS.7z (559 байт, 0 просмотров)
1
70 / 65 / 5
Регистрация: 27.04.2022
Сообщений: 193
05.09.2022, 18:57 145
Анимация рыбы, код не мой. Всё это добро найдено на институтских (теперь университетских) дискетах.
Миниатюры
Графика на бейсике   Графика на бейсике  
Вложения
Тип файла: 7z FISH.7z (619 байт, 2 просмотров)
1
4973 / 1645 / 409
Регистрация: 25.04.2010
Сообщений: 4,539
Записей в блоге: 1
05.09.2022, 20:10  [ТС] 146
Цитата Сообщение от yevrowl Посмотреть сообщение
Замабувараев, как уже неоднократно упоминал Quiet Snow — я болван
Не впутывай Замабувараева в мою характеристику, выданную тебе по вполне понятным поступкам,
которые болван продолжает делать, не взирая на то, что в тему зашёл как минимум профи, увидев
моё сообщение. Человек лишь тебя опросил, нет ли чего весомее чужих линий и точечек. И по последним постам
получил предполагаемый ответ.

Цитата Сообщение от yevrowl Посмотреть сообщение
Т. е. обосновать про "ворьё", "вскрылась правда матка" никак не сумел и прячешься обратно в нору? =)
Тут нечего обосновывать. Но раз уж так просишь:
1) Первым пунктом: авторство не указано.
2) Люди не меняются, во всяком случае кардинально.
3) Ни разу не видел чтобы Замабувараев, Pro_grammer, The trick, Stabud, locm, vodav, PAnT0P и другие ребята
публиковали чужие исходники со своего аккаунта на форуме.
4) Выложенный дет сад должен отбрасывать длинную и толстую тень на репутацию постящего, рьяно
разглагольствующего про
Цитата Сообщение от yevrowl Посмотреть сообщение
за давностью лет
. Человек, который постит чужой
детсад на 20 строк, не имеючи возможность написать даже свой, при этом ходил тут вилял хвостом с прогой(пусть
и бездарно написанной, но тем не менее на 6k строк, для этого тоже нужна определённая концентрация,
даже для такого страшного говнокода). Так что про нору не надо. Профику, который писал толстые проекты
видна вся эта подоплёка и ссать в глаза враньём людям бесполезно.
0
70 / 65 / 5
Регистрация: 27.04.2022
Сообщений: 193
05.09.2022, 21:48 147
Quiet Snow, ни кого не впутываю, это у тебя комплекс вахтёра и непонятного превосходства. Всё что я делаю, это публикую коды с дискет, которым 20+ лет и каким-то чудом прочитались. Авторства в упор никто не вспомнит, и где код не мой, пишу изначально. Из-за войны (нахожусь в Киеве) потерял работу, и решил прибраться в квартире. Где ты увидал воровство и враньё мне непонятно, зато очевидно стало, что ты зазнавшийся мудак.

Добавлено через 39 минут

P. S. Quiet Snow, благодарен за оказанную на форуме помощь, но можно и воздержаться от беспочвенных обвинений и оскорблений.
1
4973 / 1645 / 409
Регистрация: 25.04.2010
Сообщений: 4,539
Записей в блоге: 1
06.09.2022, 00:32  [ТС] 148
Цитата Сообщение от yevrowl Посмотреть сообщение
Всё что я делаю, это публикую коды с дискет, которым 20+ лет и каким-то чудом прочитались.
Пока всё что делаешь это безудержно постишь лютую ахинею в эту тему.

Цитата Сообщение от yevrowl Посмотреть сообщение
Где ты увидал воровство и враньё мне непонятно, зато очевидно стало, что ты зазнавшийся мудак.
Вижу дядя не понятливый и борзоватый. Хорошо, втолковываю пока бережно.
Уже давно просил людей не публиковать сюда ясельные примитивы(детские рисунки и прочую дрисню, сделанную
за 15 минут, людьми, в программировании вовсе не замеченными), а сколь-нибудь интересные\полезные вещи.
Почитав тему и оголовок, это можно было осознать и не тупить. Но каждый божий раз болваны вроде тебя
публикуют этот испанский долбаный стыд. Запостив несколько страниц отборного, бездарного, абсолютно
неинтересного и тотально бесполезного гавна, заталкивая тему в тотальное позорище эти люди удивляются
тому, что им пишут и моему тону. А теперь представь, пришли к тебе в дом непонятные люди и начали
радостно гадить, в прямом смысле этого слова, видать ты возрадуешься.
Ни один нормальный программист этого делать не станет, это делают либо бараны, либо люди без должного
уровня в программировании(обычно дети, но и взрослые бывают оболтусы), рьяно желающие, чтобы их детские
поделки заметили(подростковый максимализм),
по итогу конечно я оказываюсь мудаком, когда указыаю этим людям их реальное место с их порожняком.
С этим разобрались.

Теперь осталось понять кто ты по запощенному в этой теме. Один человек(который умеет программировать)
уже выводы сделал. И чтобы появилось понимание - не ты первый, не ты последний. Каждый непонятливый,
невнимательный и глуповатый отхватит по реальной человеческой репутации(не циферками).

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

Отрезюмирую для контраста, вот эту дрисню может написать семилетка:
PureBasic
1
2
3
4
SCREEN 13
FOR i = 1 TO 80
    CIRCLE (i + 10 * LOG(i), i + 10 * LOG(i)), i, i
NEXT
Вот такое пишут сотни кодеров, за пару вечеров, а возрастная планка начинается с 14-15(чем юнее, тем
больше времени на реализацию и больше косяков).
https://www.cyberforum.ru/post12043436.html
https://www.cyberforum.ru/post4368375.html
Технологически просто, трудозатраты - минимальные.

Вот это пишут десятки, возрастная планка выше:
https://www.cyberforum.ru/post3245901.html
Технологически просто, трудозатраты - уже более ощутимые.

Далее например:
https://www.cyberforum.ru/post3173152.html
Тупо полезно, для того чтобы рулить на минимализме. Тем не менее, работа проделана.

Далее пример:
https://www.cyberforum.ru/post1458592.html
Просто интересная прога, ну и использовать где-то можно, цель показать принцип.

Далее пример:
https://www.cyberforum.ru/post908158.html
Полезно в множественных задачах.

Далее:
https://www.cyberforum.ru/post908253.html
Просто показать принцип, что это не сложно и можно такие штуки реально за пол часа-час писать.
Интересно, полезно.

Далее:
https://www.cyberforum.ru/post910017.html
Пример устарел, просто показать что грузить графику с формата, как делать нефиг. А любой архиватор жмёт bmp-шки
довольно прилично.

И так почти каждый пример, нормальных людей, кто в теме.

Далее показал, что можно писать комбинируя с ассемблером.
https://www.cyberforum.ru/post923496.html
Вот такого тут нет вообще. И хотелось бы, чтобы хоть один человек за уже 12 лет выложил хоть что-то подобное,
желательно своё, своими руками сделанное. А так находил и публиковал 3D и демщиков отсматривал пачку, даже
у них проблемы на QB что-то такое делать по понятным причинам.

А теперь твои "примеры" давай посмотрим, чем они интересны и чем полезны.

https://www.cyberforum.ru/post16427930.html - бесполезная детсадовская дрись.
https://www.cyberforum.ru/post16427936.html - бесполезный ясельный понос.
https://www.cyberforum.ru/post16433738.html - бесполезное фуфло из садика.
https://www.cyberforum.ru/post16434179.html - бесполезная бредовая чушь ньюбиса
https://www.cyberforum.ru/post16434194.html - бесполезные ссаки неумёхи
https://www.cyberforum.ru/post16434205.html - --||--
https://www.cyberforum.ru/post16434223.html - --||--
https://www.cyberforum.ru/post16434235.html - --||--
https://www.cyberforum.ru/post16434935.html - --||--
https://www.cyberforum.ru/post16435052.html - --||--
https://www.cyberforum.ru/post16435061.html - --||--

Бесполезная в данном случае означает - нигде и никем не применимая в силу отсутствия здравого зерна разума.

А вот это апогей, к чему тема "скатилась":
https://www.cyberforum.ru/post16434885.html
Понятно что ты уже откровенно придуриваешься, в общем да, что не запрещено выходит разрешено, но и
не жди теперь нормального к себе отношения, парни твоё фуфло увидят. И ещё аргумент, чтобы допёр про
отсутствие ценности твоих(и не только) высеров, все эти детские каки типа домиков, человечков и много чего
другого, в т.ч. более округлых детализированных форм, рисуются на моём редакторе в считанные минуты.
Этот вопрос в данном разделе был закрыт уже давно:




Причём "болван", это ещё мягко выразился, в данном случае не оскорбление, а попытка вразумить, отрезвить.
Болваном можно перестать быть осознав банальные вещи. А можно стать к ряду и бараном, продолжая
постить описанный унылый стыд и позорнейшую(для тебя же) лажу. Баран продолжающий постить дрисню
назло, не взирая на характеристики впоследствии превращается в отпетого дебила.
С дебилов уже спроса нет, это последняя стадия отупорыливания, у сих нелюдей ответственности за деяния ноль.
Тем не менее уровень программистов в данном разделе очевидно упал уже настолько, что как-то облагораживать
раздел ни у кого желания не возникает. Много раз просил перенести из этой темы весь детский сад в отдельные темы.
Мне хорошо известно, что данный функционал у ребят есть. Реакции - ноль.
В принципе на контрасте разница ощутима, кому надо всегда найдёт правильные пути и места общения,
остальные же плавают в болоте и говне которое сами на себя поклали, в вонючем, бесполезном и неиссякаемом.

А могли бы быть людьми и делать всё по красоте и те и те. Бардак не побуждает к правильному действию,
бардак создаёт лишь ещё больший бардак.
1
Модератор
Эксперт функциональных языков программированияЭксперт Python
35759 / 20018 / 4186
Регистрация: 12.02.2012
Сообщений: 33,192
Записей в блоге: 13
06.09.2022, 15:10 149
Друзья! В словах уважаемого Quiet Snow, как бы сказал Шерлок Холмс - немало горькой правды. Но все же эти слова слишком резки. Я предлагаю компромисс: собрать всю достаточно простую мелочевку, описать и разместить один архив с описанием. Не исключено, что это будет полезно начинающим. Как вы на это смотрите?
1
4973 / 1645 / 409
Регистрация: 25.04.2010
Сообщений: 4,539
Записей в блоге: 1
06.09.2022, 18:27  [ТС] 150
Цитата Сообщение от Catstail Посмотреть сообщение
Но все же эти слова слишком резки.
Они резки для мягкотелых любителей линий, точечек, кружочков, остальные люди при программировании
этим не занимаются.
Следуя политике этого форума никогда не предлагал удалять любые работы, даже такие.
Ведь есть возможность переместить их в отдельные(-ую) темы(-у).
И останутся как раз нормальные работы.

Могу составить список всех сообщений, которые надо переместить из этой темы куда-нибудь восвояси.

Вот эти посты выделить в "неудачные примеры из графического треда и баттхёрт ТС по этому поводу"

Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
https://www.cyberforum.ru/post4842439.html
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике

Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике

Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике


Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике
Графика на бейсике

Далее с поста #96 по #110 выделить в "Оффтоп про обучение и отладчики"

Далее со #115 по #119 выделить в тред "Полупрозрачность на QB64".

Ну и дальше просто почистить тред от моих раздражённых речей, вот тогда будет порядок. Всё это делается за 15-20 минут за чашечкой горячего кофе.


В любых остальных случаях(предложенный компромисс) гораздо выгоднее сделать сборку с настроенным эмулятором и язык. средствами.
Существует прекрасный эмулятор PCem, заточенный под портативность, я могу это всё сделать, но сейчас у меня
нет времени этим заниматься, т.к. если делать то нормально, с конфигурированием config.sys\autoexec.bat
с подбором нормального файлового менеджера и кастрацией лишнего, так чтобы в сборке были все виды компиляторов:
QuickBasic с 2 - по 7.1, Turbo Basic, GW-Basic, FreeBasic и пара ассемблеров с отладчиком + примеры. Это потребует
реально много времени на сборку, плюс потестить. Проще почистить тред. А выжимками я или кто-то из коллег
займётся позже, если на то будет желание и свободное время.
2
Модератор
Эксперт функциональных языков программированияЭксперт Python
35759 / 20018 / 4186
Регистрация: 12.02.2012
Сообщений: 33,192
Записей в блоге: 13
07.09.2022, 08:34 151
Quiet Snow, спасибо, я все это осмотрю. И постараюсь собрать воедино.
3
67 / 17 / 0
Регистрация: 26.01.2018
Сообщений: 166
07.09.2022, 17:46 152
Графика на бейсике
0
67 / 17 / 0
Регистрация: 26.01.2018
Сообщений: 166
07.09.2022, 17:47 153
Графика на бейсике
0
67 / 17 / 0
Регистрация: 26.01.2018
Сообщений: 166
07.09.2022, 17:47 154
Графика на бейсике
0
Администратор
Эксперт .NET
16579 / 13018 / 5122
Регистрация: 17.03.2014
Сообщений: 26,571
Записей в блоге: 1
10.09.2022, 20:54 155
Цитата Сообщение от Catstail Посмотреть сообщение
Я предлагаю компромисс: собрать всю достаточно простую мелочевку, описать и разместить один архив с описанием. Не исключено, что это будет полезно начинающим. Как вы на это смотрите?
Хорошая мысль. Думаю что стоит пойти дальше и вынести простые примеры в отдельную тему. Эту переименовать в "Продвинутая графика на Бейсике" и добавить в первый пост более ясные критерии.
4
502 / 104 / 6
Регистрация: 21.01.2023
Сообщений: 153
23.01.2023, 19:12 156
А тетрис на Quick Basic подойдёт по тематике?
Код, конечно, ужасен, писал это в начале 90-х только вникая в Quick Basic после Atari Basic, форматирования нет, даже процедур ещё не использовал.
Но выглядит и функционирует неплохо, даже озвучено.
В архиве код и EXE. Пускать, естественно, через DosBox.
Миниатюры
Графика на бейсике  
Вложения
Тип файла: zip TETRIS.zip (37.4 Кб, 37 просмотров)
3
4973 / 1645 / 409
Регистрация: 25.04.2010
Сообщений: 4,539
Записей в блоге: 1
25.01.2023, 20:50  [ТС] 157
Цитата Сообщение от Mikle Quits Посмотреть сообщение
А тетрис на Quick Basic подойдёт по тематике?
Подойдёт. Однако уже было.
0
70 / 65 / 5
Регистрация: 27.04.2022
Сообщений: 193
26.01.2023, 04:12 158
Mikle Quits, отличный набор: тетрис и пентикс одном флаконе. Отзывчивое управление, качественные графика и озвучка, плавная анимация.
Миниатюры
Графика на бейсике   Графика на бейсике   Графика на бейсике  

Графика на бейсике   Графика на бейсике   Графика на бейсике  

Графика на бейсике   Графика на бейсике  
1
606 / 926 / 149
Регистрация: 10.08.2015
Сообщений: 4,880
26.01.2023, 09:05 159
перекомпиляйте в ФБ
0
70 / 65 / 5
Регистрация: 27.04.2022
Сообщений: 193
26.01.2023, 11:34 160
Цитата Сообщение от vlisp Посмотреть сообщение
перекомпиляйте в ФБ
Вот что выдаёт компилятор:
Код
fbc.exe -lang qb -O 2 tetris.bas 

tetris.bas(7) error 73: Array access, index expected, before '='
   FOR n = 1 TO 31: FOR x = 0 TO 15: FOR y = 0 TO 15
                          ^
tetris.bas(7) error 73: Array access, index expected, before '='
   FOR n = 1 TO 31: FOR x = 0 TO 15: FOR y = 0 TO 15
                                           ^
tetris.bas(8) error 73: Array access, index expected, before ','
   PSET (x, y), ASC(MID$(a$, n * 256 + x * 16 + y - 255, 1)) - 128
          ^
tetris.bas(9) error 73: Array access, index expected, before ':'
   NEXT y: NEXT x: GET (0, 0)-(15, 15), c%(n * 66): NEXT n
         ^
tetris.bas(9) error 73: Array access, index expected, before ':'
   NEXT y: NEXT x: GET (0, 0)-(15, 15), c%(n * 66): NEXT n
                 ^
tetris.bas(11) error 73: Array access, index expected, before '='
   FOR y = 3 TO 29: FOR x = 0 TO 39
         ^
tetris.bas(11) error 73: Array access, index expected, before '='
   FOR y = 3 TO 29: FOR x = 0 TO 39
                          ^
tetris.bas(12) error 73: Array access, index expected, before '+'
   i = ASC(MID$(a$, x + y * 40 + 7817, 1)) - 128: m%(x, y) = i
                      ^
tetris.bas(12) error 73: Array access, index expected, before ','
   i = ASC(MID$(a$, x + y * 40 + 7817, 1)) - 128: m%(x, y) = i
                                                      ^
tetris.bas(13) error 73: Array access, index expected, before ','
   PUT (x, y), c%(i * 66), PSET: NEXT x: NEXT y
         ^
tetris.bas(13) error 133: Too many errors, exiting
При этом QB64 компилирует без проблем.
0
26.01.2023, 11:34
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.01.2023, 11:34
Помогаю со студенческими работами здесь

Можно ли на Бейсике писать хак-софт?
Можно ли на Бейсике писать хакерские программы, типа брутфорсов, чекеров, спамеров, грабберов,...

составить разветвляющую программу в бейсике при заранее неизвестных значениях параметров
Пожалуйста помогите нубу составить разветвляющую программу в бейсике при заранее неизвестных...

Составить программу в бейсике для вычисления значения функции при заданных параметрах
Пожалуйста помогите нубу составить программу в бейсике для вычисления значения функции при...

Третий раз информатику буду сдавать информатику. На языке Бейсике
Дан одномерный массив A из N элементов. Если четвертый элемент массива больше квадратного 6-го...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
160
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru