Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.54/501: Рейтинг темы: голосов - 501, средняя оценка - 4.54
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2

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

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

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

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

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

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

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

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

Вообщем если найдутся энтузиасты поддержать топик, буду очень рад. Хочется чтобы в разделе было больше посетителей и чтоб форум не "сдох".
10
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
16.08.2010, 02:10
Ответы с готовыми решениями:

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

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

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

175
 Аватар для yevrowl
304 / 75 / 6
Регистрация: 27.04.2022
Сообщений: 234
05.09.2022, 18:01
Студворк — интернет-сервис помощи студентам
Немного сельского пейзажа:

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‐пропагандист
 Аватар для Замабувараев
936 / 785 / 149
Регистрация: 18.12.2014
Сообщений: 2,255
Записей в блоге: 4
05.09.2022, 18:04
Приведите пример чего‐нибудь близкого к современности. Например, заставку из Windows 98 «Метаморфозы».
https://r4.mt.ru/u25/photo13C4... iginal.gif

Не всё же круглешки и квадратики в цикле для MSDOS рисовать.
2
 Аватар для yevrowl
304 / 75 / 6
Регистрация: 27.04.2022
Сообщений: 234
05.09.2022, 18:06
Замабувараев, как уже неоднократно упоминал 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
 Аватар для yevrowl
304 / 75 / 6
Регистрация: 27.04.2022
Сообщений: 234
05.09.2022, 18:49
Анимация парусника, код не мой. Всё это добро найдено на институтских (теперь университетских) дискетах.
Миниатюры
Графика на бейсике   Графика на бейсике  
Вложения
Тип файла: 7z PARUS.7z (559 байт, 2 просмотров)
1
 Аватар для yevrowl
304 / 75 / 6
Регистрация: 27.04.2022
Сообщений: 234
05.09.2022, 18:57
Анимация рыбы, код не мой. Всё это добро найдено на институтских (теперь университетских) дискетах.
Миниатюры
Графика на бейсике   Графика на бейсике  
Вложения
Тип файла: 7z FISH.7z (619 байт, 4 просмотров)
1
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
05.09.2022, 20:10  [ТС]
Цитата Сообщение от yevrowl Посмотреть сообщение
Замабувараев, как уже неоднократно упоминал Quiet Snow — я болван
Не впутывай Замабувараева в мою характеристику, выданную тебе по вполне понятным поступкам,
которые болван продолжает делать, не взирая на то, что в тему зашёл как минимум профи, увидев
моё сообщение. Человек лишь тебя опросил, нет ли чего весомее чужих линий и точечек. И по последним постам
получил предполагаемый ответ.

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

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

P. S. Quiet Snow, благодарен за оказанную на форуме помощь, но можно и воздержаться от беспочвенных обвинений и оскорблений.
1
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
06.09.2022, 00:32  [ТС]
Цитата Сообщение от 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
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,680
Записей в блоге: 14
06.09.2022, 15:10
Друзья! В словах уважаемого Quiet Snow, как бы сказал Шерлок Холмс - немало горькой правды. Но все же эти слова слишком резки. Я предлагаю компромисс: собрать всю достаточно простую мелочевку, описать и разместить один архив с описанием. Не исключено, что это будет полезно начинающим. Как вы на это смотрите?
1
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
06.09.2022, 18:27  [ТС]
Цитата Сообщение от 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
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,680
Записей в блоге: 14
07.09.2022, 08:34
Quiet Snow, спасибо, я все это осмотрю. И постараюсь собрать воедино.
3
68 / 18 / 0
Регистрация: 26.01.2018
Сообщений: 166
07.09.2022, 17:46
0
68 / 18 / 0
Регистрация: 26.01.2018
Сообщений: 166
07.09.2022, 17:47
0
68 / 18 / 0
Регистрация: 26.01.2018
Сообщений: 166
07.09.2022, 17:47
0
Администратор
Эксперт .NET
 Аватар для OwenGlendower
18240 / 14154 / 5366
Регистрация: 17.03.2014
Сообщений: 28,841
Записей в блоге: 1
10.09.2022, 20:54
Цитата Сообщение от Catstail Посмотреть сообщение
Я предлагаю компромисс: собрать всю достаточно простую мелочевку, описать и разместить один архив с описанием. Не исключено, что это будет полезно начинающим. Как вы на это смотрите?
Хорошая мысль. Думаю что стоит пойти дальше и вынести простые примеры в отдельную тему. Эту переименовать в "Продвинутая графика на Бейсике" и добавить в первый пост более ясные критерии.
4
 Аватар для Mikle Quits
759 / 278 / 14
Регистрация: 21.01.2023
Сообщений: 390
23.01.2023, 19:12
А тетрис на Quick Basic подойдёт по тематике?
Код, конечно, ужасен, писал это в начале 90-х только вникая в Quick Basic после Atari Basic, форматирования нет, даже процедур ещё не использовал.
Но выглядит и функционирует неплохо, даже озвучено.
В архиве код и EXE. Пускать, естественно, через DosBox.
Миниатюры
Графика на бейсике  
Вложения
Тип файла: zip TETRIS.zip (37.4 Кб, 53 просмотров)
3
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
25.01.2023, 20:50  [ТС]
Цитата Сообщение от Mikle Quits Посмотреть сообщение
А тетрис на Quick Basic подойдёт по тематике?
Подойдёт. Однако уже было.
0
 Аватар для yevrowl
304 / 75 / 6
Регистрация: 27.04.2022
Сообщений: 234
26.01.2023, 04:12
Mikle Quits, отличный набор: тетрис и пентикс одном флаконе. Отзывчивое управление, качественные графика и озвучка, плавная анимация.
Миниатюры
Графика на бейсике   Графика на бейсике   Графика на бейсике  

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

Графика на бейсике   Графика на бейсике  
1
 Аватар для vlisp
1059 / 980 / 153
Регистрация: 10.08.2015
Сообщений: 5,319
26.01.2023, 09:05
перекомпиляйте в ФБ
0
 Аватар для yevrowl
304 / 75 / 6
Регистрация: 27.04.2022
Сообщений: 234
26.01.2023, 11:34
Цитата Сообщение от vlisp Посмотреть сообщение
перекомпиляйте в ФБ
Вот что выдаёт компилятор:
Code
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
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 компилирует без проблем.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.01.2023, 11:34
Помогаю со студенческими работами здесь

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

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
160
Ответ Создать тему
Новые блоги и статьи
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
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru