End Sub. 4. Сохраните проектпод именем Лр8_Зад8_Фамилия

4. Сохраните проектпод именем Лр8_Зад8 _Фамилия. Запустите проект на выполнение. Проанализируйте результат.

ЗАВДАННЯ НА ПРАКТИЧНУ РОБОТУ (ВС,ЛС)

ЗАВДАННЯ С8.9. Постановка задачи ЭКСПЕРИМЕНТ СОСТОИТ В ПОДСЧЕТЕ ЧИСЛА БРОСАНИЙ ДВУХ КОСТЕЙ ДО ВЫПАДЕНИЯ ДВУХ ШЕСТЕРОК. ТРЕБУЕТСЯ НАЙТИ СРЕДНЕЕ ЧИСЛО БРОСАНИЙ, НЕОБХОДИМЫХ ДЛЯ ПОЛУЧЕНИЯ ДВУХ ШЕСТЕРОК (ПРОВОДИТСЯ N ЭКСПЕРИМЕНТОВ). Окно приложения может иметь следующий вид, приведенный на рис. 8.8.

Порядок действий

1. Откройте графический редактор MS Paint и установите размер рисунка 70 пикселей (точек) в ширину и 70 в высоту, используя команды меню Image (Pисунок), Attributes (Aтрибуты). He забудьте выбрать единицы измерения Pixel (Точки).

2. Нарисуйте шесть рисунков, изображающих шесть граней кости, и сохраните их в папке ЛАБ8 \ Pictures. Имена файлов рисунков:

1.bmp, 2.bmp,..., 6.bmp соответственно.

Функция LoadPicture загружает картинки с диска в объекты Form, PictureBox, Image во время выполнения программы. Visual Basic может работать с графическими файлами, приведенными ниже.

Многие из этих типов графических файлов можно найти в папке Graphics, относящейся к Visual Basic, некоторые находятся в папке ClipArt из папки Microsoft Office. Есть картинки в папке Windows. Используя поиск файлов по расширениям, в Windows можно найти много картинок. Их также можно отсканировать или найти в Интернете.

Значение функции должно присваиваться свойству Picture объектов Form, PictureBox, Image.

Пример 1:

Set Imagel.Picture=LoadPicture("Ris.bmp")

В объект Imagel загрузится из текущей директории рисунок Ris.bmp.

Пример 2:

Diim file as string

file="Ris.gif"

Set Picture 1.Picture=LoadPicture(flle)

В объект Picture 1 загрузится из текущей директории рисунок Ris.gif.

Пример 3: