Угринович Н., Босова Л., Михайлова Н. Практикум по информатике и информационным технологиям

Подождите немного. Документ загружается.

150 Глава

После того как форма сохранена,

Visual

Basic

предложит вам

записать на диск файл проекта и по умолчанию предложит вам

имя

Projecti.vbp. В соответствии с соглашением об именах объ-

ектов целесообразно сохранить проект под именем с префиксом

prj,

например, prj1.

На

диске

будут

сохранены три файла: файл формы с расши-

рением frm, файл проекта с расширением vbp и еще один вспо-

могательный файл с расширением vbw. Так как проекты

могут

содержать большее количество файлов (например, несколько

файлов форм), рекомендуется для каждого проекта создавать

свою папку на диске.

9 Сохранить файл формы командой

[Save

Forml.frm As ...] как

frmi.frm и файл проекта командой

[Save

Project As ...] как

prji.vbp.

Сохраненный проект может выполняться только в системе

программирования

Visual

Basic.

Для того чтобы проект мог запу-

скаться в среде операционной системы, необходимо сохранить

его в исполняемом файле (типа ЕХЕ). Для трансляции проекта в

исполняемый файл используется команда [File-Make ...] (в сво-

бодно распространяемой версии

VB5.0

ССЕ такая возможность, к

сожалению,

отсутствует).

Проект хранится

каталоге

\practicum\VB\Projects\project1\

Задания

для

самостоятельного

выполнения

5.1. Модернизировать проект «Местоположение формы

управляющих

элементов»

так,

чтобы местоположение кнопок задавалось

помо-

щью свойств

Тор и

Left.

5.2. Создать проект, который позволяет перемещать

по

форме надпись

помощью управляющих элементов

Кнопка

(CommandButton).

5.3. Создать проект, который позволяет перемещать

по

форме надпись

помощью управляющих элементов

Переключатель

(OptionBut-

ton).

5.4.

Создать проект, который позволяет перемещать

по

форме надпись

помощью управляющего элемента

Список

(ListBox).

5.5. Создать проект «Перемещение формы

на

экране»,

котором

будет

изменяться местоположение формы

на

экране монитора

помощью

четырех командных кнопок. Кнопки расположить

в углах

формы.

После щелчка

по

кнопке форма должна переместиться

соответст-

вующую

часть экрана. Перемещение формы должно сопровождать-

ся

комментариями, выводимыми

помощью надписи

центре фор-

мы.

5.6.

Модернизировать предыдущий проект

5.5 так,

чтобы осуществлять

передвижение формы

углы

экрана монитора

использованием

ме-

тода

Move.

Объектно-ориентированное

программирование

на

языке

Visual

Basic

151

5.3.

Размещение

на

формах

изображений

графических

полей

Автоматический

вывод

изображений на

форму

после запус-

ка

проекта.

Для

того

чтобы изображение автоматически разме-

щалось на форме после запуска проекта, необходимо в процессе

разработки проекта воспользоваться свойством формы Picture

(изображение).

Для этого в окне

Свойства

объекта

из списка

свойств формы необходимо выбрать и активизировать пункт

Picture.

В появившемся диалоговом окне выбрать файл, содер-

жащий нужное изображение.

Проект

5.2.

«Компьютер

картинках».

Создадим проект,

который

будет

выводить на форму изображения компьютера и

его устройств.

Д!

Проект

«Компьютер

картинках»

1 Создать новый проект.

2 В окне

Свойства

объекта

установить для свойства формы

Name

значение f rml и для свойства Caption значение Первая

форма.

3 Активизировать свойство Picture, щелкнуть по значку «...»

окошке этого свойства и с помощью появившегося диалого-

вого окна

Load

Picture

выбрать нужный графический файл

(например,

computer.gif,

который на CD-ROM находится в ка-

талоге

\practicum\VB\Projects\project2\).

4 После запуска проекта на

выполнение

появится фор-

ма с размещенным на ней

изображением, которое

размещается в верхнем ле-

вом

углу

формы, Если

изображение больше фор-

мы,

то

будет

видна только

та его часть, которая поме-

щается на форме.

Вывод

изображений

на

форму

помощью

событийных

про-

цедур.

Для вывода изображений на форму в процессе выполне-

ния

программы необходимо воспользоваться событийной про-

цедурой, содержащей функцию LoadPicture. Эта функция

имеет синтаксис:

LoadPicture [(имя файла)]

152

Глава 5

Имя

файла должно указывать

на

графический файл одного

из

форматов (ICO, BMP, WMF,

JPG и др.)- При

отсутствии

име-

ни

файла функция возвратит

пустую

рамку.

Если проект

загружается

из

папки

проектом

если рисунок

лежит

в той же

папке,

что и

файл проекта, можно указывать

то-

лько

имя

файла изображения.

Если проект

загружается

из

среды

Visual

Basic,

то

нужно

указывать полный

путь

файлу

изображением,

т. е.

аргумен-

том функции LoadPicture должно являться полное

имя

файла

(включая

путь

этому файлу).

Будем использовать файл изображения, который хранится

на

CD-ROM, причем CD-ROM имеет логическое

имя Е:.

Тогда

полное

имя

файла

изображением монитора принимает

следу-

ющий

вид:

E:\practicum\VB\Projects\project2\monitor.gif.

Присвоим свойству Picture формы frml значение функ-

ции

LoadPicture в событийной процедуре Click, связанной с

кнопкой

cmdl:

Private

Sub cmdl_Click()

frml.Picture=LoadPicture

("E:\practicum\VB\Projects\project2\monitor.gif")

End Sub

5 Разместить

на

форме кнопку

присвоить свойству Name

зна-

чение cmdMon,

свойству Caption

—

значение Монитор.

6 Осуществить двойной щелчок

по

кнопке

и в

окне

Програм-

мный

код

ввести текст событийной процедуры.

7 После запуска проекта

щел-

кнуть

по

кнопке

Монитор,

на

форме появится изобра-

жение монитора, которое

размещается

верхнем

ле-

вом

углу

формы.

8 Сохранить проект

на

диске

файле

prj2.vbp.

После сохранения проекта

на

диске

папке проекта появит-

ся

файл формы

расширением

frx.

Этот файл создается автома-

тически

при

размещении

на

форме изображения.

Имя

этого

файла совпадает

именем файла формы.

Объектно-ориентированное

программирование

на

языке

Visual

Basic

153

Вывод

изображений

на

форму

с использованием элемента

управления

Image.

Элементы управления Image позволяют выводить на форму

изображения

из графических файлов различных типов (BMP,

JPG,

GIF и др.) в заданную область. Префикс для имен элемен-

тов Image — img.

Для

того

чтобы изображение автоматически выводилось по-

сле запуска проекта, необходимо в процессе разработки проек-

та воспользоваться свойством Picture элемента управления

Image.

Для вывода изображений в процессе выполнения программы

необходимо воспользоваться событийной процедурой, содержа-

щей

функцию LoadPicture.

Добавим в проект

вторую

форму и разместим на ней элемент

управления Image. Установим автоматический вывод изобра-

жения

в этот элемент.

9 Добавить в проект форму командой [Project-Add

Form].

10 Разместить в центре формы элемент управления Ima-

ij=n

де, присвоить ему имя

imgl

и активизировать его. тш

11 В окне

Свойства

объекта

ввП2^^^^^ШНМНШШШЖЖк|

для свойства Picture вы-

брать нужный графиче-

ский

файл (например, сот-

puter.gif).

12 Запустить проект на вы-

полнение.

Изображение

выводится в элементе

imgl

центре формы. |

.••.-..

••."... • |

Запрограммируем теперь возможность вывода изображения

процессора (файл

processor.jpg)

в элемент

imgl

в событийной

процедуре:

Private

Sub cmdProc_Click()

imgl.Picture = LoadPicture

("E:\practicum\VB\Projects\project2\

processor.jpg")

End Sub

13 Разместить на форме кнопку и присвоить свойству Name

значение

cmdProc, а свойству Caption — значение Про-

цессор.

14 Осуществить двойной щелчок по кнопке и в окне

Програм-

мный

код ввести текст событийной процедуры.

154

Глава

15 Запустить проект на вы-

полнение

и щелкнуть по

кнопке

Процессор.

Изображение

имеет гораз-

до большие размеры, чем

размеры элемента Image и

размеры самой формы, и

поэтому видно лишь час-

тично.

Для того чтобы сделать изображение видимым полностью,

можно увеличить значения свойств

Width

и Height для эле-

мента Image и формы.

Можно

также сделать изображение полностью видимым, не

меняя

размеров элемента Image, воспользовавшись свойством

Stretch

(подгонка).

По умолчанию свойству Stretch задано

значению

False.

Когда значение свойства Stretch равно

True,

размер изображения подгоняется под размер элемента управле-

ния

путем масштабирования. Если отношение высоты к шири-

не

изображения отличается от отношения высоты к ширине

элемента Image, то коэффициент масштабирования по высоте и

ширине

различается и изображение искажается.

16 Выбрать элемент

imgl

и в 1

окне

Свойства

объекта

свойству

Stretch

задать

значение

True.

17 Запустить проект на вы-

полнение

и щелкнуть по

кнопке

Процессор.

Изображение

полностью

размещено в элементе Ima-

ge, но искажено. ;'•••

Вывод

изображений на форму с использованием элемента

управления

PictureBox.

Элемент PictureBox

(графическое

окно)

позволяет размещать графическую информацию из файлов раз-

личных типов (BMP, JPG, GIF и др.) в определенных

участках

формы.

Префикс для имен элементов PictureBox — pic.

Элементы управления PictureBox позволяют не только вы-

водить изображения, но и являются фактически «формами

внутри форм», в которые можно помещать элементы управле-

ния,

выводить текст и рисовать при помощи графических мето-

дов. Графические окна

могут

применяться также для переме-

щения

изображений по форме. Они имеют больше возможно-

стей, чем элементы Image, но

требуют

больше памяти и време-

ни

на обработку.

Объектно-ориентированное

программирование

на

языке

Visual

Basic

155

Для

того

чтобы изображение автоматически выводилось по-

сле запуска проекта, необходимо в процессе разработки проек-

та воспользоваться свойством Picture элемента управления

PictureBox.

Для вывода изображений в процессе выполнения программы

необходимо воспользоваться событийной процедурой, содержа-

щей

функцию LoadPicture.

Добавим в проект

третью

форму и разместим на ней элемент

управления PictureBox, а внутри графического окна помес-

тим метку с надписью

Компьютер.

Установим автоматический

вывод изображения и метки в графическое

окно.

18 Добавить в проект форму командой [Project-Add

Form].

19 Разместить в центре формы элемент управления

п==п

Picture Box и активизировать его. В окне

Свойства

\1<щ

объекта

для свойства Picture выбрать нужный гра-

фический

файл (например, computer.gif).

20 Разместить метку в графи-

ческом окне и для свойст-

ва Caption установить

значение

Компьютер.

21 Запустить проект на вы-

полнение.

Изображение и

метка выводятся в элемен-

те PictureBox.

Компьютер

Запрограммируем теперь возможность вывода изображения

процессора в элемент PictureBox в событийной процедуре,

аналогичной рассмотренной выше.

22 Разместить на форме кнопку, осуществить двойной щелчок

по

кнопке и в окне

Программный

код ввести текст собы-

тийной

процедуры (смотри пункты

13,14).

23 Запустить проект на вы- до-

полнение

и щелкнуть по

кнопке

Процессор.

Изоб-

ражение имеет гораздо бо-

льшие размеры, чем раз-

меры элемента Picture

Box и поэтому

будет

вид-

но

лишь частично.

156

Глава

Можно сделать изображение полностью видимым, увеличив

размеры элемента PictureBox, воспользовавшись свойством

AutoSize

(авторазмер).

По умолчанию свойству

AutoSize

за-

дано значению

False.

Если свойству

AutoSize

присвоить зна-

чение

True,

размеры элемента управления подгоняются

под

размеры изображения.

Теперь надпись

на

метке

не

соответствует

выведенному

графическое окно рисунку. Практически

все

объекты,

в том

числе

метка, имеют свойство

Visible

(видимый), которое мо-

жет принимать два значения:

True

(по умолчанию)

False.

Если присвоить свойству

Visible

метки значение

False,

то

метка станет невидимой.

Организация

переходов

между

формами,

входящими

в про-

ект.

наш проект

входят

три

формы, необходимо создать воз-

можность просмотра каждой

из них.

Во-первых, можно установить

свойствах проекта, какая

из

входящих

него форм загружается первой при запуске проекта

соответственно становится видимой.

24 Ввести команду

[Pro

ect-Pro

ect

Proper-

ties...].

На

появившейся диало-

говой панели

Pro-

ject

1-Project

Properties

раскрывающемся списке

Startup

Object

выбрать

форму

frml,

которая

бу-

дет загружаться первой.

Gewil JMake

Coreple

Component}

Project lype:

Project dame:

tjtotpFfetone:

Project Description!

•

Startup Object»

frml

Sob Man

frm2

frm3

•;

-ThrwdhBtJodei

»•••;

-' " -

(

'" "

otv

,\. 1

Upgrade

ActiveX

Controls

'•

.'. ... 5 *

-h>

•

^fj-

W.«-'

;

«:

Re;-'--

.'-I

•

Во-вторых, можно создать связанные

кнопками событий-

ные процедуры, которые

делают

видимой

ту

или иную форму,

используя свойство

Visible.

Разместим

на

форме

rml кнопку cmd2

напишем

для

нее

событийную процедуру, которая

делает

видимыми одновремен-

но

все три

формы frml, frm2

и f

гтЗ:

Private

Sub

cmd2_Click()

frml.Visible

True

frm2.Visible

True

frm3.Visible

True

End

Sub

окне

Программный

код

ввести событийную процедуру

cmd2_Click ()

для

кнопки

Все

формы.

Объектно-ориентированное

программирование

на языке Visual Basic

157

26 Запустить проект на выполнение и щелкнуть по кнопке Все

формы.

На экране монитора появятся все три формы.

Для

перехода с одной формы на другую событийная проце-

дура должна делать видимой только одну выбранную форму.

Например,

для перехода со второй или третьей формы на пер-

вую событийная процедура будет следующей:

Private

Sub cmd2_C1iсk()

frml.Visible

True

frm2.Visible

False

frm3.Visible

False

End Sub

27 Сохранить полученный проект в файле prj2.vbp.

Проект хранится в катало4ге

\practicum\VB\Projects\project2\

Задания для самостоятельного

выполнения

5.7. Создать проект «Видимость метки», в котором по щелчку по одной

кнопке

метка выводится на форму, а по щелчку по второй кнопке —

исчезает.

5.8. Создать проект «Видимость формы», в котором по щелчку по кноп-

ке на первой форме выводится вторая форма, и наоборот.

5.9. Усовершенствовать проект «Компьютер в картинках» (файл проек-

та

prj2.vbp)

так, чтобы обеспечить возможность перехода с каждой из

трех форм на любую

другую

в процессе выполнения проекта.

5.10. Усовершенствовать проект 5.9 (файл проекта prjZ5_9.vbp) так, чтобы

обеспечить вывод изображения сканера в элемент Image на вторую

форму и вывод изображения цифровой камеры в элемент Picture-

Box на третью форму. Предусмотреть соответствие надписи на метке

выводимому изображению.

158

Глава 5

5.11. Создать проект «Собери картинку». Изображение разбить

на

фраг-

менты

неупорядоченно вывести

их

на

форму. Предусмотреть

воз-

можность вывода фрагментов

на

форму таким образом, чтобы полу-

чалось первоначальное изображение.

5.4.

Массивы

Проект

5.3. «Сортировка числового массива».

Разработаем

проект, который позволит заполнять числовой массив целыми

случайными числами,

затем предоставит возможность сорти-

ровать массив различными способами.

Заполнение

массива случайными числами. Для

генерации

последовательности целых случайных чисел используем функ-

цию

генерации псевдослучайных

(то

есть каждый

раз

повторя-

ющихся) последовательностей чисел

Rnd и

функцию выделения

целой части числа

Int.

Заполнение

массива

bytA,

состоящего

из 10

элементов,

реа-

лизуем

помощью цикла

со

счетчиком.

целях визуального

контроля

предусмотрим вывод массива

текстовое поле

txtDim

использованием функции

Str

(преобразования числа

строковую форму).

Проект «Сортировка числового массива»

1 Создать новый проект. Разместить

на

форме текстовое поле

txtDim

кнопку cmdDim. Присвоить свойству Caption

зна-

чение Заполнить.

2 Установить

для

свойства MultiLine текстового поля значе-

ние

True и

подобрать размер шрифта

так,

чтобы массив

рас-

печатывался

одной строке текстового поля.

3 Ввести

для

кнопки событийную процедуру заполнения

мас-

сива

и его

вывода

текстовое поле:

Dim

bytl,

bytA(l

To 10) As Byte

Private

Sub

cmdDim_Click()

Randomize

For

bytl

= 1 To 10

bytA(bytl)

Int(Rnd

* 10)

txtDim.Text

+ Str

(bytA(bytl))

bytl

End Sub

4 Запустить проект

несколько

раз

щелкнуть

по

кнопке Запол-

нить.

В текстовом поле появятся последовательности случайных

чисел, различающиеся

между

собой.

Объектно-ориентированное

программирование

на

языке

Visual

Basic

159

Поиск

минимального

элемента.

Будем считать сначала, что

минимальный

элемент равен первому элементу массива

bytА

(1)

присвоим переменной bytMin его значение.

Затем в цикле сравним последовательно элементы массива со

значением

переменной bytMin, если какой-либо элемент ока-

жется меньше, присвоим его значение переменной bytMin, а его

индекс

присвоим переменной bytN. Распечатаем результаты.

5 Разместить на форме кнопку cmdMin и присвоить свойству

Caption

значение Мин. элемент. Создать для нее событий-

ную процедуру поиска минимального элемента:

Private

Sub cmdMin_Click()

bytMin =

bytA(l)

bytN = 1

For

bytl

= 2 To 10

bytA(bytl)

< bytMin

Then

bytMin =

bytA(bytl):

bytN =

bytl

"Минимальный элемент "; bytMin;

"его индекс"; bytN

End Sub

Запустить проект. Последова-

тельно щелкать на кнопках За-

полнить

и Мин.

элемент.

В текстовом окне

будет

появля-

ться заполненный массив, а на

форме

будет

печататься мини-

мальный элемент и его индекс.

Минимальный

элемент О его

индекс

Минимальный

элемент 1 его

индекс

Минимальный

элемент 0 его

индекс

Минимальный

элемент f его

индекс

J3620947885I

525676919

298296506

•8

721624284

Сортировка

массива

по

возрастанию

методом

перестановок.

Идея

алгоритма сортировки по возрастанию массива, состояще-

го из N элементов, методом перестановок элементов состоит в