Рисунок на QBasic

Вопросы по Microsoft Quick BASIC (и QBASIC).
GoldBerg
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 26.04.2005 (Вт) 21:19

Рисунок на QBasic

Сообщение GoldBerg » 26.04.2005 (Вт) 21:24

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

Sasha_karasov
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 436
Зарегистрирован: 03.03.2005 (Чт) 19:38
Откуда: ua.dp

Сообщение Sasha_karasov » 27.04.2005 (Ср) 5:51

Какой именно рисунок?
Вот у нас в школе рисуют домики
Удачи!
С уважением, Алексадр.

GoldBerg
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 26.04.2005 (Вт) 21:19

Сообщение GoldBerg » 27.04.2005 (Ср) 6:38

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

Шурик
Самогонщик
Самогонщик
Аватара пользователя
 
Сообщения: 1657
Зарегистрирован: 30.06.2003 (Пн) 13:27
Откуда: из запоя :))))) Матных сообщений: 972

Сообщение Шурик » 27.04.2005 (Ср) 10:27

программа написана на VB
рисуешь и сохраняешь в QB *.bas файл
рисуй на здоровье...
Вложения
QBPaint.zip
(50.9 Кб) Скачиваний: 1373

GoldBerg
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 26.04.2005 (Вт) 21:19

Сообщение GoldBerg » 27.04.2005 (Ср) 15:40

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

hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 27.04.2005 (Ср) 21:02

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

Oxygen
Белая и пушистая
Белая и пушистая
Аватара пользователя
 
Сообщения: 1314
Зарегистрирован: 15.07.2003 (Вт) 7:14
Откуда: Москва

Сообщение Oxygen » 28.04.2005 (Чт) 7:34

Тоже старье, на тему абстракции. Когда-то писалось от нечего делать ради эксперемента. Если менять функции, то можно получить очень даже неплохие экземпляры.
Вложения
STRFLD.zip
(557 байт) Скачиваний: 601
Процедура клонирования завершена.
Коррекция имплантированного сознания соответствует принятым алгоритмам.
Уникальный идентификатор скопирован в чип временного паспорта.
Активация прав гражданина ожидается в течение 24 часов

Шурик
Самогонщик
Самогонщик
Аватара пользователя
 
Сообщения: 1657
Зарегистрирован: 30.06.2003 (Пн) 13:27
Откуда: из запоя :))))) Матных сообщений: 972

Сообщение Шурик » 28.04.2005 (Чт) 8:45

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


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

GoldBerg
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 26.04.2005 (Вт) 21:19

Сообщение GoldBerg » 28.04.2005 (Чт) 17:13

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

A.A.Z.
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3035
Зарегистрирован: 30.06.2003 (Пн) 13:38

Сообщение A.A.Z. » 28.04.2005 (Чт) 17:41

Код: Выделить всё
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
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 3814
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Сообщение Mikle » 28.04.2005 (Чт) 18:43

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

Код: Выделить всё
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

Шурик
Самогонщик
Самогонщик
Аватара пользователя
 
Сообщения: 1657
Зарегистрирован: 30.06.2003 (Пн) 13:27
Откуда: из запоя :))))) Матных сообщений: 972

Сообщение Шурик » 28.04.2005 (Чт) 18:54

Хе.... а к чему
DEFINT A-Z
???

GoldBerg
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 26.04.2005 (Вт) 21:19

Сообщение GoldBerg » 28.04.2005 (Чт) 19:25

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

Шурик
Самогонщик
Самогонщик
Аватара пользователя
 
Сообщения: 1657
Зарегистрирован: 30.06.2003 (Пн) 13:27
Откуда: из запоя :))))) Матных сообщений: 972

Сообщение Шурик » 28.04.2005 (Чт) 19:31

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

GoldBerg
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 26.04.2005 (Вт) 21:19

Сообщение GoldBerg » 28.04.2005 (Чт) 20:20

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

Mikle
Изобретатель велосипедов
Изобретатель велосипедов
Аватара пользователя
 
Сообщения: 3814
Зарегистрирован: 25.03.2003 (Вт) 14:02
Откуда: Туапсе

Сообщение Mikle » 29.04.2005 (Пт) 10:11

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

-=TsA=-
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 142
Зарегистрирован: 21.09.2004 (Вт) 14:32
Откуда: Татарстан, Заинск

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

Сообщение -=TsA=- » 29.04.2005 (Пт) 15:10

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

PS. Просьба за мышку не хвататься!
Вложения
POLIGON.zip
Рисование по заданным координатам
(320.02 Кб) Скачиваний: 576


Вернуться в Quick BASIC

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList