Основные возможности Visual Basic. Макова Н.Е. - 86 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

86
Задача 3. Нарисуем “звездное небо”. Для этого достаточно
покрасить форму в черный или синий цвет и в случайных местах
формы нарисовать некоторое количество разноцветных точек
(скажем, 1000).
Точка ставится методом PSet. Как сделать координаты и
цвет точки случайными? Использовать функцию Rnd. Ваша фор-
ма имеет размер Width×Height, количество цветов равно
16777216, поэтому обращение к методу рисования одной точки
случайного цвета будет выглядеть так:
PSet (Width * Rnd, Height * Rnd), 16777216 *Rnd
Этот оператор нужно просто выполнить 1000 раз:
For i = 1 To 1000
PSet (Width * Rnd, Height * Rnd), 16777216 *Rnd
Next
Результат будет ярче, если точки будут иметь случайную
толщину (1 или 2). Сколько бы раз вы ни запускали программу с
указанным фрагментом, картина созвездий на экране будет абсо-
лютно одинакова. Если вам нужно, чтобы от запуска к запуску
набор значений случайной величины менялся, употребите до ис-
пользования функции Rnd процедуру Randomize.
Задания для самостоятельной работы
1. Нарисуйте ряд точек по направлению из левого нижнего угла в
правый верхний.
2. В задаче 5.1. вы рисовали горизонтальный ряд пересекающих-
ся окружностей. Теперь нарисуйте один под другим много таких
рядов.
3. Нарисуйте “звезды в окне” – звездное небо в пределах прямо-
угольника.
4. Нарисуйте “дождь в луже” – заполните форму окружностями
или эллипсами радиуса 200 в случайных местах.
5. Нарисуйте “мыльные пузыри” – заполните форму окружностя-
ми или эллипсами случайного радиуса и цвета в случайных мес-
тах.
6. Нарисуйте “стог сена” – множество случайных разноцветных
отрезков прямых преимущественно желтоватых оттенков, причем
один конец любого отрезка находится в случайной точке левой
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
               Задача 3. Нарисуем “звездное небо”. Для этого достаточно
         покрасить форму в черный или синий цвет и в случайных местах
         формы нарисовать некоторое количество разноцветных точек
         (скажем, 1000).
               Точка ставится методом PSet. Как сделать координаты и
         цвет точки случайными? Использовать функцию Rnd. Ваша фор-
         ма имеет размер Width×Height, количество цветов равно
         16777216, поэтому обращение к методу рисования одной точки
         случайного цвета будет выглядеть так:
               PSet (Width * Rnd, Height * Rnd), 16777216 *Rnd
               Этот оператор нужно просто выполнить 1000 раз:
         For i = 1 To 1000
               PSet (Width * Rnd, Height * Rnd), 16777216 *Rnd
         Next
               Результат будет ярче, если точки будут иметь случайную
         толщину (1 или 2). Сколько бы раз вы ни запускали программу с
         указанным фрагментом, картина созвездий на экране будет абсо-
         лютно одинакова. Если вам нужно, чтобы от запуска к запуску
         набор значений случайной величины менялся, употребите до ис-
         пользования функции Rnd процедуру Randomize.

                      Задания для самостоятельной работы
         1. Нарисуйте ряд точек по направлению из левого нижнего угла в
         правый верхний.
         2. В задаче 5.1. вы рисовали горизонтальный ряд пересекающих-
         ся окружностей. Теперь нарисуйте один под другим много таких
         рядов.
         3. Нарисуйте “звезды в окне” – звездное небо в пределах прямо-
         угольника.
         4. Нарисуйте “дождь в луже” – заполните форму окружностями
         или эллипсами радиуса 200 в случайных местах.
         5. Нарисуйте “мыльные пузыри” – заполните форму окружностя-
         ми или эллипсами случайного радиуса и цвета в случайных мес-
         тах.
         6. Нарисуйте “стог сена” – множество случайных разноцветных
         отрезков прямых преимущественно желтоватых оттенков, причем
         один конец любого отрезка находится в случайной точке левой


         86

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы