Нарисовать любой рисунок

11.04.2010, 09:54. **Показов** 65514. **Ответов** 9

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

помогите пожалуиста.
сделать простенький рисунок в qbasic.
.

@WolfCF · 11.04.2010, 10:02

вот вам

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

Графические операторы.

SCREEN R, Ц

R-номер режима (0,1 ,7,8.)
Ц - константа определяющая вывод в цветном или черно-белом варианте
Ц>0-изображение черно-белое
Ц=0-изображение цветное

COLOR I, F
F-цвет фона (номер)
I-цвет изображения (номер)

CLS

-оператор очищающий экран (“заливает” весь экран цветом фона)

PSET(х , у),Ц

-оператор изображающий точку с координатами (x, y), где Ц - цвет точки.

LINE (х1,у1)-(х2, у2),Ц

- оператор изображающий отрезок прямой
(х1, у1)- начало отрезка
(х2 ,У2)- конец отрезка
Ц- номер цвета

LINE ( х1,у1)-(х2,у2),Ц,Р

- оператор изображающий прямоугольник со сторонами, параллельными осями координат.
(х1,у1)-координаты левой верхней вершины
(х2, у2)- координаты правой нижней
Р-параметр принимающий значения :
В- изображается контур прямоугольника
ВF- изображается закрашенный прямоугольник

CIRCLE (х,у),R,Ц

-изображает окружность
(х ,у)- координаты центра окружности
R- радиус окружности
Ц- цвет окружности
CIRCLE (х,у),R,Ц,,, Л
-изображает эллипс
(х ,у)- координаты центра окружности, из которой эллипс получается
R- радиус окружности
Ц- цвет окружности
К-значение коэффициента сжатия
CIRCLE (х,у),R,Ц,а,в
-изображает дугу окружности (дуга строится от угла а к углу в)
(х ,у)- координаты центра окружности, из которой эллипс получается
R- радиус окружности
Ц- цвет окружности
а - угол
в - угол
PAINT (x, y), c1, c2 - закрашивает замкнутые контуры
(х ,у)- координаты любой точки внутри закрашиваемого контура
с1 - цвет, которым закрашивается контур
с2 - цвет самого контура

стройте что хотите.

@**Principle** · 11.04.2010, 20:31

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
Sqreen 12
CIRCLE (240,240),25
CIRCLE (360,240),25
LINE (270,240)-(330,240)
LINE (180,240)-(180,180)
LINE (420,240)-(420,180)
LINE (180,240)-(210,240)
LINE (390,240)-(420,240)
LINE (180,180)-(240,180)
LINE (380,180)-(420,180)
CIRCLE (300,180),80 ,, 0 , 3.14
CIRCLE (240,240),30 ,, 0, 3.14
CIRCLE (360,240),30 ,, 0, 3.14

потом нажимаете F5
и на черном экране появится машинка

@кот Бегемот · 11.04.2010, 20:52

PureBasic
1
Sqreen 12

точнее будет

PureBasic
1
Screen 12

@**Principle** · 12.04.2010, 21:07

упс
прошу простить screen 12

@Roman4859 · 16.05.2016, 15:34

Вот прога которая нарисует домик

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
SCREEN 12
LINE (50, 100)-(100, 50)
LINE (100, 50)-(150, 100)
LINE (50, 100)-(150, 100)
LINE (50, 100)-(50, 150)
LINE (150, 100)-(150, 150)
LINE (50, 150)-(150, 150)
LINE (60, 110)-(60, 140)
LINE (60, 110)-(80, 110)
LINE (80, 110)-(80, 140)
LINE (60, 140)-(80, 140)
LINE (140, 110)-(140, 140)
LINE (140, 140)-(120, 140)
LINE (120, 140)-(120, 110)
LINE (120, 110)-(140, 110)
LINE (60, 120)-(80, 120)
LINE (70, 110)-(70, 140)
LINE (140, 120)-(120, 120)
LINE (130, 110)-(130, 140)
CIRCLE (100, 80), 10
LINE (90, 80)-(110, 80)
LINE (100, 70)-(100, 90)

@Roman4859 · 16.05.2016, 15:42

вот что должно получится

echs · 16.05.2016, 16:28

Вот так можно нарисовать прямоугольник

QBasic/QuickBASIC
1
2
3
4
SCREEN 12
LINE (100, 100)-(400, 200), 11, B  ' простой прямоугольник
 
LINE (100, 100)-(400, 200), 11, BF  ' закрашенный прямоугольник

@przvl · 05.02.2022, 00:13

Помогите пожалуйста нарисовать робота в QBasic

@qbfan · 05.02.2022, 13:00

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
'freebasic, qbasic
SCREEN 12
' FreeBasic позволяет загрузить BMP картинку на экран и по ней обвести линии
'bload "qbrobot.bmp",0
' Цвет картинки 
c = 14
' golova
LINE (320 - 80, 160)-STEP(80 * 2, 270), c, B
'ushi
PSET (320 + 80, 230), c
LINE -STEP(70, -30), c
LINE -STEP(0, 140), c
LINE -STEP(-70, -30), c
 
PSET (320 - 80, 230), c
LINE -STEP(-70, -30), c
LINE -STEP(0, 140), c
LINE -STEP(70, -30), c
 
'glaza
CIRCLE (320 + 40, 220), 20, c, , , .5
CIRCLE (320 - 40, 220), 20, c, , , .5
 
' nos
PSET (320, 250), c
LINE -STEP(20, 90), c
LINE -STEP(-20, 0), c
PSET (320, 250), c
LINE -STEP(-20, 90), c
LINE -STEP(20, 0), c
PAINT (320, 260), 1, c
 
' rot
LINE (320 - 30, 360)-(320 + 30, 390), c, B
PAINT (320 - 25, 365), 4, c
 
' antenny
PSET (340, 160), c
LINE -STEP(50, -70), c
CIRCLE (400, 80), 10, c
 
PSET (340, 160), c
LINE -STEP(-55, -55), c
CIRCLE (280, 100), 10, c
 
SLEEP

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

wolfman92

	Нарисовать любой рисунок 11.04.2010, 09:54. Показов 65514. Ответов 9 Метки нет (Все метки) помогите пожалуиста. сделать простенький рисунок в qbasic. .

@WolfCF 3317 / 1379 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	11.04.2010, 10:02
	вот вам графические операторы Графические операторы. SCREEN R, Ц R-номер режима (0,1 ,7,8.) Ц - константа определяющая вывод в цветном или черно-белом варианте Ц>0-изображение черно-белое Ц=0-изображение цветное COLOR I, F F-цвет фона (номер) I-цвет изображения (номер) CLS -оператор очищающий экран (“заливает” весь экран цветом фона) PSET(х , у),Ц -оператор изображающий точку с координатами (x, y), где Ц - цвет точки. LINE (х1,у1)-(х2, у2),Ц - оператор изображающий отрезок прямой (х1, у1)- начало отрезка (х2 ,У2)- конец отрезка Ц- номер цвета LINE ( х1,у1)-(х2,у2),Ц,Р - оператор изображающий прямоугольник со сторонами, параллельными осями координат. (х1,у1)-координаты левой верхней вершины (х2, у2)- координаты правой нижней Р-параметр принимающий значения : В- изображается контур прямоугольника ВF- изображается закрашенный прямоугольник CIRCLE (х,у),R,Ц -изображает окружность (х ,у)- координаты центра окружности R- радиус окружности Ц- цвет окружности CIRCLE (х,у),R,Ц,,, Л -изображает эллипс (х ,у)- координаты центра окружности, из которой эллипс получается R- радиус окружности Ц- цвет окружности К-значение коэффициента сжатия CIRCLE (х,у),R,Ц,а,в -изображает дугу окружности (дуга строится от угла а к углу в) (х ,у)- координаты центра окружности, из которой эллипс получается R- радиус окружности Ц- цвет окружности а - угол в - угол PAINT (x, y), c1, c2 - закрашивает замкнутые контуры (х ,у)- координаты любой точки внутри закрашиваемого контура с1 - цвет, которым закрашивается контур с2 - цвет самого контура стройте что хотите. 0

@Principle 1 / 1 / 1 Регистрация: 10.04.2010 Сообщений: 17
	12.04.2010, 21:07
	упс прошу простить screen 12 0

@Roman4859 0 / 0 / 1 Регистрация: 10.04.2016 Сообщений: 13
	16.05.2016, 15:42
	вот что должно получится Миниатюры 0

@przvl 0 / 0 / 0 Регистрация: 05.02.2022 Сообщений: 1
	05.02.2022, 00:13
	Помогите пожалуйста нарисовать робота в QBasic Миниатюры 0

Нарисовать любой рисунок

Решение