Сделать движение букв вместе с движением шаров

@Resi · Регистрация: 11.07.2013

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

помогите пожалуйста, когда шары двигаются, чтобы и буквы двигались)

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
 SCREEN 12
 LOCATE 15, 5
 COLOR 3
 PRINT "H+"
 LOCATE 15, 25
 COLOR 14
 PRINT "O-"
 LOCATE 15, 45
 COLOR 3
 PRINT "H+"
 CIRCLE (200, 230), 30, 14
 FOR X = 1 TO 160
 CIRCLE (360 - X, 230), 30, 3
 CIRCLE (40 + X, 230), 30, 3
 IF X > 100 THEN 300
 LINE (330 - X, 230)-(230, 230), 14
 LINE (170, 230)-(70 + X, 230), 14
300
 FOR i = 1 TO 10000: NEXT
 CIRCLE (360 - X, 230), 30, 0
 CIRCLE (40 + X, 230), 30, 0
 LINE (330 - X, 230)-(230, 230), 0
 LINE (170, 230)-(70 + X, 230), 0
 NEXT
 CIRCLE (200, 230), 40, 1
 LOCATE 15, 24
 COLOR 3
 PRINT "H 2 O"
 COLOR 15

@gehh · 05.06.2014, 13:19

Вот код
Обычные буквы не будут плавно перемещаться, ибо у них
по ширине экрана всего 80 знакомест. Иными словами даже
при использовании графического экрана, буквы будут располагаться
как в текстовом режиме. Конечно можно решить и эту задачу.
Надо рисовать каждую букву, как рисуют другие линии и тогда
эти буквы будут плавно перемещаться. Программа сильно увеличится
в объёме, ведь буква это множество точек и их надо все перемещать.
(программа проверена)

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
46
47
48
49
50
DEFLNG I, X
SCREEN 12
LOCATE 15, 5
COLOR 3
PRINT "H+"
LOCATE 15, 25
COLOR 14
PRINT "O-"
LOCATE 15, 45
COLOR 3
PRINT "H+"
CIRCLE (200, 230), 30, 14
FOR x = 1 TO 160
    CIRCLE (360 - x, 230), 30, 3
    CIRCLE (40 + x, 230), 30, 3
    IF x > 100 THEN 300
    LINE (330 - x, 230)-(230, 230), 14
    LINE (170, 230)-(70 + x, 230), 14
    IF x MOD 8 = 0 THEN
        LOCATE 15, 45 - x / 8
        PRINT "H+"
        LOCATE 15, 5 + x / 8
        PRINT "H+"
    END IF
300
    FOR i = 1 TO 1000000: NEXT i
    IF x = 5 OR x = 45 THEN
        LOCATE 15, 5
        PRINT "  "
        LOCATE 15, 45
        PRINT "  "
    END IF
    IF x MOD 8 = 0 THEN
        LOCATE 15, 45 - x / 8
        PRINT "  "
        LOCATE 15, 5 + x / 8
        PRINT "  "
    END IF
 
    CIRCLE (360 - x, 230), 30, 0
    CIRCLE (40 + x, 230), 30, 0
    LINE (330 - x, 230)-(230, 230), 0
    LINE (170, 230)-(70 + x, 230), 0
NEXT x
CIRCLE (200, 230), 40, 1
LOCATE 15, 24
COLOR 3
PRINT "H 2 O"
COLOR 15
END

Удачи вам!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .