Настройка операционной системы и пакетов прикладных программ для работы с документами. Разработка приложения на базе интегрированных сред, страница 14

Используемые программы:

Windows, MS Excel 97, MS Word

Используемые файлы:

К занятию 8 рисунок.jpg

План занятия:

Часть I.Автоматизация создания приложений в интегрированной среде.

I. Работа под руководством преподавателя.                                                     60 минут

     Создание рабочего листа

II. Самостоятельная работа.                                                                             20 минут

Часть II.Создание приложений с помощью VisualBasic.

I.Работа под руководством преподавателя.                                                                  50 минут

Создание диалогового окна в редакторе VisualBasic и включение созданного приложения в документ Word

II. Самостоятельная работа.                                                                              30 минут

ЗАПУСК ПРОГРАММЫ:

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

(См. «Инструкцию по установке программы на ПК»)

Часть I.Автоматизация создания приложений в интегрированной среде.

Рекомендуемое время

80  минут

I.Создание рабочего листа

Рекомендуемое время

60  минут

Задание:

Создать приложение для формирования квитанций. Программа должна иметь следующую структуру:

·  ввод данных;

·  запоминание данных;

·  обработка данных.

Программа должна использовать модуль и рабочий лист:

·  рабочий лист должен содержать бланк квитанции, в котором данные хранятся до полной готовности к печати;

·  модуль должен содержать программу, осуществляющую ввод данных, хранение их на рабочем листе и печать.

1.1. Создание рабочего листа.

1.  Запустите табличный процессор Excel. Измените название листа 1 рабочей книги на Квитанция.

2.  Введите в ячейку А2 текст Продавец Ф.И.О.

3.  Введите в ячейку А3 текст Нижегородская, 30

4.  Введите в ячейку А4 текст ТОО Чара

5.  Введите в ячейку B6 текст Товар

6.  Введите в ячейку С6 текст Цена

7.  Введите в ячейку А7 число 1

8.  Введите в ячейку А8 число 2

9.  Выделите ячейки А7:А8 и с помощью маркера заполнения заполните диапазон ячеек А7:А16 числами от 1 до 10.

10.  В ячейке С16 установите обрамление снизу жирной чертой.

11.  Установите для интервала ячеек С7:С19 числовой формат «Денежный» вида               «-$1,234.10»

12.  Установите ширину столбцов В и С равной 27.0.

13.  Присвойте ячейке В7 имя Верх_листа.

14.  Присвойте интервалу ячеек А1:D20 имя Диапазон_печати и снимите выделение интервала.

15.  Выполните команду Файл – Параметры страницы. На вкладке Поля установите Верхнее и Нижнее поля равными 0. На вкладке Лист, сбросьте все установленные флажки и нажмите кнопку ОК.

1.2. Создание процедур в модуле.

1.  Выполните команды Сервис – Макрос – Редактор VisualBasic. В окне MicrosoftVisualBasic выберите команды Вставка – Модуль. Visual Basic добавит стандартный модуль с именем Модуль «№» (Модуль 1).

2.  Нажмите клавишу <F4> и в окне Свойств Проекта измените значение свойства Name с Модуль 1 на Выписка_квитанции.

3.  Введите в модуль следующую процедуру:

‘

‘Выписка Квитанции

‘Программа выписки квитанций.

‘

Option Explicit                      ‘Обязательное определение всех переменных

Dim theSheet As Object                  ‘Указатель на рабочий лист       

Dim OutputRange As Object                ‘Указатель на список товара

Const MaxNumItems = 10      ‘Максимальное допустимое количество товара

'

'Ввод данных                                         

‘

Sub getEntries()

    Dim theItem As String, theCost As Currency

    Dim theRow As Integer, NumItems As Integer

' Определения указателя на рабочий лист

Set theSheet = _

Application .Workbooks(«Пример_1.xls»).Worksheets(«Квитанция»)

'Определения указателя на таблицу товара

Set OutputRange = theSheet.Range(«Верх_листа»)

ClearRange OutputRange    ‘Очистка таблиц товара

NumItems = 1

'Ввод наименования и цены не более чем 10 штук товара

Do While NumItems <= MaxNumItems

'Ввод наименования товара

       theItem = InputBox(«Наименование товара», «Выписка Квитанции»)