Posted in Разное

Цвета qbasic: Номера цветов изображения и фона QBasic

Содержание

Номера цветов изображения и фона QBasic

Номера цветов изображения и фона QBasic

Номера цветов изображения и фона

Номер цвета

Цвет изображения

Цвет фона

0

Черный

Черный

1

Синий

Синий

2

Зеленый (салатовый)

Зеленый (салатовый)

3

Бледно-голубой

Бледно-голубой

4

Красный (алый)

Красный (алый)

5

Лиловый (светлый)

Лиловый (светлый)

6

Кирпичный

Желтый

7

Белый

Белый

8

Серый

Синий (насыщенный)

9

Сиреневый

Синий

10

Желтый (лимонный)

Зеленоватый

11

Белый (бледно-голубой)

Белый (бледно-голубой)

12

Красный (малиновый)

Красный (малиновый)

13

Розово-сиреневый

Розово-сиреневый

14

Желтый

Желтый

15

Ярко-белый

Сиреневато-белый

16

Белый

Ярко-зеленый (ель)
  • < Назад
  • Вперёд >

оператор color

Политика конфиденциальности: Часть материалов публикуемых на сайте написанна автором сайта вручную, остальные материалы взяты
из открытых источников. 

Страница не найдена | Кафедра физики твердого тела ПетрГУ

http://secretary.rid.go.th/ http://rtlabs.nitk.ac.in/ http://www.ei.ksue.edu.ua/ http://www.unajma.edu.pe/ http://www.drbrambedkarcollege.ac.in/ https://esperanza.eastern.edu/ https://www.hsri.or.th/ https://www.agrft.uni-lj.si/ http://www4.fe.usp.br/ https://www.cnba.uba.ar/

Home
bak hocam 2yildir kullandigim siteye gelip kod ekliyorsun not yazip kodlarini siliyorum (insan olan utanir kusura bakma hocam diyip giderdi) kendine dusmanmi ariyorsun? belliki sen disli birine denk gelmemissin hayatin boyunca ama ben cok ugrastim cokta denk geldim bu sekilde tanimadigin birini tehtit etmen ya deli oldugunu gosterir yada tecrubesizligini sen bana isimi ogretecegine once baskalarina ait olan sitelere girmemeyi ogren ondan sonra bana isimi ogretirsin ben cok takintili bir adamim beni kotu bir insan olmaya zorlama rica ediyorum bak lutfen birbirimizi uzmeyelim emin ol bu site felan umrumdami saniyorsun? olay tamamen prensip meselesi sen benim yatakodama gelip beraber yatacagiz diyorsun oyle bir olay yok isine bak oldu 10 kisi daha cagir 500 kod eklesin herkes yorumbacklink isimi yapiyorsun? sacmalamissin daha fazla beni muatap etme kendinle yaptigin terbiyesizligin farkina var illa darbe yiyincemi aklin basina gelecek anlamiyorum ki o kadar yaziyorum ki birbirimize kotuluk yapmayalim kalp kirmayalim birbirimizi uzmeyelim sana daha once boyle notlar yazan bir linkci gordun mu Allah askina ben bazen goruyorum ana baci duymadigim kufurler yaziyor adamlar birbirine sen benim gibi bir insani uzuyorsun ama lutfen.. 8yildir ben kimseyle ortak site kullanmadim babam gelse onunlada kullanmam en hassas oldugum konudur bu bir daha kod eklememeni siddetle tavsiye ediyorum yoksa farkli seyler olur ve kendine nur topu gibi manyak bir dusman edinirsin bos yere bu polemigi uzatiyorsun haksiz olan sensin kod disinde birsey yazmak istersen yazabilirsin ama rica ediyorum isi inada bindirme senden ERDEMLİ DÜRÜST VE OLGUN bir davranis bekliyorum beni anladigini umuyorum ve tekrar inşAllah kod eklemeyecegini umuyorum olumlu olumsuz notunu buraya yazablirsin bende bir daha bu siteyi kullanmiyacagim sanada kullandirmam tabiki is site isi degil prensip isi.. ihtiyacin olabilir site sayin azdir bunlar dogal seyler ben gerekirse kendim eklerim senin kodlarini oyle bir durumda kendi kodlarimida silerim sadece senin olur ama o son not garip bir insan oldugunu dusunduruyor bana ve inan ugrasacak vaktim de kafamda yok kendine sardirma hepimiz ekmek davasindayiz senle isim yok benden sana kotulukte gelmez ama beni zorlama lutfen.. zaten kafamda bir dunya sorun var hayat acimasiz hayat zor benim derdim bana yetiyor butun ictenligim ve iyi niyetim ile sana bu notu yaziyorum bu kadar sozden sonra kod ekleyecegini sanmiyorum birde seninle ugrasmayayim guzel kardesim arkadasim lutfen rica ediyorum LUTFEN barış her zaman erdemli insanlarin isidir lutfen ayni olgunluk ile senden olumlu donusunu bekliyorum eger yazdiklarimda kalp kirici yada incitici birsey varsa lutfen kusura bakma 1-2defa kontrol ettim ama belki gozumden kacmis olabilir hakkini helal et ve en iyisi ikimiz icinde helallesip bu isi noktalamaktir inan kotu biri degilim selam ve sevgiyle..

Неофициальный сайт средней школы №9 г. Перми

Основы программирования на языке QBasic

Так выглядит экран при запуске системы программирования QBasic.

Главное меню содержит перечень основных команд, доступных системе программирования.
Чтобы использовать пункты главного меню нужно нажать Alt.
Переход по пунктам осуществляется при помощи функциональных клавиш со стрелками.
Увидеть список команд определенного пункта меню можно, нажав клавишу Enter.
Команды выбираем при помощи функциональных клавиш со стрелками.
Выполнение команды осуществоляется нажатием клавиши Enter.
Отмена команды – Esc.

 

Необходимо усвоить следующие пункты меню и команды:

В окне редактора набирают текст программы на языке QBasic.
Чтобы решать задачи с помощью языка программирования, необходимо научиться писать программы на этом языке. А для этого надо знать его систему команд.
Программа на языке QBasic – это последовательность команд, выполнение которых приведет к результату (решению задачи).
Отдельная команда на алгоритмическом языке называется оператором.
Конец программы обозначается командой  End.
Различают два режима работы в среде Qbasic: текстовый и графический.

Графический режим. Основные графические операторы

В графическом режиме на экран монитора выводится изображение (рисунок).
Рисунок – это совокупность точек различного цвета. Эти точки называются пикселями. Экран монитора состоит из точек – пикселей.
Каждая точка имеет определенный цвет и координаты.
Отсчет координат производится из левого верхнего угла экрана.
Экран содержит 480 точек по вертикали и 640 точек по горизонтали.

Для удобства определения координат можно использовать сетку:

При запуске среды QBasic экран монитора автоматически устанавливается в текстовый режим.
Чтобы переключить экран в графический режим используется оператор SCREEN.
Формат:  SCREEN <номер графического режима>
Номер графического режима указывает, на какое количество пикселей будет разбит экран. Для разбиения 640 х 480 удобно использовать графический режим с номером 12.

Оператор: SCREEN 12.
В этом режиме любой пиксель может принимать один из 16 цветов.

Рисование точки

Для рисования точки определенного цвета используется оператор PSET.
Формат:  PSET (X, Y), C
PSET – служебное слово,
X, Y – координаты точки,
C – цвет (число от 0 до 15).

 

Таблица цветов:

0
1
2
3
4
5
6
7
  —  Black
 —  Blue
 —  Green
 —  Cyan
 —  Red
 —  Magenta
 —  Brown
 —  DarkGray
         8
9
10
11
12
13
14
15
  —  LightGray
 —  LightBlue
 —  LightGreen
 —  LightCyan
 —  LightRed
 —  LightMagenta
 —  Yellow
 —  White

 

Задание: Нарисовать созвездие большой медведицы.

Программа:
CLS
SCREEN 12
PSET (80, 240), 15
PSET (160, 160), 15
PSET (240, 160), 15
PSET (320, 160), 15
PSET (360, 240), 15
PSET (400, 320), 15
PSET (480, 320), 15
PSET (540, 200), 15
END

 

Задания для самостоятельного решения.
1. Нарисовать созвездие Кассиопеи.

Рисование линии

Для рисования прямых линий используется оператор LINE.
Формат:  LINE (X1, Y1) — (X2, Y2), C
LINE – служебное слово,
X1, Y1 – координаты начала линии,
X2, Y2 – координаты конца линии,
C – номер цвета линии.


 

Задание: Нарисовать лестницу.

Программа:
CLS
SCREEN 12
LINE (160, 80) — (160, 400), 4
LINE (400, 80) — (400, 400), 4
LINE (160, 160) — (400, 160), 4
LINE (160, 240) — (400, 240), 4
LINE (160, 320) — (400, 320), 4
END

 

Задание: Нарисовать звезду не отрывая руки.

Программа:
SCREEN 12
LINE (160, 420) — (320, 80), 4
LINE (320, 80) — (480, 400), 4
LINE (480, 400) — (120, 200), 4
LINE (120, 200) — (520, 200), 4
LINE (520, 200) — (160, 420), 4
END

 

Читая программу, можно заметить, что координаты конца предыдущей линии и координаты начала следующей совпадают. Чтобы не писать лишний раз эту пару координат используется прием, который называют «точкой последней ссылки» (ТПС).
ТПС – это координаты последней точки, которые запоминает компьютер из предыдущего оператора.

 

Программа (второй вариант):
SCREEN 12
LINE (160, 420) — (320, 80), 4
LINE — (480, 400), 4
LINE — (120, 200), 4
LINE — (520, 200), 4
LINE — (160, 420), 4
END

 

Задания для самостоятельного решения.

 

Рисование прямоугольников

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

Для рисования прямоугольников используется специальная форма оператора LINE.
Формат:   LINE (X1, Y1) – (X2, Y2), C, B
LINE – служебное слово,
X1, Y1 – координаты левого верхнего угла прямоугольника,
X2, Y2 – координаты правого нижнего угла прямоугольника,
C – цвет линии,
B – служебное слово, обозначающее прямоугольник (box).

 

Для рисования закрашенных прямоугольников вместо служебного слова В используется служебное слово BF.
Формат:  LINE (X1, Y1) – (X2, Y2), C, BF
В данном случае  С означает цвет заливки.

 

Задание: Нарисовать синий прямоугольник с желтым контуром.

Программа:
SCREEN 12
LINE (160, 160) — (480, 400), 1, BF
LINE (160, 160) — (480, 400), 14, B
END

 

Задания для самостоятельного решения. 
 
1. Нарисовать пирамидку 2.  Нарисовать парту

 

Рисование окружностей

Чтобы нарисовать окружность необходимо знать радиус и центр окружности.
Для рисования окружностей используется оператор CIRCLE.
Формат:  CIRCLE (X, Y), R, C
CIRCLE – служебное слово,
X, Y – координаты центра окружности,
R – размер радиуса в пикселях,
C – номер цвета линии.


 

Задание: Нарисовать олимпийские кольца.

Программа:
SCREEN 12
CIRCLE (160, 160), 80, 1
CIRCLE (320, 160), 80, 7
CIRCLE (480, 160), 80, 4
CIRCLE (240, 240), 80, 14
CIRCLE (400, 240), 80, 2
END

Оператор заливки

Закрашивать можно только замкнутые области, ограниченные линиями одного цвета.
Для закраски замкнутых областей применяется оператор PAINT.
Формат:  PAINT (X, Y), C1, C2
PAINT – служебное слово
X, Y – координаты любой точки внутри области,
C1 – цвет заливки,
C2 – цвет линий, ограничивающих область.

 

Задание: Нарисовать цветочек.

Программа:
SCREEN 12
CIRCLE (240, 240), 80, 7
PAINT (240, 240), 1, 7
CIRCLE (320, 320),  80, 7
PAINT (320, 320), 1, 7
CIRCLE (400, 240), 80, 7
PAINT (400, 240), 1, 7
CIRCLE (320, 160), 80, 7
PAINT (320, 160), 1, 7
CIRCLE (320, 240), 40, 7
PAINT (320, 240), 14, 7
END

 

Задания для самостоятельного решения.
Нарисовать вазу с мороженым.

Дополнительная информация

Для пояснения текста программы используют комментарии.
Комментарий — пояснение к программе или к какой-либо части программы. Комментарий может быть составлен из слов как на русском, так и на английском языке, с использованием цифр и знаков препинания.
Формат оператора: REM текст
Служебное слово REM  можно заменить знаком апострофа (например, ‘ текст комментария).
Тот текст, который идет за оператором комментария, не будет обрабатываться компьютером.

 

Копирование и вставка текста программы с помощью функциональных клавиш

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

Буфер хранит информацию временно. Информация в буфере хранится до тех пор, пока туда не бубет помещена новая информация. Буфер опустошается также при завершении работы.

Чтобы занести информацию в буфер, необходимо ее сначала выделить. Для этого используют несколько клавиш. При выделении текст меняет цвет.

SHIFT + клавиша «стрелка влево» (выделяются буквы справа налево)

SHIFT + клавиша «стрелка вправо» (выделяются буквы слева направо)

SHIFT + клавиша «стрелка вверх» (выделяются строчки снизу вверх)

SHIFT + клавиша «стрелка вниз» (выделяются строчки сверху вниз)

SHIFT + клавиша END (выделяется вся строчка от начала до конца)

SHIFT + клавиша HOME (выделяется вся строчка от конца до начала)

 

После того, как текст будет выделен, необходимо нажать клавиши одновременно CTRL +  INSERT. Точная копия текста, который был выделен, окажется в буфере. На экране при этом ничего не изменится.
Затем необходимо поставить курсор в то место программы, куда необходимо вставить текст, и нажать одновременно две клавиши SHIFT +  INSERT.

Текстовый режим. Основные операторы

Экран монитора в текстовом режиме представляет собой 25 строк. В каждой строке можно разместить по 80 символов в строку.
Для очистки экрана от ненужной информации применяют оператор CLS (ClearScreen). С этого оператора чаще всего начинают программу.

 

Оператор вывода информации на экран

На экран можно выводить текст, константы  и значения переменных.

Текст — любая последовательность символов. Текст необходимо заключать в кавычки (например, «С добрым утром, страна!»).
Константа – постоянная величина (например, число 5 или число 100.85).
Переменная – ячейка памяти компьютера, значение которой может изменяться в ходе выполнения программы. Переменная имеет свое уникальное имя. Имя переменной может быть буквой латинского алфавита или составляться из букв латинского алфавита, цифр и символа подчеркивания. Имя переменной должно начинаться только с буквы (или символа подчеркивания).

 

Примеры правильных имен: a, mama, sum, b56_c, _a.
Примеры неправильных имен: мама (используются русские буквы), 1a (имя начинается с цифры), a#1 (используется спецсивол).
Малые и заглавные буквы в записи имен переменных и текста программы воспринимаются как одинаковые.

 

Формат:  PRINT «текст» , переменная
PRINT — служебное слово
Текст, константы  и переменные отделяются друг от друга запятой.

Например,
PRINT «hello»                         вывод строки hello
PRINT «hello,», «world»          вывод строки hello, world

 

Задание: Вывести на экран следующую информацию:
Привет, меня зовут Миша!
Я ученик школы №9.
Я изучаю QBasic!


 

Программа:
CLS
PRINT » Привет, меня зовут Миша!»
PRINT » Я ученик школы №9.»
PRINT » Я изучаю QBasic!»
END


 

Чтобы вывести информацию в несколько столбцов, текст каждой строки разбивается запятыми на столбцы.
 PRINT «..»,  «..»,  «..»
Здесь первый столбец  выводится с первой позиции (место символа в строке), второй – с 15-ой, третий – с 30-ой и т.д.

 

Задание: Написать программу, выводящую на экран  столбцы:

 

зима весна лето осень
декабрь         март июнь сентябрь
январь апрель         июль октябрь
февраль май август       ноябрь


Программа:
CLS
PRINT » Зима», «Весна», «Лето», «Осень»
PRINT «»
PRINT «Декабрь», «Март», «Июнь», «Сентябрь»
PRINT » Январь», «Апрель», «Июль», «Октябрь»
PRINT » Февраль», «Май», «Август», «Ноябрь»
END

 

Задания для самостоятельного решения.
Задача: Напишите программу, выводящую на экран расписание звонков в форме:

Оператор ввода данных

Оператор ввода данных  используется для ввода данных с клавиатуры в память компьютера.
Формат: INPUT данные
INPUT — служебное слово
данные — это перечисленные через запятую переменные, в которые после выполнения оператора будут содержаться введенные с клавиатуры величины.

 

Механизм работы оператора INPUT
После запуска программы на экране появится знак вопроса ? и будет мигать курсор. Программа останавливается и ждет.
С помощью клавиатуры надо набрать данные. Затем нажать клавишу ENTER.
Данные разместятся по порядку перечисления переменных.

 

Например,
INPUT a, b, c

 Если набрать на клавиатуре числа 10, 20, 30 , то переменная a будет содержать число 10, переменная b – число 20, переменная c – число 30. Если вместо чисел ввести, например, буквы, то это вызовет ошибку.

Задание: Даны координаты трех точек экрана. Нарисовать по точкам треугольник.


Программа:
REM Треугольник
CLS
REM Ввод координат всех четырех точек и номера цвета с клавиатуры
PRINT «введи координаты 3-х точек и цвет»
INPUT x1, y1, x2, y2, x3, y3, с
` Рисование треугольника
SCREEN 12
LINE (x1, y1) — (x2, y2), c
LINE — (x3, y3), c
LINE — (x1, y1), c
END

Оператор присваивания


 

Формат:    переменная = выражение
переменная — имя ячейки памяти
 =  — служебный знак
выражение — арифметическое выражение, состоящее из чисел, переменных и знаков арифметических операций. Выражение вычисляется по правилам математики. Полученный результат заносится в ячейку памяти, связанную с переменной.

Задание: Написать программу, рисующую мишень, если заданы координаты центра, радиус и расстояние до концов мишени.

Решение:
Обозначим координаты одного конца горизонтальной линии х1 и у1, а координаты другого конца х2 и у2.
Обозначим координаты одного конца вертикальной линии х3 и у3, а координаты другого конца х4 и у4.
Договоримся рисовать окружность цветом с1, а линии цветом с2.

 

Часть программы, рисующая мишень, будет выглядеть так:
SCREEN 12
CIRCLE (x, y), R, c1
PAINT (x, y), c1, c1
LINE (x1, у1 ) — (x2, y2), c2
LINE (x3, y3) — (x4, y4), c2

 

Если известно расстояние от центра мишени до концов (m) и координаты центра мишени (х и у), то через эти данные можно выразить х1, у1, х2, у2, x3, y3, x4, y4:
x1 = x — m
y1 = y
x2 = x + m
y2 = y
x3 = x
y3 = y — m
x4 = x
y4 = y + m


Программа:
CLS
PRINT » введи координаты центра мишени «
INPUT x, y
PRINT » введи радиус «
INPUT R
PRINT » введи расстояние до концов мишени «
INPUT  m
PRINT » введи цвета мишени и линий «
INPUT с1, c2
REM вычисление концов линий
x1 = x — m
y1 = y
x2 = x + m
y2 = y
x3 = x
y3 = y — m
x4 = x
y4 = y + m
REM Рисование мишени
SCREEN 12
CIRCLE (x, y), R, c1
PAINT (x, y), c1, c1
LINE (x1, у1 ) — (x2, y2), c2
LINE (x3, y3) — (x4, y4), c2
END

 

Задание: Написать программу, рисующую лодку, если заданы её размеры и координаты точки левого верхнего угла рисунка .


Решение:
Чтобы нарисовать самый простой рисунок, приходится вводить много данных с клавиатуры. Чтобы этого избежать, будем вводить координаты только одной точки, а координаты всех остальных точек вычислять.
Попробуем определить координату правой верхней точки. У нас есть точка с координатами (x, y). Мы смещаемся от нее вправо на 240 пикселей только по горизонтальной оси. Тогда координаты правой верхней точки будут равны (x + 240, y).
Точно также попробуем определить координату левой нижней точки. Будем смещаться только по вертикальной оси сверху вниз. Координаты левой нижней точки будут равны (x, y + 80).
Чтобы определить координату правой нижней точки, необходимо сместиться на 210 пикселей по горизонтальной оси и на 80 пикселей по вертикальной оси. Координаты правой нижней точки будут равны (x + 210, y + 80).


Программа:
REM Ввод данных с клавиатуры
CLS
PRINT » Введите координаты точки «
INPUT x, y
SCREEN 12
` Рисование лодки
LINE (x, y) — (x + 240, y), 7
LINE  — (x + 210, y + 80), 7
LINE  — (x, y + 80), 7
LINE  — (x, y), 7
PAINT (x + 1, y + 1), 14, 7
END

 

Решение математических задач

Язык программирования  QBasic используется не только как средство для рисования различных фигур. С помощью языка программирования можно решать арифметические примеры и задачи.

 

Задание: Найти произведение двух чисел.


Решение:
Два числа можно ввести с клавиатуры с помощью оператора INPUT, а произведение вывести на экран с помощью оператора PRINT.
CLS
REM Ввод данных с клавиатуры
PRINT «Введите числа»
INPUT a, b
` Вычисление произведения чисел
p = a * b
PRINT «произведение чисел равно:», p
END

 

Обратите внимание:
1) В переменных a и b хранятся два числа. В переменную p помещается результат выполнения операции a * b.
2) При использовании оператора PRINT для вывода текста на экран, текст пишем в кавычках. Он появляется на экране в том виде, в котором написан.
Оператор PRINT может выводить на экран и значение переменных.
Если написать имя переменной в кавычках, то система воспримет его как текст и выведет на экран просто это имя. Но если написать переменную без кавычек, то на экране появится число, которое в ней хранится.

 

Задание : Вычислить значение арифметического выражения:

Значения переменных a, b, c, d вводятся с клавиатуры.
Обратите внимание, что в языке программирования нельзя писать арифметические выражения в виде неправильной дроби. Также нельзя терять знаки арифметических операций (например, как в математике, когда не пишут знак умножения).
Сначала перепишем арифметическое выражение в том виде, который может понять компьютер:

Программа:
REM Ввод данных с клавиатуры
CLS
INPUT » Введите данные: а,b,c,d «
PRINT a , b, c, d
` Вычисление значения арифметического выражения
Z = (a + b + c) / 20 + 25 * d  
PRINT » Значение выражения  равно » , Z
END

 

Задания для самостоятельного решения.
1. Даны величины сторон прямоугольника. Вычислить площадь прямоугольника.
2. Найти среднее арифметическое пяти чисел.
3. Записать арифметические выражения в понятном для среды QBasic виде:

4. Записать арифметическое выражение в обычной математической форме:
a)   44 / 4 * 5 + 10
b)   a — b / c + d
c)   e / (z + x / y)


5.  Найти значение выражения: 

Рисование в QBasic. Часть 1

Данная линейка статей будет посвящена программированию в QBasic, а точнее — рисованию. Сначала мы рассмотрим то, что необходимо знать детям перед тем, как программировать изображения на компьютере — прямоугольная система координат, координаты точки.

Задания на рисование в QBasic отлично развивают логическое и математическое мышление. В учебнике Босовой «Информатика 6» рассматривается несколько практических задач на рисование  с помощью графических примитивов. Мы пойдем немного дальше: научимся рассчитывать координаты точек изображения по условию задачи, научимся рисовать узоры с помощью циклов.

Среда QBASIC свободно скачивается из Интернета. Для 32-битных версий Windown — скачать QBasic (32 bit), для 64-битных версий Windows — скачать QBasic (64 bit).

Введение.

Представим, что на экран монитора наложена прямоугольная система координат с центром О в левом верхнем углу. Точка О имеет координаты (0,0). Теперь любую точку экрана мы сможем закодировать парой чисел (х,у) — координаты точки.

В обозначении А(30, 20) — на первом месте стоит координата Х, на втором — координата У (на это сделать акцент, очень часто дети путают местами Х и У)

Для закрепления умения находить точку на координатной плоскости по заданным координатам могу предложить рад заданий:

1.

1. Первая команда, с которой мы познакомимся — команда SCREEN 12 — команда, задающая на экране область размером 639 единиц по горизонтали на 463 единицы по вертикали, в которой можно строить различные фигуры и окрашивать их в любой из 16 цветов (0-15).  Т.е. максимальное значение координаты Х равно 639, У — 463.

Стандартные Visual Basic (QBasic) цвета:

НомерЦветНомерЦвет
0Черный8Светло-серый
1Темно-синий9Синий
2Темно-зеленый10Зеленый
3Бирюзовый11Голубой
4Малиновый12Красный
5Сиреневый13Розовый
6Оливковый14Желтый
7Темно-серый15Белый

Примечание: есть и другие режимы работы команды SCREEN, но мы будем использовать именно этот, дающий наибольшее разрешение (большее количество пикселей)

2. Точка

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

PSET(X, Y) , С

где х и y — координаты точки на экране, а с — ее цвет.
Рассмотрим пример.

SCREEN 12
PSET(147, 198),14

На черном экране в этом случае появится желтая точка.

 

Данный оператор будет нами использоваться редко.

2. Отрезок

LINE (X1, Y1)-(X2, Y2), С

Х1, Y1 — координаты начала отреза,
Х2, Y2 — координаты конца отрезка
С — цвет линии

Рассмотрим пример

SCREEN 12
LINE(100, 150)-(300, 250), 15

