Рисунок на QBasic

[GoldBerg]

Привет!
Ребята выручите меня! У меня завтра зачОт по информатике
и надо принести рисунок написаный на QBasic. Там кружки всякие, линии. Может у кого есть такие?? Plizz не пожалейте, дайте мене! Он очень пригодиться!
Если найдеться, скиньте на мыло: happy_leon@list.ru

[Sasha_karasov]

Какой именно рисунок?
Вот у нас в школе рисуют домики

[GoldBerg]

Да без разници че там....

[Шурик]

программа написана на VB
рисуешь и сохраняешь в QB *.bas файл
рисуй на здоровье...

[GoldBerg]

А кода рисунка какого нибудь есть?

[hCORe]

Дикое старье, но работает...

[Oxygen]

Тоже старье, на тему абстракции. Когда-то писалось от нечего делать ради эксперемента. Если менять функции, то можно получить очень даже неплохие экземпляры.

[Шурик]

Афтар - лентяй


ЗЫ Хорошо, когда есть домик на QBASIC

[GoldBerg]

Это конечно все здорово, но просто рисунок будет гораздо лучш е!

[A.A.Z.]

Код: Выделить всё

CONST PI = 3.1415926536#
CLS    ' Clear screen
SCREEN 1

CIRCLE (190, 100), 100, 1, , , .3   'Outline fish body in cyan.
CIRCLE (265, 92), 5, 1, , , .7      'Outline fish eye in cyan.
PAINT (190, 100), 2, 1              'Fill in fish body with magenta.

LINE (40, 120)-STEP(0, -40), 2      'Outline
LINE -STEP(60, 20), 2               '   tail in
LINE -STEP(-60, 20), 2              '      magenta.
PAINT (50, 100), 1, 2               'Paint tail cyan.

CIRCLE (250, 100), 30, 0, PI * 3 / 4, PI * 5 / 4, 1.5'Draw gills in black.
FOR Y = 90 TO 110 STEP 4
   LINE (40, Y)-(52, Y), 0          'Draw comb in tail.
NEXT

Знакомо, не правда ли?
Интересно, лазят ли учителя в MSDN? Если да, то лучше этот вариант не брать

[Mikle]

Эх народ, забыли уже классику:

Код: Выделить всё

DEFINT A-Z
SCREEN 12
DRAW "C2"             'Set color to magenta.
DRAW "F60 L120 E60"   'Draw a triangle.
DRAW "BD30"           'Move down into the triangle.
DRAW "P1,2"           'Paint interior.
SLEEP
SCREEN 0


[Шурик]

Хе.... а к чему

DEFINT A-Z

???

[GoldBerg]

Треугольник, это конечно круто!
Только вот боюсь мне за него зачет не поставят

[Шурик]

а что тебе надо вобще?Я идиот! Убейте меня, кто-нибудь!
Гыыыыыыыыыыыыыыыыы...........
хочешь картину Репина(можно типа того), по Pset нарисую)))))))
соответственно 16 цветов при screen 12 и 256 при screen 13???

[GoldBerg]

Нарисуй птичку сидящую на ветке, домик в котором горит свет и перед окном сидит нарик потягивающии свежий косячок плана и дымок не забудь!
Шутка конечно!
Ну чтото на подобие (это я про птичку), если кто может снеговика нарисовать и расскрасить, снежинки, нос морковкой, будет супер.

[Mikle]

Шурик
DEFINT A-Z - такой же "признак хорошего тона" для QB, как Option Explicit для VB. В данной программе он, действительно, не нужен, поставил по привычке.
GoldBerg
Я не пытался сделать работу за тебя, я продемонстрировал возможности оператора DRAW. Одной командой можно нарисовать практически любое изображение. Включи QB, набери "DRAW", нажми F1 - и будет тебе счастье.

[-=TsA=-]

Без комментариев...

PS. Просьба за мышку не хвататься!