Файл: Лабораторная работа 1. Операционная система Windows. Основные принципы работы. Цель работы.doc

4. 
   Для создания программы вычисления суммы двух чисел выполните двойной щелчок по кнопке + в окне UserForm1. В листе программы UserForm1 [Программы] появится заготовка процедуры:
   

Private Sub Command Button 1 – Click ( )

End Sub

Введите в нее текст процедуры для вычисления суммы:

Private Sub Command Button 1 – Click ( )

a=Val(Text Box1.Text)

b=Val(Text Box2.Text)

c=a+b

Text Box3.Text=Str(c)

End Sub

Ф-ия Val(х) – преобразование строки в число,

Str(х) – преобразование числа в строку

Text Box 1 – это объект поля ввода для числа A.

Text – свойство объекта Text Box 1.

a=Text Box1.Text означает: читать из поля ввода текст

5. 
   Аналогично создать процедуры вычитания, умножения и деления двух чисел.
   
6. 
   Для очистки полей ввода создать процедуру, предварительно щелкнув по кнопке Очистить
   

Private Sub Command Button 3 – Click ( )

Text Box1.Text=” “

Text Box2.Text=” “

Text Box3.Text=” “

End Sub

7. 
   Для выхода из программы используется оператор End. После двойного щелчка по кнопке Выход дополните процедуру оператором End.
   

Private Sub Command Button 4 – Click ( )

End

E

nd Sub

8. 
   Нажмите кнопку Run на панели инструментов Visual Basic и протестируйте программу.
   
9. 
   Для запуска диалога Простейший калькулятор нужно создать следующий макрос:
   

Sub StartrCalсul ( )

UserForm1.Show

End Sub

с помощью команды Сервис \ Макрос \ Редактор VB – Insert – Моdul.

10. 
    Для запуска макроса StartCalcul создать кнопку или команду в меню и назначить ей макрос StartCalcul.
    

---

Лабораторная работа № 26. Создание диалоговых окон

Цель работы: научиться создавать диалоговые окна и освоить работу с панелью инструментов «Формы».
1. Создание диалогового окна. Диалоговые окна используются для облегчения взаимодействия пользователя с программой. Для создания диалога щелкните правой кнопкой мыши на ярлыке рабочего листа, выберите Добавить…, затем опцию Окно диалога. В рабочую книгу будет вставлен новый лист Диалог 1 с заготовкой диалога и панелью Формы (элементов управления). Переименуйте лист Диалог 1 в Смета.

• 
  Создать лист диалога
  
• 
  И зменить размер диалогового окна. Для этого поднести указатель мыши к границе окна и, когда он примет вид выделить окно.
  
• 
  Используя маркеры выделения, увеличить размер окна примерно в 2 раза. Используя команду Формат объекта контекстного меню, установить размер окна 7x12 см.
  
• 
  Изменить заголовок окна. Для этого щелкните в области заголовка и введите новый заголовок Смета.
  

2. Размещение элементов управления в окне диалога.

Для размещения элемента управления в окне необходимо выбрать требуемый элемент на панели Формы (щелкнуть на него), а затем в окне диалога указать место его расположения (выделить соответствующую прямоугольную область). Элемент будет нарисован на выбранной области. После этого при необходимости можно переместить элемент, или изменить его размеры. Для изменения свойств элемента следует выделить его и в контекстном меню выбрать Формат объекта. Здесь можно установить связи с ячейками рабочего листа.

Задание: Фирма занимается продажей автомобилей, которые укомплектовываются по желанию клиента. В электронной смете клиент выбирает марку машины, сигнализацию и тип страховки по своему усмотрению. Итоговая цена формируется автоматически. Общение клиента с программой ведется через специально разработанный диалог, перечень услуг и расценки на них введены заранее.

---

Все исходные данные и расчеты ведутся на Листе1.

На Листе1введите следующие данные.

	A	B		C	D	E	F
1	Марка машины				Сигнализация
2	2106	82 000,00р.			Prestige	1 900,00р.
3	2107	96 000,00р.			Clifford	5 700,00р.
4	2108	115 000,00р.			Fighter	1 800,00р.
5	21093	117 000,00р.			Excalibur	3 500,00р.
6	21099	125 000,00р.			Flashpoint	4 800,00р.
7	21102	153 000,00р.			Нет	0
8		Клиент сделал следующий выбор:
9	Марка	Сигнализация	Тип страховки		Предоплата	Пост. Клиент	Итого
10

Создайте следующие элементы в диалоговом окне:

• 
  Создать надписи;
  
• 
  В ставить поле со списком. В контекстном меню выбрать Формат объекта, вкладку Элемент управления. В графе Формировать список по диапазону ввести ссылки на имеющиеся Марки машин. В графе Помещать результат в ячейку ввести ссылку на ячейку, куда должна быть помещена выбранная марка машины (A10). В графе Количество строк списка поставить 6. После этого проверить работу поля со списком. Для этого нажать кнопку и выбрать один из пунктов списка. На Листе1 в графе Марка должен отобразится номер выбранного пункта.
  

---

• 
  Вставить список. Список сформировать по диапазону имеющихся марок сигнализаций. Результат поместить в соответствующую ячейку Листа1. Проверить работу списка.
  
• 
  Вставить рамку. Ввести ее заголовок.
  
• 
  В рамке расположить 3 переключателя. Для переключателя «Нет» в Формате объекта установите Состояние – установлен, в поле Связать с ячейкой – ссылка на ячейку с типом страховки (C10). Обратить внимание, что после все переключатели группы будут связаны с той же ячейкой. Проверить работу переключателей группы.
  
• 
  Вставить флажки. Установить связи с соответствующими ячейками. Проверить работу флажков. При этом в связанных ячейках отображается логический результат ИСТИНА или ЛОЖЬ.
  
• 
  Вставить Текстовое поле. Здесь должен высвечиваться результат. Этот результат сначала необходимо рассчитать в соответствующей ячейке Листа1. Это будет делано в следующем разделе.
  
• 
  Вставить кнопку. В Формате объекта выбрать Функцию кнопки – Отклонить. Проверьте работу кнопки.
  

Создание элементов управления в диалоговом окне завершено.
3. Программирование логики электронной сметы. В результате пробного запуска диалога в десятой строке Листа1, где фиксировались выбранные клиентом пункты, появились некоторые значения. Для дальнейшего проектирования электронной сметы необходимо воспользоваться функциями АДРЕС и ДВССЫЛ. Функция АДРЕС возвращает ссылку на ячейку в виде текста и использует в качестве аргументов номер строки и номер столбца. Вторая функция преобразует ссылку, заданную как текст в обычную ссылку (адрес ячейки).

Ввести в ячейку А11 формулу =ДВССЫЛ(АДРЕС(А10+1;2;;;)). После этого в ячейке А11 отобразится цена выбранной марки машины. Ввести аналогичную формулу в В11.

Пусть страховка на полгода стоит 2500 р., а на год 4000 р. Тогда в ячейку С11 ввести формулу =ВЫБОР(С10;0;2500;4000). Эта функция выбирает значение из списка значений по индексу (индекс – первый аргумент).

Оплата может производиться в виде предоплаты и в кредит, при чем при оплате в кредит стоимость увеличивается на 25%. В ячейку

---

D11 ввести формулу =ЕСЛИ(D10;СУММ(А11:С11); СУММ(А11:С11)*1,25).

Постоянным клиентам предоставляется скидка 10%. В ячейку Е11 ввести формулу =ЕСЛИ(Е10;D11*0.9;D11).

В F11 ввести =Е11. Таким образом, итоговая цена будет отображена в ячейке F11.

Теперь необходимо создать два макроса. Первый будет автоматически запускать диалог при открытии документа. Для этого в меню Сервис нужно выбрать Макрос – Редактор Visual Basic. Открыть Модуль1. Для этого в окне справа открыть папку модулей и выполнить двойной щелчок на Модуле1. Ввести следующий макрос:

Sub auto_open()

DialogSheets(«Диалог1»).Show

End Sub

Проверить работу макроса.

Второй макрос служит для обновления суммы заказа в поле окна диалога. В окне модуля 1 введите следующую программу:

Sub Пересчет_Cуммы()

Sheets(«Диалог1»).DrawingObjects(«Editbox20»).Characters.Text=Sheets(«Лист1»).Range(«F11»)

End Sub

При вводе макросов обратить внимание на соответствие имен листов, полей ввода диалога и адресов ячеек вашего документа и представленного здесь образца.

Для того, чтобы обновление суммы выполнялось каждый раз при изменении полей диалога, необходимо каждому элементу диалога назначить второй макрос. Для этого нужно перейти на лист диалога, удерживая клавишу «Shift», выделить все элементы, которые могут изменить значение итоговой суммы. В контекстном меню следует выбрать команду Назначить макрос и указать имя макроса Пересчет_Суммы. Проверить работу макроса.

Хотя диалог запускается каждый раз при открытии файла, необходимо назначить ему дополнительную кнопку или пункт меню. Для этого нужно зайти в меню Вид \ Панель инструментов \ Настройка, выбрать вкладку Команды, в правой половине окна выбрать Макросы, а слева Кнопку или Пункт меню. Перетащить элемент Кнопка (Пункт меню) на панель инструментов (в меню Сервис, подменю Макрос). Закрыть окно настройки панели инструментов. Нажать на созданную кнопку и присвойте ей макрос AutoOpen. Проверить работу Кнопки (Пункта меню).

---