3. Прямоугольник

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

LINE (X1, Y1)-(X2, Y2), С, В

Х1, Y1 — координаты начала диагонали
Х2, Y2 — координаты конца диагонали
С — цвет линии
В — обязательно указать эту букву, иначе получим прямую, а не прямоугольник

Рассмотрим пример

Возьмем предыдущий код и добавим к нему —  В

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

4. Окружность

CIRCLE (X, Y) , R, С

где X, Y — координаты центра, R — радиус (в экранных точках),
C — цвет.

Другие графические примитивы QBASIC, а также упражнения и задачи рассмотрим в следующем выпуске.

на Ваш сайт.

Имя Qbasic: значение имени, происхождение, судьба, характер, национальность, перевод, написание

Что означает имя Qbasic? Что обозначает имя Qbasic? Что значит имя Qbasic для человека? Какое значение имени Qbasic, происхождение, судьба и характер носителя? Какой национальности имя Qbasic? Как переводится имя Qbasic? Как правильно пишется имя Qbasic? Совместимость c именем Qbasic — подходящий цвет, камни обереги, планета покровитель и знак зодиака. Полная характеристика имени Qbasic и его подробный анализ вы можете прочитать онлайн в этой статье совершенно бесплатно.

Содержание толкования имени

Анализ имени Qbasic

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

  • Q — достижение желаемой цели, обладают чувством собственного достоинства, добиваются любви и признания окружающих. Умственные способности. Умение обернуть ситуацию в свою сторону. Лидерство и активность.
  • B — признак душевного романтизма, постоянные и надёжные люди. Способность изъявлять инициативу, легко преодолевать трудности. Желание достичь материального благополучия.
  • A — самая сильная и яркая буква кириллицы. Личности, обладающие такими буквами в имени, всегда стремятся к лидерству. Нередко они соревнуются с самим собой. Указывает на желание что-то изменить, достичь наивысшего уровня комфорта в физическом проявлении и в духовном.
  • S — стремятся достичь материальной устойчивости, обладают здравым смыслом; раздражительны, властолюбивы, могут быть капризными. Познавательность, желание доводить любое дело до конца, умение докопаться до истины. Понимают своё жизненное предназначение. Умение приспосабливаться к обстоятельствам.
  • I — романтичные, утончённые и чувственные натуры. Добрые, мечтают о гармонии с окружающим миром. В сложной ситуации проявляют практичность. Иногда склонны к одиночеству и аскетизму. Неумение подчиняться кому-либо, в то же время указывает на равнодушие к власти.
  • C — лидеры, в почёте традиции, заносчивы и мнительны. Стремятся к общению. Умеют подстраиваться и полное отсутствие индивидуальности. Плохая способность копить средства, постоянные необдуманные и спонтанные траты.

    • Значение имени Qbasic в нумерологии

    Нумерология имени Qbasic может подсказать не только главные качества и характер человека. Но и определить его судьбу, показать успех в личной жизни, дать сведения о карьере, расшифровать судьбоносные знаки и даже предсказать будущее. Число имени Qbasic в нумерологии — 6. Девиз имени Qbasic и шестерок по жизни: «Я борец за справедливость!»

    • Планета-покровитель для имени Qbasic — Венера.
    • Знак зодиака для имени Qbasic — Телец и Весы.
    • Камни-талисманы для имени Qbasic — апаш, красный железняк, сердолик, кошачий глаз, цитрин, стекло, яшма, лабрадорит, мрамор, молдавит, оникс, перидот, зеленый сапфир, звездный сапфир, зеленый турмалин.

    «Шестерка» среди чисел нумерологического ядра – это самоотречение, граничащее с жертвенностью, это готовность служить, как жрец – божеству, это преданность, верность и честность, свойственная рыцарям былых времен и последовательницам матери Терезы.
    «Шестерка» в числах имени – Числе Выражения, Числе Души и Числе внешнего облика – это способность быть преданным до конца, невзирая ни на какие обстоятельства. Это – дар сочувствия и понимания, проявляющийся даже по отношению к малознакомым людям.
    Люди по имени Qbasic и с числом имени 6 любят быть в центре внимания, часто высокомерны и эгоистичны. Проявляют заботу об окружающих обычно только если она принесет им моральное удовлетворение от своего поступка. Людей этого числа много в шоу-бизнесе, иных публичных профессиях.
    Число Шесть всегда находится в поиске спокойствия, баланса и гармонии. Закрытое число, воспринимается как скрытный человек, его трудно понять окружающим. Шестерки могут быть духовно ориентированы, либо погружены в материальный мир. Число Шесть дает врожденную интеллигентность, всю жизнь занимается саморазвитием и самосовершенствованием. Это прирожденный судья с острым чувством справедливости. Часто Шестерки с именем Qbasic обладают эстетическим вкусом, хорошие кулинары. Из занятий ей очень подходит искусство, музыка. Чувство справедливости часто берет верх над практичностью. Лучшим лекарством от всех проблем для Шестерки является спорт и активный образ жизни. Умеет красиво писать и говорить.

    • Влияние имени Qbasic на профессию и карьеру. Что значит число 6 при выборе рода занятий? Для самореализации в профессиональном плане есть множество вариантов. Подходящие профессии: работа, связанная с исполнением закона, судебная система, благотворительность.
    • Влияние имени Qbasic на личную жизнь. Цифра 6 в нумерологии означает явную предрасположенность к длительным стабильным отношениям в рамках супружества. Несмотря на это, личная жизнь людей этой вибрации далеко не всегда складывается удачно. И в четырех случаях из пяти особенно болезненным бывает первый опыт близости с представителем противоположного пола. Причина – очевидна: всегда найдутся желающие использовать в своих интересах искреннее чувство доброго и наивного человека. Шестерки с именем Qbasic любят гармонию и умеют сочувствовать другим, поэтому им легко сойтись характерами почти со всеми. Идеальными партнерами для людей с числом 6 будут шестерки (союз получится ну очень гармоничным), единицы, тройки, четверки и девятки.

    Планета покровитель имени Qbasic

    Число 6 для имени Qbasic означает планету Венера. Вполне естественно, что представители имени Qbasic с этом типом чувственны и любвеобильны, так как их планетой-покровителем является Венера. Они настолько очаровательны, что это помогает им в весьма трудных жизненных ситуациях, когда нужно проявить твердость характера и изворотливость ума, т.е. качества, которыми от природы эти люди не обладают. Владельцы имени Qbasic любят все прекрасное, возвышенное. Часто добиваются признания в той или иной области искусства. Им всегда хватает денег на любимые занятия, так как весьма часто состоят в браке с людьми состоятельными. Внешне обладатели имени Qbasic — люди очень привлекательные, у них изысканный вкус. Они любят вес красивое, но часто бывают высокомерными. Часто идут в ногу со временем, восприимчивы ко всему новому. Если перед ними стоит какая-то определенная задача, то способны проявить незаурядное трудолюбие. Но больше всего носители имени Qbasic любят предаваться душой и телом отдыху. Характер миролюбивый и уживчивый. Могут поладить с любым из девяти типов.

    Знаки зодиака имени Qbasic

    Для имени Qbasic подходят следующие знаки зодиака:

  • Знак зодиака Телец для имени Qbasic. По характеру Телец Qbasic молчалив, многое держит в себе, умеет трезво рассуждать, интуитивен и обладает мощной силой воли. Пока Телец, обладатель имени Qbasic, спокоен, демонстрирует мягкость, терпение. Если задеть за живое человека с именем Qbasic — легко взрывается. Qbasic Телец не любит давления извне, долго обижается. Люди с именем Qbasic абсолютно уверены, что они – особенные, знают все лучше всех и просто обязаны объяснить тебе, почему ты не прав и в каких именно аспектах. Главное отличие от Овнов – они умеют признавать свою неправоту. Потом даже владельцы имени Qbasic благодарить тебя будут, что ты раскрыл им глаза на правду. Телец однолюб и очень доверчив, поэтому часто обманывается в людях и еще чаще в них разочаровывается.
  • Знак зодиака Весы для имени Qbasic. Весы с именем Qbasic любят, когда их хвалят, но не выносят критику. Обладатели имени Qbasic редко проявляют оригинальность, стараются не брать на себя лишней ответственности. Но из-за двойственности натуры могут впадать в крайности: то трудятся в поте лица и кидаются в гущу шумных компаний, то закрываются в себе, опускают руки и впадают в меланхолию. Весы по имени Qbasic любят комфорт и красоту, не против развеяться в компании противоположного пола. Им абсолютно по боку все мирское – в голове у Весов музыка, искусство, разговоры о вечном с бокалом вина и секс под звездами. А в квартире – постоянный бардак, который даже клининговые компании не берутся разгрести. Весы знатные ходоки налево, причем умудряются выкрутиться из ситуации, даже когда пойманы с поличным: «Милая, с ней я трахался, а с тобой я занимаюсь любовью». Лапшу в таких количествах с ушей снять получается далеко не у всех.

    • Цвет имени Qbasic

    Синий цвет имени Qbasic. Люди с именем Qbasic, носящие синий цвет, — верные друзья, всегда придут на помощь, сочувствуя и выслушивая, но вот реальных действий и денег дождаться от них не получится. Дело в том, что значение синего цвета для имени Qbasic таково, что его владелец не может по-другому – это заложено природой, а с ней не поспоришь. Кстати, очень часто из-за своего бездействия владельцы имени Qbasic не могут найти терпимого работодателя, поэтому долго и не задерживаются на одном рабочем месте, хотя в коллективе их любят и уважают – у них много друзей среди бывших коллег. Положительные черты характера имени Qbasic – коммуникабельность и лояльность. Отрицательные черты характера для имени Qbasic – лень и безответственность.

    Видео значение имени Qbasic

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

    Если вы нашли ошибку в описании имени, пожалуйста, выделите фрагмент текста и нажмите Ctrl+Enter.

    Урок–эксперимент по теме &quot Графика и циклы в языке программирования QBASIC&quot

    Урок–эксперимент по теме: «Графика и циклы в языке программирования QBASIC»

    Цель урока: обобщить знания учащихся по темам:

    1. графические операторы,

    2. циклы.

    Задачи урока:

    • Образовательные — повторить основные графические операторы, оператор цикла; вспомнить назначение генератора случайных чисел; провести эксперимент по движению фигур (неоновая гирлянда).

    • Развивающие – формировать у учащихся приемы логического и алгоритмического мышления

    • Воспитательные – воспитывать творческий подход к выполнению задания

    План урока.

    1. Организационный момент. Правила по технике безопасности.

    2. Ознакомление с темой урока.

    3. Проверка домашнего задания .

    4. Разобрать программу “Звездное небо”.

    5. Рассмотреть аналогичные программы: “разноцветные линии, шары”.

    6. Индивидуальные задания по карточкам – оживи картинку.

    7. Домашнее задание.

    8. Подведение итогов.

    Ход урока

    1. Спокойно, не толкаясь, заходят ребята в класс. Готовятся к уроку. Повторяются правила по технике безопасности и делаются соответствующие записи в тетради.

    2. Поясняется тема урока.

    3. Домашнее задание проверяется в виде фронтального опроса. Ученики называют графические операторы, форматы их записи, вспоминают определение цикла с параметром и назначение генератора случайных чисел.

    4. Один ученик у доски с помощью учителя пытается составить программу “Звездное небо”.

    Учитель: “Сколько звезд на небе?”

    Ученики называют числа.

    Учитель: “Звезд на небе много. Экран компьютера – это маленькое окошечко-телескоп, через которое мы можем посмотреть на небо. Можно навести свой телескоп на участок, где совсем мало звезд, а можно и на Млечный путь. Как записать программные строчки, в которых компьютер запросил бы количество звезд?”

    Ученик пишет на доске: INPUT “Сколько звезд на небе”; N

    Учитель: “Какой оператор поможет нам просматривать звезды от первой до последней?”

    Ученик:

    FOR n=1 TO N
    NEXT N

    Учитель: “А чтобы звезды загорались, что должно являться телом цикла?”

    Ученик1: “Надо задавать координаты точек в разных местах экрана. Это нам поможет сделать генератор случайных чисел.”

    Ученик2: В графическом режиме SCRЕЕN 12 по горизонтали 640 точек, а по вертикали 464, программные строчки будут выглядеть так:

    X= RND(1)*640
    Y= RND(1)*464”

    Учитель: “ А какого цвета звездочки на небе?”

    Ученик2: “ Звездочки – точки разного цвета, поэтому через генератор случайных чисел зададим цвет

    Z=RND(1)* 15
    PSET (X,Y),Z”

    Учитель: “Посмотрите еще раз на программу, и, если кому-то что-то не понятно, поднимите руку.”

    SCRЕЕN 12
    INPUT “Сколько звезд на небе”; N
    FOR n=1 TO N
    X= RND(1)*640
    Y= RND(1)*480
    Z=RND(1)* 15
    PSET (X,Y),Z
    NEXT N

    Учитель: “А как сделать так, чтобы звезда зажглась, порадовала нас немножко и погасла?”

    Ученик: “Надо после оператора PSET поставить цикл задержки и сделать очистку экрана или погасить точку сделав ее черной по цвету.

    FOR к=1 TO 25000
    NEXT к
    PSET (X,Y),0”

    Учитель: “Дома я попрошу Вас попытаться нарисовать блок-схему к этой задаче. А теперь давайте подумаем, как получить разноцветные линии разной длины, разного цвета, в разных местах экрана.”

    Ученик: “Надо оператор точки заменить на оператор линии и задать недостающие координаты Х2 и Y2

    X1= RND(1)*640
    Y1= RND(1)*464
    X2= RND(1)*640
    Y2= RND(1)*464
    LINE (X1,Y1) – (X2,Y2),Z

    Учитель: “Ну, а разноцветные шары, я думаю, Вы сделаете сами на компьютере, внеся изменения в Вашу программу.”

    Показать учителю на экране компьютера: 1. Звездное небо, 2. Разноцветные линии, 3. Разноцветные шары.

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

    А теперь самое главное — эксперимент!

    Вы получаете карточку с индивидуальным заданием. Попытайтесь “оживить” данный рисунок. Используя движение, цвет…, т.е. сделайте “неоновую рекламу”.

    Карточки.

    Картинки должны быть похожи, приветствуется увеличение количества элементов рисунка.

    Подведение итогов.

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

    Напоминаю домашнее задание: нарисовать блок-схему для задачи “Звездное небо”.

    QBasic — Цвета

    Домашняя страница | Оптические иллюзии | Военные истории | QBasic | Папы дни флота | Бристоль | Бристоль, США | Бристоль, Канада | Terre Haute | Разное | Интернет-материалы | О Рэе | Карта сайта | Поиск по сайту | Сообщения | Кредиты | Ссылки | Веб-кольца

    QBasic | Ошибки | 40 фунтов Вес | Биты | Шанс | Цвета | Даты | Задержки | Файловый диалог | Файлы | Вход | Соответствие | Меню | Мышь | Числа | SeqNo | SIRDS | Сорта | Текст | Таймер | DLoads

    Цвета

    Скриншот Color.bas

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

     DIM TCol AS INTEGER 'Цвет текста
DIM BCol AS INTEGER 'Цвет фона

ДЛЯ TCol = от 0 до 31

   CLS
   ДЛЯ BCol = от 0 до 15
      ЦВЕТ TCol, BCol
      ПЕЧАТЬ "Цвет текста"; TCol; ", Цвет фона"; BCol;
   СЛЕДУЮЩИЙ BCol

   ДЕЛАТЬ
   ПЕТЛЯ ДО ЧЕРНИЛ $ <> ""

СЛЕДУЮЩИЙ TCol

КОНЕЦ

    Эта программа показывает различные цвета, доступные на текстовом экране.Если когда запустив его, вы получите сообщение об ошибке, это означает, что значения TCol или BCol могут быть слишком высокими для вашего монитора. Когда вбегает В графическом режиме большинство мониторов может отображать гораздо больше цветов, чем эти.

    После просмотра одного экрана вы можете перейти к следующему, нажав любую ключ.

    QBasic | Ошибки | 40 фунтов Вес | Биты | Шанс | Цвета | Даты | Задержки | Файловый диалог | Файлы | Вход | Соответствие | Меню | Мышь | Числа | SeqNo | SIRDS | Сорта | Текст | Таймер | DLoads

    Домашняя страница | Оптические иллюзии | Военные истории | QBasic | Папы дни флота | Бристоль | Бристоль, США | Бристоль, Канада | Terre Haute | Разное | Интернет-материалы | О Рэе | Карта сайта | Поиск по сайту | Сообщения | Кредиты | Ссылки | Веб-кольца

    Счетчик статистики
    GoStats

    Оператор Qbasic Color

    Оператор Qbasic Color используется для изменения цвета переднего плана и фона текста в программе QBasic.Синтаксис: ЦВЕТ передний план, фон

    Слово «цвет переднего плана» означает цвет текста, а цвет фона означает цвет, который появляется за текстом.

    Вы можете использовать оператор COLOR в Qbasic следующими способами:

    1) Чтобы изменить цвет переднего плана и фона:

    ЦВЕТ [цвет переднего плана], [цвет фона]

    Используйте запятую для разделения цвета переднего плана и фона.

    Примеры:

    КОД ПРОГРАММЫ

    ЦВЕТ 14, 1

    ПЕЧАТЬ Желтый текст на синем фоне

    2) Чтобы изменить только цвет переднего плана:

    ЦВЕТ [передний план]

    Примеры:

    КОД ПРОГРАММЫ

    ЦВЕТ 2

    ПЕЧАТЬ «Это зеленый текст»

    3) Изменить только цвет фона

    ЦВЕТ, [фон]

    Используйте запятую после команды ЦВЕТ, а затем код цвета фона

    Примеры:

    КОД ПРОГРАММЫ

    ЦВЕТ, 1

    ПЕЧАТЬ «это синий фон»

    Если вы хотите полностью изменить цвет фона экрана, используйте команду CLS после установки цвета фона.

    Примеры:

    КОД ПРОГРАММЫ

    ЦВЕТ 14, 1

    CLS

    ПЕЧАТЬ «Желтый текст на синем фоне всего экрана»

    Цвет переднего плана и фона представлены числами в Qbasic. Вы можете использовать цветовые коды qbasic, чтобы изменить цвет в соответствии с вашими предпочтениями:

    Qbasic Таблица цветовых кодов

    Имеется 16 цветов (в режиме экрана 0), пронумерованных от 0 до 15.

    Из таблицы цветовых кодов видно, что существует 8 основных цветов (от 0 до 7), а цвета от 8 до 15 — это просто повторения цвета от 1 до 7, но более светлого оттенка. Цвета представляют собой комбинацию двоичных значений (синий = 1, зеленый = 2, красный = 4), что упрощает запоминание цветовых кодов.

    Если вам нужен мигающий цвет, он доступен с цветового кода от 16 до 31. При значении 16 цвет снова начинается с мерцающего черного цвета и заканчивается мигающим белым на значении 31. Параметр мигания недоступен для фона, он работает только для цвет переднего плана (цвет текста).Вот пример того, как получить мигающий цветовой код = 2 (зеленый цветовой код) + 16 = 18 (мигающий зеленый цвет), 4 (красный цветовой код) + 16 = 20 (мигающий красный цвет).

    графики — Почему на старых IBM-PC-совместимых компьютерах было доступно только 16 цветов?

    Как были выбраны цвета, зависит от того, почему их всего 16.

    Короче говоря, монитор CGA принимает 4-битный цветовой ввод RGBI, что означает 16 цветов. Каждый бит цвета RGB превращает электронную пушку для этого цвета, а бит I добавляет яркости всем пушкам, а коричневый цвет обрабатывается за исключением.

    Цветной монитор оснащен тремя электронными пушками для трех цветных люминофоров: красного, зеленого и синего. Поэтому, если каждый цвет просто включен или выключен, вам понадобится три бита для управления электронными пушками, что позволяет использовать 8 цветов. Черный цвет — все пистолеты выключены, белый — все пистолеты. Три цвета с одним пистолетом — красный, зеленый и синий. Три цвета с двумя включенными пистолетами — голубой, пурпурный и желтый.

    Для каждой символьной ячейки в режиме цветного текста CGA резервирует один полный байт для кода символа и один полный байт для 8-битных атрибутов символа.

    Если бы в мониторе было 2 цветных бита на пистолет (что и делает EGA), он использовал бы 6 бит для 64 цветов — слишком много для хранения. Также имеет смысл иметь больше цветов, чем 8, поэтому использовался байт атрибута, чтобы иметь 4 бита цвета переднего плана и 4 бита для цвета фона. Затем оставался один бит для каждого цветного пушки и один дополнительный бит для интенсивности, поэтому было достаточно иметь 4 цветовых бита, позволяющих использовать 16 разных цветов. Таким образом, три бита управляют оружием по отдельности, а один бит добавляет яркости всем им.

    Есть один специальный механизм для изменения цветовой палитры монитора. Есть ярко-желтый, но нет темно-желтый. Битовая диаграмма для темно-желтого является особенной, и аналоговые напряжения для управления электронными пушками изменены, чтобы вместо этого получить коричневый цвет. Это в основном означает, что ЦАП или таблица поиска цвета для преобразования битовых комбинаций значений цвета в аналоговые напряжения видеосигнала находится в мониторе CGA, который принимает цифровой 4-битный вход RGBI.

    Другой специальный механизм был реализован в карте CGA, который влияет на выбор цвета фона текстового режима.Можно выбрать четвертую функцию бита фонового атрибута. По умолчанию он контролирует, мигает ли цвет переднего плана или нет, поэтому для выбора доступны только 8 темных цветов фона. Его можно изменить для управления битом интенсивности фона, который позволяет выбрать все 16 цветов фона, но тогда мигающий текст будет невозможен.

    Объяснение того, как порядок цветов определяется из битов RGBI, управляющих электронными пушками:

      X = бит IRGB = цвет
0 = 0000 = черный
1 = 0001 = синий (темный)
2 = 0010 = зеленый (темный)
3 = 0011 = Голубой (Темный)
4 = 0100 = Красный (Темный)
5 = 0101 = пурпурный (темный)
6 = 0110 = коричневый (на самом деле темно-желтый, который на мониторе настроен на коричневый)
7 = 0111 = Белый (на самом деле, темно-белый, серый, ярко-серый, светло-серый)
8 = 1000 = серый (на самом деле, темно-серый, ярко-черный, интенсивный черный)
9 = 1001 = синий (яркий)
A = 1010 = зеленый (яркий)
B = 1011 = голубой (яркий)
C = 1100 = красный (яркий)
D = 1101 = пурпурный (яркий или розовый)
E = 1110 = желтый (яркий)
F = 1111 = белый (яркий)

    чаглартоклу / qbcolor.vim: цветовая схема Vim, похожая на старый добрый Microsoft QuickBASIC.

    qbcolor.vim — это цветовая схема Vim, которая выглядит как старый добрый Microsoft QuickBASIC.

    Страница скрипта Vim: https://www.vim.org/scripts/script.php?script_id=5787

    Основан на ibmedit.vim colorscheme от maarten s.

    qbcolor.vim в Vim в Windows 10

    Шрифт, использованный на скриншоте:

      установить gfn = PxPlus_IBM_VGA9: h28: cANSI: qDRAFT

    Его можно скачать здесь: https: // int10h.org / oldschool-pc-fonts / readme /

    qbcolor.vim на Vim на DOSBox

    оригинальный QuickBASIC 4.5 на DOSBox для сравнения

    Файл на скриншотах — Gorilla.bas, видеоигра, впервые распространенная с MS-DOS 5.0, в которую мы много играли 🙂

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

    Для этого необходимо добавить один из следующих фрагментов кода в VIMRC перед следующей строкой:

    dark_blue фон
     пусть g: qbcolor_bg = "dark_blue"

    темно-серый фон
     пусть g: qbcolor_bg = "dark_gray"

    черный фон
     пусть g: qbcolor_bg = "черный"

    Восстановление оригинального синего

    Просто удалите let g: qbcolor_bg = ".. "Линия . Синий фон также можно задать явно:

     пусть g: qbcolor_bg = "qb_blue"

    Для пользователей Vundle:

      Плагин caglartoklu / qbcolor.vim

    Для всех остальных пользователей просто перетащите файл qbcolor.vim на свой цветов справочник.

    ftcolor.vim

    ftcolor.vim — это плагин Vim, который переключает цветовые схемы в соответствии с типом файла.

    fbc.vim

    fbc.vim — это плагин компилятора Vim для FreeBASIC.Он компилирует буфер с помощью FreeBASIC и показывает результаты компиляции в окне quickfix.

    Файл синтаксиса Freebasic-vim

    Freebasic-vim-syntax-file — это файл синтаксиса для Vim. Это файл синтаксиса, используемый на снимках экрана на этой странице.

    QB64

    • QB64 — это компилятор BASIC с собственным хостом для Microsoft Windows, Linux и Mac OS X, совместимый с Microsoft QBasic и QuickBASIC. QB64 — это эмиттер C ++, который интегрирован с компилятором C ++ для обеспечения компиляции с помощью кода C ++ и оптимизации GCC.QB64 реализует большинство операторов QBasic и может запускать многие программы QBasic, включая игры Microsoft QBasic Gorillas и Nibbles. См. Больше в Википедии.

    FreeBASIC

    • FreeBASIC — это мультиплатформенный компилятор BASIC со свободным / открытым исходным кодом (GPL) для Microsoft Windows, MS-DOS в защищенном режиме (расширитель DOS), Linux, FreeBSD и Xbox. См. Больше в Википедии.

    Изменение цветов

    Изменение цветов

    Ответ: 

    'Нарисуйте по 10 красных воздушных шаров ниткой
