Публикация интересных исходников по QB64

@GlaDosEvolution · Регистрация: 13.06.2015

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

Платформа QuickBasic 32 и 64 бита.
Используемая платформа разработки qb64.

Здесь я буду время от времени размещать исходники на этом языке, как 3d так и 2d игр или приложений работающих на qb64.

Первый исходник:

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
' Vertex rotation test
 
SCREEN 7
 
' The end coordinates for the line segment representing a "wall"
vx1 = 70 : vy1 = 20
vx2 = 70 : vy2 = 70
 
' The coordiantes of the player
px = 50
py = 50
angle = 0
 
DO
    ' Draw the absolute map
    VIEW(4, 40) - (103, 149), 0, 1
 
    LINE(vx1, vy1) - (vx2, vy2), 14
    LINE(px, py) - (COS(angle) * 5 + px, SIN(angle) * 5 + py), 8
    PSET(px, py), 15
 
    ' Wait for screen refresh and swap page
    SCREEN ,, page%, 1 - page% : page% = 1 - page%
    WAIT &h4da, &h8, &h8
 
    SELECT CASE INKEY$
        CASE CHR$(0) + "H" : px = px + COS(angle): py = py + SIN(angle)
        CASE CHR$(0) + "P" : px = px - COS(angle): py = py - SIN(angle)
        CASE CHR$(0) + "K": angle = angle - 0.1
        CASE CHR$(0) + "M": angle = angle + 0.1
        CASE "a", "A" : px = px + SIN(angle): py = py - COS(angle)
        CASE "d", "D" : px = px - SIN(angle): py = py + COS(angle)
        CASE "q", "Q", CHR$(27): EXIT DO
    END SELECT
LOOP
 
SCREEN 0, 1, 0, 0: WIDTH 80, 25

Последующие будут поступать по мере возможности или каждую неделю а может и чаще.

Добавлено через 49 минут
В первом исходнике допустил небольшой баг так что выкладываю немного дополненную версию.

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
' Vertex rotation test
 
SCREEN 7
 
' The end coordinates for the line segment representing a "wall"
vx1 = 70 : vy1 = 20
vx2 = 70 : vy2 = 70
 
' The coordiantes of the player
px = 50
py = 50
angle = 0
 
DO
    ' Draw the absolute map
    VIEW(4, 40) - (103, 149), 0, 1
 
    LINE(vx1, vy1) - (vx2, vy2), 14
    LINE(px, py) - (COS(angle) * 5 + px, SIN(angle) * 5 + py), 8
    PSET(px, py), 15
 
    ' Wait for screen refresh and swap page
    SCREEN ,, page%, 1 - page% : page% = 1 - page%
    WAIT &h4da, &h8, &h8: WAIT &h3da, &h8
 
    SELECT CASE INKEY$
        CASE CHR$(0) + "H" : px = px + COS(angle): py = py + SIN(angle)
        CASE CHR$(0) + "P" : px = px - COS(angle): py = py - SIN(angle)
        CASE CHR$(0) + "K": angle = angle - 0.1
        CASE CHR$(0) + "M": angle = angle + 0.1
        CASE "a", "A" : px = px + SIN(angle): py = py - COS(angle)
        CASE "d", "D" : px = px - SIN(angle): py = py + COS(angle)
        CASE "q", "Q", CHR$(27): EXIT DO
    END SELECT
LOOP
 
SCREEN 0, 1, 0, 0: WIDTH 80, 25

П.С. Я так и не сказал что можно делать после запуска. Короче когда запустил код, управление стрелками на клавиатуре. Удачи.

@GlaDosEvolution · 16.12.2016, 17:36 **[ТС]**

Не по теме:

Для тех кому жалко трафика напишу размер обоих файлов.
carols_src.zip - весит 22кб.
carols_exe.zip - весит 638кб.

@Pro_grammer · 16.12.2016, 19:26

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

Заранее поздравляю: С новым годом киберфорум.

Спасибо, хотя там всё больше про Рождество, причем не православное.
Но вот эта строчка:

Are you using a Color Monitor (enter Y or N) ?

мне кажется анахронизмом. Там ведь стоит дата исходника

10 REM *** CAROLS.BAS A selection of Christmas Carols by GlaDosEvolution 16/12/2016

Или исходнику уже лет 20, или Рождественский прикол.

@GlaDosEvolution · 16.12.2016, 19:36 **[ТС]**

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

Спасибо

Да не за что чувак. Поздравляю тебя.

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

Рождественский прикол

Это специальный рождественский прикол. И для нового года доже пойдет.

Не по теме:

Если что то эту прогу я писал давно но вот решил выложить в честь нового года. Так сказать сделать некий подарок с музыкой

@Quiet Snow · 16.12.2016, 20:09

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

Или исходнику уже лет 20

Его написал Greg Rismoen в 84 году, на IBM-XT...

@Pro_grammer · 16.12.2016, 21:23

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

Его написал Greg Rismoen в 84 году, на IBM-XT...

Больше 30 лет назад, это многое объясняет!

Не по теме:

Я ещё не родился, а Greg Rismoen меня уже с Рождеством поздравил. Машина времени однако!

@The trick · 16.12.2016, 21:24

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

причем не православное.

Какая разница? Тут не только православные сидят.
По исходнику, мне напомнило то когда я в детстве делал музыку на ZX-Spectrum через BEEP и PLAY, даже через PLAY можно было на 3 голоса делать одновременно.

@locm · 16.12.2016, 21:51

Не по теме:

Сообщение от The trick

даже через PLAY можно было на 3 голоса делать одновременно.

Наверное звук синтезировался чем-то типа КР580ВИ53, который трехканальный? Тоже "игрался" с компом содержащим его. Помню еще котел прикрутить микросхему часов (маркировку уже не помню), но не смог ее найти чтобы купить... Сейчас же в компах часы воспринимаются как что-то неотъемлемое, а раньше они были редкостью...

@The trick · 16.12.2016, 22:01

Не по теме:

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

Наверное звук синтезировался чем-то типа КР580ВИ53, который трехканальный?

Почти, YM2149F (аналог более известной AY-3-8910). Эх, сейчас на эмульке что-нибудь заделаю...

@Evolution_Pixel · 16.12.2016, 23:42

А автор последней публикации левнул отсюда как я понял?

Добавлено через 1 час 31 минуту
GlaDosEvolution, а еще исходники какие нибудь будут или вы уже не будите выкладывать?

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

@GlaDosEvolution
	16.12.2016, 17:36 [ТС]
	Не по теме: Для тех кому жалко трафика напишу размер обоих файлов. carols_src.zip - весит 22кб. carols_exe.zip - весит 638кб. 0

@Evolution_Pixel 0 / 0 / 0 Регистрация: 16.12.2016 Сообщений: 11
	16.12.2016, 23:42
	А автор последней публикации левнул отсюда как я понял? Добавлено через 1 час 31 минуту GlaDosEvolution, а еще исходники какие нибудь будут или вы уже не будите выкладывать? 0