Cls – очистка pset – точка Pset (X,y), [цвет] icon

Cls – очистка pset – точка Pset (X,y), [цвет]



НазваниеCls – очистка pset – точка Pset (X,y), [цвет]
Дата конвертации29.07.2012
Размер23.56 Kb.
ТипДокументы

Графические методы Pset, Line.

Графические методы VB 6 включают методы:

CLS – очистка


PSET – точка

Pset (x,y), [цвет]

Параметры х, у – координаты точки. Параметр цвет – цвет точки


Line- рисует линии и прямоугольники

Line (x1,y1) – (x2, y2) [,цвет] , [B, [F]]]

Параметры (х1, у1) и (х2,у2) – координаты концов отрезка прямой линии или координаты противоположный углов прямоугольника. Параметр цвет указывает цвет рисованной фигуры.

Параметр константа В устанавливает режим рисования прямоугольника. Параметр-константа BF обеспечивает закраску прямоугольника внутри


^ Circle – круг

Circle(x,y) радиус, [цвет]

X, y – координаты цента круга

Радиус – радиус окружности.

Цвет – цвет окружности.


Свойства формы

BackColor – цвет формы

FillColor – цвет внутренней заливки фигур

Forecolor-цвет линий и контуров


Print – выводит текст

^

Проект «Игра Звездные войны»


Суть игры: необходимо сбить движущуюся ракету.


1.В новом проекте задайте цвет формы – черный. Цвет линий и контуров – белый.

2. Вставьте на форму две кнопки Start и Fire таймеры Timer1 и Timer2

Для первого таймера задайте интервал 300, для второго – 10.

Объявите переменные целого типа xr, yr, xp, yp

3. При загрузке формы отключите оба таймера (свойство Enable). Процедура Form_Load()

4. При нажатии на кнопку старт активизируйте первый таймер.

4. По действию первого таймера осуществите

  • Очистку экрана

  • мерцание звездного неба

Для прорисовки звездного неба задайте цикл, координаты каждой точки в котороvбудут определяться случайным образом. Координата х – в пределах от 0 до ширины формы (Me.Width) : x = Int(Rnd * Me.Width), у- в пределах от 0 до высоты формы (Me.Height)

  • рисование луны. Она представляет собой круг с координатами центра 1000, 1000, радиус 600, цвет заливки – желтый.

  • ^ Рисование ракеты

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


Например: (вместо точек впишите значения)


^ Private Sub Rocket(ByVal x, ByVal y As Integer)

‘’ корпус

Line (x, y)-(x + …, y + …), vbRed, BF

‘’нос

For i = 0 To 500

Line (x + i, y)-(x + 250, y - 250) нос

Next i

Line (x + 250, y - 250)-(x + 500, y)

‘’ линии огня нарисуйте самостоятельно

Line (x, y + 2000)-(x + 240, y + 1100), vbRed



End Sub


Объявите глобальные переменные xr, yr, показывающие точку отсчета появления ракеты.

И вызовите процедуру Rocket с их использованием (Call Rocket(xr, yr))

Уменьшите yr на 1000

В случае если yr <0 задайте новые значения yr и xr

xr = Int(Rnd * Me.Width)

yr = Me.Height


5. При нажатии на кнопку Fire активизируйте второй таймер.

и задайте значения переменных

xp = Command1.Left + Command1.Width / 2

yp = Command1.Top + Command1.Height / 2

6. При работе второго таймера

Задайте цвет заливки красным

Нарисуйте круг с координатами центра xp, yp, радиусом 100. (снаряд)

Уменьшите значение обоих координат на 100.

Далее напишите код в случае, если Вы попали в ракету.

Условием попаданий в ракету будет

(xp > xr And xp < xr + 500 And yp > yr And yp < yr + 10000

В этом случае

  • остановите оба таймера

  • Выведите текст «Yes!!!»

Для этого задайте текущую позицию

CurrentX = Me.Width / 3

CurrentY = Me.Height / 3

Размер и тип шрифта

Font.Size = 100

Font.Bold = True

Цвет букв – красный

И выведите текст







Похожие:

Cls – очистка pset – точка Pset (X,y), [цвет] iconГрафическое «перо» – draw
В строке символов записывается последовательность графических команд, причём каждая команда состоит из латинских букв и целых чисел....
Cls – очистка pset – точка Pset (X,y), [цвет] iconLove's Requiem
Этот цвет, на фоне которого все остальные казались серыми и блеклыми. Этот цвет, постоянно меняющийся от настроения. Этот цвет мог...
Cls – очистка pset – точка Pset (X,y), [цвет] iconЦвет пороха и цвет огня. По другим общедоступным сведениям, чёрно-оранжевую гамму следует понимать как цвет дыма и огня. В любом случае, появившийся ещё в Выпуск №10
Георгиевская лента создавалась как часть наградного комплекта, состоящего из ордена Святого Георгия, Георгиевского креста или Георгиевской...
Cls – очистка pset – точка Pset (X,y), [цвет] iconЗакон движения линейного осциллятора определяется фазовой траектория в фазовом пространстве, в котором размерность и масштабы координат вдоль разных осей X и p различны.
Фазовая точка (ФТ) точка фазового пространства с фазовыми координатами x(t), p(t) которая в данный момент t соответствует состоянию...
Cls – очистка pset – точка Pset (X,y), [цвет] iconГ. Фреге смысл и значение
Таким образом, у нас имеются различные обозначения одной и той же точки, и эти имена («точка пересечения а и b», «точка пересечения...
Cls – очистка pset – точка Pset (X,y), [цвет] iconРужы цвет! Ружы цвет Сонца І кветак сьвята

Cls – очистка pset – точка Pset (X,y), [цвет] iconЛекция 22-23 Работа с мышью
Точка-указатель – это точка в матрице растрового изображения курсора, координаты которой принимаются за координаты курсора мыши....
Cls – очистка pset – точка Pset (X,y), [цвет] iconПоложение о школьной форме Существуют два подхода к школьной форме
Школьная форма – это унифицированная одежда (строго регламентирован для всех учащихся цвет ткани, фасон, форма и цвет пуговиц и т...
Cls – очистка pset – точка Pset (X,y), [цвет] iconГрафический редактор Paint
Растровое изображение строится по точкам. Каждая точка имеет свои координаты и глубину цвета. Глубина цвета – то количество цветов,...
Cls – очистка pset – точка Pset (X,y), [цвет] iconЗадачи третьего тура для 10 класса Вычислите
Точка м расположена на грани на расстоянии 1 см от середины ав и на равных расстояниях от точек а и В. Точка n принадлежит грани...
Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов