Даны координаты (x,y) 10-ти точек . Определить принадлежит ли точка заштрихованной фигуре. Сколько точек отстоят от центра координат менее чем на 3 ед.?

Ввести следующие данные:Наименование секции спортклуба, стоимость месячного абонемента, количество спортсменов по каждой секции. Вычислить сумму, ожидаемую от оплаты услуг спортклуба (по каждой секции и по клубу в общем). Определить секцию стоимость абонемента для которой наименьшая.

Варинат6.

1)Даны координаты (x,y) 10-ти точек. Определить принадлежит ли точка заштрихованной фигуре. Сколько точек лежит выше оси ox?

2) Ввести следующие данные: Название базы отдыха, стоимость путевки, количество отдыхающих. Вычислить сумму, на которую реализовано путевок для каждой базы отдыха и по всем в общем. Путевка какой базы отдыха имеет наименьшую стоимость.

Вариант7.

1)Даны координаты (x,y) 10-ти точек. Определить принадлежит ли точка заштрихованной фигуре. Сколько точек лежит ниже оси ох?

2) Ввести следующие данные: Название школьного учебника, для какого класса предназначен, издательство. Вычислить сколько учебников издательства “Знание”. Выдать список учебников для 5-го класса.

Вариант8.

1)Даны координаты (x,y) 10-ти точек. Определить принадлежит ли точка заштрихованной фигуре. Сколько точек лежит левее оси оу?

2) Ввести следующие данные: Фамилия студента, оценка за экзамен по двум дисциплинам.Вычислить среднюю оценку студентов за два экзамена и список тех студентов, которые сдали хотя бы один экзамен на “5”.

Вариант9.

1)Даны координаты (x,y) 10-ти точек. Определить принадлежит ли точка заштрихованной фигуре. Сколько точек лежит в 1- й четверти координатной плоскости?

2) Ввести следующие данные: Фамилия сотрудника, наименование отдела, размер месячной заработной платы. Вычислить общую сумму заработной платы. Выдать список соотрудников определенного отдела, наименование которого запрашивается в окне запроса.

Вариант10.

1)Даны координаты (x,y) 10-ти точек. Определить принадлежит ли точка заштрихованной фигуре. Сколько точек лежит в 3-й четверти координатной плоскости?

2) Ввести следующие данные: Название периодического издания, вид изда-ния(журнал, газета), тираж, стоимость. Вычислить общую стоимость. Выдать список журналов, тираж которых меньше 500000 экземпляров.

8.12 Контрольные вопросы

1) Что называется массивом в VB?

2) Какие виды массивов различают?

3) Как объявить массив данных?

4) Какие способы ввода элементов массива различают?

5) Какие способы вывода элементов массива различают?

6) Перечислите методы, применимые к объекту WorkShetts.

7) Как переименовать рабочий лист?

8) Как скрыть рабочий лист?

ЛАБОРАТОРНАЯ РАБОТА №6

СОЗДАНИЕ ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ

ДИАЛОГОВЫХ ОКОН

Цель: Ознакомиться со способами создания программ с использованием диалоговых окон.

Диалоговые окна используется в случае, когда необходимо за один сеанс диалога ввести совокупность данных различных типов.

Лист окна диалога является одним из объектов рабочей книги Excel. Для вставки диалогового листа нужно на ярлыке любого листа вызвать контекстное меню и выполнить команду ДОБАВИТЬ… и в появившемся окне выбрать объект Окно диалога. При этом в рабочей книге появится новый лист, на ярлыке которого будет стандартное имя Диалог1. При необходимости имя листа можно переименовать в желаемое. На данном листе производится макетирование диалогового окна. В процессе которого на макете окна размещаются нужные элементы управления, в зависимости от того, каким способом предусматривается ввод данных. Элементы управления размещаются на окне путем перетаскивания с панели инструментов ФОРМЫ (рисунок 12.1).

Рисунок 12.1 Диалоговый лист рабочей книги Excel

Элементы управления

а) - Надпись (Label) -используется для создания текстовых надписей на диалоговом окне.

б) - Текстовое поле (EditBoxes) – используется для ввода данных, значения которых не могут быть заранее предсказаны. Следующая инструкция позволяет значение, введенное пользователем в поле ввода, присвоить переменной. Имя переменной=.EditBoxes(номер)

в) - Флажок (Checkboxes) - используется для ввода одного из двух, взаимно противоположных по смыслу, значений(Да/Нет, Истина/Ложь, Включено/Выключено и.т.п.). Состояние флажка, установленное пользователем и определение, в зависимости от этого, соответствующего варианта действия, производится с помощью следующей инструкции.

If.CheckBoxes(номер)=xlOn Then

Вариант 1

Else

Вариант2

End if

г) - Переключатель (OptionButtons) – используется для ввода одного из нескольких возможных вариантов.

Вариант выбора пользователя определяется следующим алгоритмом.

If.OptionButtons(1)=xlOn then действие 1

If.OptionButtons(2)=xlOn then действие2

………..

If.OptionButtons(n)=xlOn then действие n

д) - Рамка (Frame) –используется для визуальной группировки объектов на диалоговом окне.

е) - Поле со списком (ListBox) –используется когда вводимое значение может быть введено путем выбора из предложенного списка вариантов. Для создания списка на каком-либо рабочем листе нужно сформировать список из необходимых элементов.

Рисунок 12.2 Элементы списка

Значением функции ИНДЕКС является элемент списка, который пользователь выбрал во время диалога. Первый аргумент данной функции представляет собой адрес диапазона-область поиска, второй –ключ для поиска, номер столбца. Значение ключа поиска определяется в виде натурального числа и представляет собой порядковый номер, выбранного пользователем, элемента списка.

После подготовки данных для формирования списка, нужно сам элемент управления отформатировать в режиме макетирования диалогового окна, вызвав контекстное меню для данного элемента.

Первый запрос требует адрес диапазона рабочего листа, содержащего элементы списка.

Второй запрос требует адрес ячейки, в которой будет фиксироваться выбор пользователя в виде номера элемента.

Рисунок 12.3 Форматирование поля со списком

Третий запрос требует количество элементов списка.

ж) - Кнопка (Command) – используется для запуска процедур при щелчке на кнопке. Для этого нужно кнопке назначить ранее созданный макрос(процедуру), вызвав контекстное меню и выбрав команду Назначить макрос.

Рисунок 12.4 Назначение макроса кнопке

е) - Счетчик (Spinners) – используется при вводе чисел из данного диапазона путем перебора с помощью счетчика.

В паре с данным элементом управления должно находиться поле ввода, предназначенное для отображения числа, выбираемого пользователем с помощью счетчика. Для синхронизации работы счетчика с полем ввода нужно каждому из данных элементов назначить следующие макросы.

Макрос для счетчика:

Sub Do_spinner()

With ActiveDialog

.EditBoxes(номер).Text=Cstr(.Spinners(номер).Value)

End With

End Sub

Макрос для поля ввода:

Sub Back_spinner()

With ActiveDialog

.Spinners(номер).Value= Cint(EditBoxes(номер).Text)

End With

End Sub

Интервал изменения чисел с помощью счетчика задается следующими инструкциями

.Spinners(номер).Min=число

.Spinners(номер).Max=число

ПРИМЕР ПРОГРАММНОГО ПРОЕКТА

1. Постановка задачи

Создать в Visual Basic for Excel программный проект, который предусматривает:

1) Ввод данных о товарах (наименование, единицы измерения, стоимость одной ед. измерения, отечественный или импортный товар, страна-изготовитель, прямые поставки от производителей или через посредников, количество, дата изготовления,срок годности (в месяцах), вид товара (одежда, обувь, техника и т.д.). Ввод данных об одном товаре организовать с помощью диалогового окна.

2) Запрос данных о товарах по выбранному пользователем полю. Данные вывести в отсортированном, по выбранном пользователем полю, виде. Порядок сортировки (по алфавиту, или против алфавита) должен быть задаваемым пользователем.

3) Запрос полных данных о товарах.

4) Управление всеми процедурами проекта должен производиться через диалоговое окно, выполняющего функцию меню и состоящую из кнопок, для которых назначены отдельные процедуры.

2 Проектирование

1) Проект должен содержать:

-рабочий лист для хранения введенных данных (Лист Список);

-рабочий лист вспомогательного характера (Лист Помощь);

-рабочий лист, который будет служить фоном при запуске проекта,а также для вывода результатов запросов (Лист Запуск);

-диалоговый лист для создания окна меню (Лист Меню);

-диалоговый лист для ввода данных о товарах (Лист Форма_ввода);

-диалоговый лист для ввода параметров запроса (Лист Запрос);

-процедуру вывода окна меню;

-процедуру диалога с пользователем и ввода данных о товарах;

-процедуру диалога и выборки по запросу данных о товарах;

-процедуру вывода всех данных о товарах;

-процедуру очистки листа Запуск от результатов предыдущих запросов;

2) Ввод данных о товарах организовать с помощью различных элементов управления:

-наименование товара с помощью поля ввода (.EditBoxes);

-единицы измерения с помощью поля со списком. Варианты: штука, кг., литр, пачка, рулон, банка, ящик, коробка, кв.м., куб.м. и др.;

-стоимость одной ед. измерения с помощью поля ввода;

-сведения о том, какой товар: отечественный или импортный товар с помощью флажка;

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

-сведения о виде поставок товара: прямые поставки от производителей или через посредников с помощью флажка;

-количество товара с помощью счетчика;

-дату изготовления товара с помощью поля ввода;

-срок годности (в месяцах) с помощью счетчика;

-вид товара с помощью поля со списком;

3) Настройка проекта.

После завершения процесса создания проекта нужно скрыть все листы рабочей книги кроме листа Запуск. Эти меры необходимы для защиты данных и компонентов проекта от несанкционированного вмешательства других лиц. При этом рекомендуется скрыть все листы присвоив свойству Visible данных листов значение xlVeryHidden. При таком способе скрытия листов исключена возможность обнаружения листов другими пользователями.

Желательно лист Запуск настроить оптимальным образом с помощью различных процедур: скрытие всех компонентов окна Excel кроме самого листа Запуск и строки меню, в которой можно установить пользовательскую кнопку для запуска процедуры Меню. Также можно на листе установить подложку в виде графического файла с тематическим содержанием.

4) Управление процедурами проекта.

Работа с данным программным проектом должен начинаться с отображения на экране окна меню, на котором располагаются кнопки для запуска других процедур проекта.

3. Реализация проекта

1) Подготовка вспомогательных данных.

Для полей со списком на листе Помощь создадим списки:

- вариантов единицы измерения товара;

- вариантов вида товара;

Лист Помощь с элементами списков приведен на рисунке 16.

Рисунок 9.5 Лист Помощь с элементами списков

2) Макетирование диалоговых окон.

-Диалоговое окно Форма_ввода должна содержать элементы управления, используемые для ввода различных данных о товарах

Рисунок 9.6 Макет диалогового окна Форма_ввода

- Диалоговое окно Меню содержит кнопки для запуска соответствующих процедур: ввода данных, запросов, очистки листа от ранее выведенных результатов запросов.

4. Контрольные вопросы

1) Что представляет собой диалоговое окно, как его добавить в рабочую книгу Excel и для каких целей рекомендуется использовать диалоговое окно?

2) Какие элементы управления можно использовать в диалоговом окне, какое имя они имеют в программном проекте, как они инициализируются и как обрабатываются данные, введенные с помощью данных элементов управления?

3) Какой метод используется для отображения диалогового окна в процессе выполнения процедуры?

4) С помощью какой функции определяется количество записей в списке на рабочем листе?