ЭКРАН 12 'стартовая графика
ЦВЕТ 4 'установите красный цвет пера
'
LET BALLOON = 1 'начнем с воздушного шара номер 1
СДЕЛАЙТЕ НА ШАРЕ <= 10 футов, заканчивая воздушным шаром номер 10
  Пусть X = ШАР * 64-32 'вычислите X для этого шара
  КРУГ (X, 100), 25 'нарисуйте воздушный шарик
  LINE (X, 125) - (X, 225) 'нарисуйте его строку
  LET BALLOON = BALLOON + 1 'перейти к следующему воздушному шару
ПЕТЛЯ
'
КОНЕЦ

    Поскольку строка находится в том же столбце, что и центр круга, и startX, и endX имеют одно и то же значение, X балуна центр.Поскольку радиус воздушного шара равен 25, струна должна начинаться 25 пикселей вниз от центра:

    Центр: (X, 100)
25 пикселей вниз: (X, 125)

    Помните, что Y увеличивается при понижении. Чтобы сделать строку длиной 100 пикселей, добавьте 100 к startY строки:

    Начало строки: (X, 125)
Конец строки: (X, 225)

    Воздушный шар и веревка выглядят следующим образом:

    Но пока программа рисует и шарик, и строку одним и тем же цветом (красный, цвет номер 4).Вот программа, опять же, но с некоторыми изменениями, сделанными частично так, чтобы воздушный шар нарисован цветом ручки номер 4 (КРАСНЫЙ), и нарисована нить цветным пером номер 2 (ЗЕЛЕНЫЙ):

    'Нарисуйте 10 красных воздушных шаров ЗЕЛЕНОЙ нитью каждый.
ЭКРАН 12 'начальная графика
'
LET BALLOON = 1 'начнем с воздушного шара номер 1
СДЕЛАЙТЕ НА ШАРЕ <= 10 футов, заканчивая воздушным шаром номер 10
  Пусть X = ШАР * 64-32 'вычислите X для этого шара
'
  ЦВЕТ ______ 'установите красный цвет пера
  
  КРУГ (X, 100), 25 'нарисуйте воздушный шарик
'
  ЦВЕТ ______ 'установите зеленый цвет пера
  
  LINE (X, 125) - (X, 225) 'нарисуйте его строку
  LET BALLOON = BALLOON + 1 'перейти к следующему воздушному шару
ПЕТЛЯ

КОНЕЦ

    ВОПРОС 23:

    Заполните пропуски в заявлениях COLOR .

    QBasic Gorillas - Проекты MaiZure

    Microsoft распространяла QBasic Gorillas с более поздними версиями MS-DOS, чтобы продемонстрировать возможности их QBasic IDE. Я помню, как обнаружил его вскоре после обновления ОС на моем 386 SX 25. Мой опыт программирования в то время был ограничен vi, редактированием и интерфейсом BASIC. QBasic IDE была знакома и очень похожа на редактирование. Оглядываясь назад, я понимаю, что формат редактирования был очень популярен во многих IDE разработки, таких как Borland.

    Игра очень простая по меркам 1990 года. Если бы мне пришлось датировать концепцию и особенности, я бы, вероятно, поместил Gorillas ближе к 1982 году, особенно если учесть, что Scorched Earth была выпущена в следующем году. Одно оружие, игра с горячим сиденьем, около 6 цветов. Да, эта игра не дотягивает до планки 1990 года. Тем не менее, она занимает для меня особое место, потому что из нее я усвоил две важные концепции программирования: хранение графических данных в виде целых чисел и управление компьютерным оборудованием. Последнее в конечном итоге стало моим постоянным интересом, поэтому я быстро перешел к изучению Си вскоре после этого.

    Прежде чем я продолжу, позвольте мне показать код и пошаговое руководство
    (Исходный код) (с номерами строк) ( Прохождение кода )

    Давайте взглянем на теперь (очень устаревшие) уроки, которые QBasic Gorillas преподал мне в свое время.

    Доступ к службам BIOS в QBasic

    Идея о том, что можно управлять оборудованием с помощью программирования, была для меня в то время волшебной. В Gorilla использование настолько тривиально, что вы почти не замечаете, что игра включает клавишу NumLock при запуске.Однако меня зацепило. Во времена, когда еще не было Интернета, не было хороших ресурсов для исследования того, как все работает (по крайней мере, в моем маленьком городке). Я провел дни, возясь с командой POKE внутри и вокруг смещения памяти 1047 с различными битовыми масками. К счастью, сейчас нам не нужно экспериментировать.

    BIOS Данные в DOS могут быть доступны в BASIC через PEEK & POKE, указав на базовый сегмент памяти 0 и сдвинув 1024 байта (0x400). Данные BIOS занимают следующие 256 байт (1024-1280 / 0x400-0x4FF).Первый байт состояния клавиатуры находится со смещением 0x17 от начала BIOS - по необработанному адресу памяти 0x417. Биты этого байта означают следующее:

    Бит 0 - статус сдвига вправо
    Бит 1 - статус сдвига влево
    Бит 2 - статус клавиши управления
    Бит 3 - статус клавиши Alt
    Бит 4 - статус клавиши ScrollLock
    Бит 5 - статус клавиши NumLock
    Бит 6 - клавиша CapsLock статус
    Бит 7 - Вставить статус ключа

    Есть много других полезных областей памяти для QBasic в DOS, таких как: 0xA000 - прямой портал в видеопамять, включая буфер кадра 0x21 для отправки и получения произвольных данных из вектора прерывания DOS.

    Нет предела!

    Дополнительные сведения о карте данных BIOS в DOS см. На этом ресурсе:

    Форматы данных изображения в QBasic

    Второй проблемой QBasic Gorillas был формат хранения анимированных бананов. Это казалось бессмысленным числовым значением, и у меня было лишь смутное ощущение, что они отображают цвета пикселей на двоичном уровне. Потребовалось немало усилий, чтобы понять, как это работало в 1990 году, и, оглядываясь на это сегодня (2017 год), я могу понять, почему.Формат не сравнится ни с чем, что мы видим сегодня. Тем не менее, это имеет смысл на самом низком уровне управления битовыми полями для изображений произвольных размеров. Нам нужно описание того, как собрать изображение.

    Первые 4 байта последовательности DATA обеспечивают заголовок, описывающий размеры последующих данных. Первые 2 байта содержат ширину (X), а следующие два байта содержат Y (высоту). Обратите внимание, что этот формат заголовка немного отличается в режимах экрана 1, 9 и 13 (EGA, CGA и VGA).

    Например, изображение 3x4 будет сохранено с этими 4-байтовыми заголовками в различных режимах экрана:

    CGA - Целочисленное значение - 262150. Байт 1 (X) - 6 (00000110)
    EGA - Целочисленное значение - 262147. Байт 1 (X) - 3 (00000011)
    VGA - Целочисленное значение - 262168. Байт 1 (X) - 24 (00011000)
    Все режимы имеют один и тот же байт 3 (Y), который равен 4 (00000100)

    Только экранный режим EGA напрямую преобразует значения размера X. CGA В режиме влево базовое значение сдвигается на 1, а в режиме VGA влево - на 3.

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

    .

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

    Хватит болтовни, давайте посмотрим на конкретные примеры из кода Gorilla:

    CGA Банановый левый

    В CGA 2 бита представляют один пиксель, всего 4 возможных цвета.

    ДАННЫЕ 327686, -252645316, 60

    EGA Банановый левый

    EGA допускает 4-битный цвет (всего 16), но биты хранятся в плоскостях, а не последовательно. Чтение выровненного по битам положения в каждой плоскости определяет цвет.

    ДАННЫЕ 458758, 202116096, 471604224, 943208448, 943208448, 943208448, 471604224, 202116096, 0

    Обратите внимание, что банан виден в трех наиболее важных плоскостях. Таким образом, значение пикселя в этой позиции равно 8 + 4 + 2 == 14.Цвет 14 в стандартной палитре EGA - желтый.

    программ QBasic

    программ QBasic

    QBasic программы

    Это некоторые старые программы QBasic, которые у меня были в резервной копии моего компьютера. семья была раньше. (Мы использовали компьютер для подключения к Интернету. по AOL в то время.) Согласно датам изменения файла и комментарии внутри файлов, которые я написал в период с 1996 по 1999 год.

    Я был поражен, когда обнаружил, что FreeBASIC мог компилироваться и запускаться их, даже графические программы, некоторые без изменений.Так что я упаковал их и положил сюда. Несмотря на то, что файлы могут утверждать, я теперь выложите их в открытый доступ.

    В средней и старшей школе я много программировал на своем TI-82. графический калькулятор на TI-BASIC. Калькулятор игр был сам по себе сцена тогда. Некоторые из этих программ являются портами с калькулятора.

    Вы можете скачать все файлы вместе:

    Они поставляются с make-файлом для их сборки. Чтобы получить ветку Базара, сделайте
    bzr получить http: // www.bamsoftware.com/bzr/qbasic
    Версия 1 содержит исходные файлы в том виде, в каком я их нашел, до создания любые изменения, требуемые FreeBASIC.

    Глядя на эти скриншоты, помните, что на 320 × 200 или 640 × 480 они занялись весь экран. Некоторые программы не указаны здесь, потому что я не мог заставить их скомпилировать. Увидеть README для более.

    Fractal.bas. Создает фрактал Мандельброта и сохраняет его в растровое изображение.
    ant2.bas. Рисует несколько Муравьи Лэнгтона, написано до того, как я узнал, как они называются. Этот вырос из программа-калькулятор. На калькуляторе графика была настолько медленной, что потребовалось У муравья долгое время, чтобы построить свое первое шоссе.

    бамнит.бас. Бамн! Программа, передающая файл по телефонному модему. Я не могу вспомните, сработало ли это; Я был бы впечатлен, если бы это было так.

    Я взял подпрограмму меню из программы Марка Кима под названием BASTerm.BAS, чей веб-сайт когда-то http: // members.aol.com/markkkim, но теперь похоже http://markuskimi.us/. Это банальная процедура, но было время когда у меня не было концепции функции, возвращающей значение; это было мистический для меня.

    Я думаю, что код отправки файла основан на коде программы под названием "Маленький ублюдок" Modem WarFare (MWARFARE.BAS) от Molnar \ Kucalaba Productions, чей веб-сайт когда-то был http://members.aol.com/blood225, но теперь кажется http://mk-home.com/. По крайней мере, это то, что предлагает одно имя переменной sflag ; я делаю помните, что читали код и не знали, что использовать переменную в качестве имелось ввиду "флаг".

    bamstart.bas. Анимированное вступление к BAM Software. Я думаю, что когда-то планировал бежать анимация в начале всех наших программ. Код был переведен из программы TI-82 с теми же эффектами.

    В этом вступлении есть приятные визуальные эффекты. Посмотреть их все: 1 2 3 4 5.

    boom.bas. Моделирует взрыв сотен цветных пикселей. Я, должно быть, написал это после того, как я узнал о структурах данных ( TYPE Dot ), потому что раньше я бы справился с этим с параллельными массивами.Скорость переменные объявляются как целые числа, поэтому дискретных начальные горизонтальные скорости. Это заставляет пиксели сортировать себя в видимые бункеры после того, как взрыв немного продвинулся. я помню эта программа заметно замедлялась, когда я ее писал, но мне пришлось назад и добавьте задержку, чтобы сделать его доступным для просмотра на новом компьютере.
    bootcamp.bas. Это просто подпрограмма меню, имитирующая подпрограмму TI-82. Я написал его для своего друга Хён Гу Ли, чтобы он мог портировать свой BOOTCAMP меню-приключенческая игра от TI-82 до QBasic.
    box.bas. Эксперимент с субпиксельным рендерингом. Клавиши со стрелками перемещают поле. Его краевые пиксели окрашены в оттенки серого в зависимости от того, насколько пиксель условно занимает коробка.
    col.bas. Цветной дисплей. Нажмите клавиши со стрелками влево и вправо, чтобы увидеть все цвета. Комментарии внизу относятся к цветам для ramismak.bas.
    fire.bas. Это небольшая демонстрация эффекта «взлетающего дыма».
    firework.bas. Демонстрация физики фейерверков. Нажмите Enter, чтобы очистить экран, или +, чтобы сохранить растровое изображение (использует тот же код, что и бмпер.бас).
    fonter.bas. Это тестовая программа для шрифтов, созданных fontmake.bas. Он отображает содержимое файла с использованием настраиваемого шрифта. Я думаю, это было вдохновлено программа под названием FONTLOAD.BAS. Этот код более экономичен тем, что хранит один пиксель на бит в файле шрифта, а не один пиксель на байт.
    Fractpix.bas. Еще один эксперимент с субпиксельным рендерингом. Заполняются два индикатора выполнения; один с псевдонимом и один со сглаживанием. После этого псевдоним и сглаживание столбцы перемещаются по экрану. Я думаю, что имя файла сокращено от «дробный пиксель».
    гольф.бас. Я не уверен, но я думаю, что это была проверка пересечения двух линий сегменты, как часть физики игры в гольф.
    граф.bas. Рисует график одной или нескольких функций ( yv (1) .equ и т. Д.) И сохраняет это в растровое изображение. Я использовал эту программу для создания графика для отчета в средняя или старшая школа. Учитель спросил, какую программу я использовал; он был был впечатлен, когда сказал, что написал это сам.

    graphics.bas. Редактор изображений. Когда я экспериментировал с программированием игр, я хотел способ рисовать графику, который был проще, чем вводить команды для рисования точки и линии.Однако я не знал, как загружать растровую графику. Эта программа позволяет рисовать изображения с помощью нескольких инструментов рисования. Его выход это исполняемый код QBasic, который вы просто вставляете в свою программу. Для Например, инструмент спрей-краска раскрашивает случайные пиксели на некотором расстоянии. курсора; для каждого пикселя, который он рисует, он записывает оператор PSET в выходной файл. чувак был сделан с помощью этой программы. Я не мог найти ни одного лучшие примеры.

    Когда программа запускается, она запрашивает у вас диск и имя файла.На Unix вы можете использовать что-то вроде "a" и "image" для записи в файл. "A: IMAGE.BAS" в текущем каталоге. Затем вы должны выбрать имена переменных для опорных точек X и Y, вокруг которых изображение будет нарисован. Так что если в вашей программе местоположение игрока хранится в переменные playerx и playery введите "playerx, playery" и те имена переменных будут использоваться в выходном файле.

    Затем вы должны установить начальные значения centerx и centery переменные. Используйте 2, 4, 6 и 8, чтобы переместить курсор, и нажмите 5, когда вы находятся там, где вы хотите, чтобы изображение начиналось.

    Инструменты для рисования. Текущий инструмент обозначается значком в нижнем левый угол.

    • 0: изменить цвет.
    • пробел: нарисуйте пиксель под курсором.
    • e: Скопируйте прямоугольник с помощью GET. С помощью пробела отметьте два угла прямоугольника, затем введите его имя.
    • d: Вставить последний скопированный прямоугольник. Используйте пробел, чтобы разместить его.
    • r: Добавить комментарий REM в выходной файл.
    • c: Нарисуйте круг. Используйте пробел, чтобы отметить его центр и точку на его окружности.
    • l: начертить отрезок линии. Используйте пробел, чтобы отметить две конечные точки.
    • p: Заливка ведра под курсором.
    • q: Режим рисования пером. Снова нажмите q, чтобы вернуться в нормальный режим.
    • s: Spraypaint: используйте клавишу пробела, чтобы нарисовать случайное количество пикселей рядом с курсором.
    • г: включение и выключение точек сетки. Не влияет на выходной файл.
    • x: Выход.

    Источник изображений слева: abstract.bas, space.bas.

    понг.bas. Графическая демонстрация чего-то вроде трехмерной игры в понг. Круг подпрыгивает вокруг внутри комнаты. Нажмите t, чтобы переключить линии отслеживания.
    quadrati.c. Программа с квадратными формулами, перенесенная непосредственно с TI-82. Это не Программа C; странное имя файла, я думаю, артефакт QBasic алгоритм именования - все, что находится за восьмым символом, становится расширение.

    spaceman.bas. Отличный экшен, портированный с TI-82.Описание миссии: «Ты являются пилотом космической дивизии морской пехоты США. Ваша миссия - сопроводить транспорт до следующей станции. Если вы встретите любые вражеские корабли, открывайте огонь ». Вы должны взорвать вражеские корабли с помощью лазер, прежде чем они врежутся в вас, пока не истечет таймер. Это прямой порт от TI-82, ведущий к потоку программы на основе GOTO . Если вы выберете опция 5 в главном меню вы можете установить свой позывной и получить персональную настройку сообщения, когда вы наберете достаточно убийств.

    Author: alexxlab

    Добавить комментарий

    Ваш адрес email не будет опубликован. Обязательные поля помечены *