|
Линейные вычислительные процессыЛинейная программа – это такая программа, в которой операторы выполняются один за другим в том порядке, в каком они записаны в программе. Пример 1 Найти z
где у=2/3, а=27.
Решение в таблице Excel: 1. Переименовать Лист1 в Линейные_процессы, 2. В ячейки А1:А3 ввести комментарии к Примеру 1, 3. Ячейку В1 переименовать в а, В2 – в у, 4. Ввести в В1 число 27, в В2 формулу =2/3, 5. Ввести в ячейку В3 формулу, используя для вставки функций Мастер функций, вставку аргументов в формулу лучше производить при помощи мыши, 6. По завершении ввода формулы нажать Enter. Решение в редакторе Excel Visual Basic (Запись макроса в виде отдельной процедуры): 1. Перейти в редактор Visual Basic (Сервис – Макрос - редактор Visual Basic), 2. Откройте Модуль 1 (Вставка – Модуль или Insert – Module) 3. Наберите программу.
Sub Линейные1() a = Val(InputBox("Введите a", "Ввод a")) 'Ввод данных в диалоговом окне y = 2 / 3 'Ввод данных в программе z = Exp(Sin(y) ^ 3) + a ^ (1 / 3) * Log(Atn(a * y)) MsgBox "z=" & z 'Вывод результата в диалоговом окне End Sub 'Ответ: при a=27 'z=2.51358 Пример 2 Найти g
где х=ln2, y=0.28*102.
Решение в таблице Excel:
Решение в редакторе Excel Visual Basic (Запись макроса в виде отдельной процедуры):
Sub Линейные2() y = Val(InputBox("Введите y", "Ввод y")) 'Ввод данных в диалоговом окне x = Log(2) g = x ^ (1 / 3) * Tan(Abs(x + 1) * (x - Exp(-x))) + (Cos(3.1416 / y)) ^ 2 MsgBox "g=" & g 'Вывод результата в диалоговом окне End Sub
'Ответ: при y=28 'g=1.2876
Создание диалога
Ввод информации часто осуществляется с помощью клавиатуры и мыши. Чтобы организовать взаимодействие пользователя и программы, используются разнообразные экранные формы. Ярким примером таких форм служат диалоги в программах для среды Windows. Для создания диалога (формы) необходимо вставить в рабочую книгу лист с заготовкой нового диалога. Вставка осуществляется Сервис – Макрос – Редактор Visual Basic, Insert – User Form (Вставка – Диалог). Первый шаг при работе с экранной формой – это установка значений её свойств View – Properties Window (Вид – Окно свойств) (рис. 8). Свойство Name (Имя) – имя формы, которое используется в программе для ссылки на экранную форму. Свойство Caption (Заголовок) – текст, который отображается в строке заголовка.
Рис. 8. Окно свойств
Целесообразно вывести на экран также Окно проекта (View – Project Explorer), которое является навигатором в редакторе Visual Basic (рис. 9). Рис. 9. Окно проекта
Созданный диалог можно выполнить, нажав клавишу [F5]. Под выполнением понимается вывод её на экран в окне приложения.
Табл. 3. Элементы управления
Создание всех элементов управления в поле диалога происходит с помощью кнопок на панели инструментов Формы (рис. 10).
Рис. 10. Панель инструментов Формы
Пример: Создать диалог вычисления z
где у=2/3, а=27.
Решение: 1. Вставить в рабочую книгу лист с заготовкой нового диалога. Сервис – Макрос – Редактор Visual Basic, Insert – User Form (Вставка – Диалог). 2. Вызвать окно свойств View – Properties Window (Вид – Окно свойств) и Окно проекта (View – Project Explorer). 3. Измените заголовок диалога, для этого в Окне свойств (Properties Window) в строке Caption, удалите заголовок User Form1 и набейте Пример1_Линейные. 4. С помощью кнопок на панели инструментов «Формы» (“ToolBox”) создать необходимые элементы диалога. a) При помощи кнопки Метка (Label) растягиваете поле для названий, удаляете предложенное, набиваете, вместо Label1 - Ввод у, вместо Label2 - Ввод а, вместо Label3 - Результат z. b) Далее при помощи кнопки Текстовое поле (TextBox) растягиваете поля ввода. c) Рисуете кнопки, используя одноимённые кнопки с панели инструментов «Формы» (“ToolBox”). CommandButton1 –называете Ответ, CommandButton2 – Очистить, CommandButton3 – Выход (рис. 11).
Рис. 11. Диалоговое окно
5. Для того, чтобы осуществить взаимодействие диалога с программой дважды щёлкаем мышью по кнопке Ответ. В листе программы User Form1 появится заготовка процедуры, в которой необходимо набрать следующее[1]: ![]() ![]() Что будет с Землей, если ось ее сместится на 6666 км? Что будет с Землей? - задался я вопросом... ![]() Что способствует осуществлению желаний? Стопроцентная, непоколебимая уверенность в своем... ![]() Что делать, если нет взаимности? А теперь спустимся с небес на землю. Приземлились? Продолжаем разговор... ![]() Система охраняемых территорий в США Изучение особо охраняемых природных территорий(ООПТ) США представляет особый интерес по многим причинам... Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|