Применение диалоговых окон (форм)

В VBA есть диалоговые окна или формы пользователя аналогичные формам в VB.
Для загрузки формы надо войти через панель Visual Basic в интегрированную среду разработки и выбрав в меню пункты «Insert»à «UserForm» вставить форму. На панели элементов управления находятся текстовое поле – TextBox, командная кнопка – CommandButton, надпись – Label и другие элементы управления, свойства которых подобны соответствующим в VB, хотя названия несколько отличаются. Но есть дополнительные элементы, которые специфичны именно для Excel, а именно редактор ссылок – RefEdit, с помощью которого можно указывать мышью ячейки для ввода и вывода данных. Дадим форме имя (свойство Name) «frmV» и название (свойство Caption) «Вычисление объёма» в окне свойств (Properties). Поместим на форму три элемента управления RefEdit для ввода адресов ячеек с рабочего листа содержащих значения хорды, угла, дуги с именами по умолчанию RefEdit1, RefEdit2, RefEdit3 соответственно и для адреса ячейку, которая получит значение объёма (RefEdit4). Также поместим текстовое поле (TextBox1) для параллельного вывода значения объёма на форму и командную кнопку (CommandButton1) для запуска процедуры вычисления.

 

 

 

 

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

В качестве аргумента используем элемент управления RefEdit таким образом, чтобы присвоить переменной значения, находящейся в ячейке используем синтаксис:

X=Range(RefEdit1.Value).Value

Так как свойство Value – это свойство по умолчанию как для Range, так и для RefEdit, то его можно не использовать и написать

X=Range(RefEdit1)

Двойной щелчок мыши по командной кнопке создаст в окне модуля формы заготовку процедуры, запускаемой по щелчку по этой кнопке.

В качестве примера вычисления объема напишем следующий код:

Private Sub CommandButton1_Click()

Const Pi = 3.14159265358979

Dim x1 As Double, x2 As Double, x3 As Double, x4 As Double

x1 = Range(RefEdit1) ‘присвоение переменной x1 значение ячейки, адрес которой ‘находится в RefEdit1

x2 = Range(RefEdit2)

x3 = Range(RefEdit3)

x4 = Pi * x1 ^ 3 * 1 / Tan(Pi / 180 * x3 / 2) * Tan(Pi / 180 * x2) / (8 * Sin(Pi / 180 * x3 / 2) ^ 2)

TextBox1.Text = x4

Range(RefEdit4) = x4 ‘присвоение ячейки с адресом, находящимся в RefEdit4 ‘вычисленного значения

End Sub

Для вызова формы с рабочего листа на панели инструментов Visual Basic нажмем кнопку «Элементы управления» и поместим на лист кнопку. Дважды щелкнув по ней, напишем код вызова формы. Синтаксис оператора показа формы такой: ИмяФормы.Show

Private Sub CommandButton1_Click()

frmV.Show

End Sub

 

Обратите внимание, что эта процедура помещена в модуль рабочего Листа.

 

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

 

 

В ячейке, указанной для вывода получим значение объема, которое должно быть таким же, как и в предыдущих случаях. Для вычисления значения переменной x4 можно было использовать уже готовую функцию пользователя фнкОбъём, написав:

x4=фнкОбъём(x1, x2,x3)

 

Итак, проект содержит стандартный модуль с общедоступной (Public) функцией фнкОбъём(), форму со своим модулем, где находится локальная (Private) процедура ввода, вычисления, вывода данных и модуль рабочего листа «Лист1» с процедурой вызова формы.

 

 

 

 

 

 

Задание на лабораторную работу №9

 

1. Создать в VBA форму для расчёта значения выражения. Выражение придумать самостоятельно, оно должно иметь не менее трёх аргументов. Отчет состоит из кода процедуры, вида формы в режиме разработки, вида формы в режиме вычислений.

 

 

2. Выполнить задания к лабораторной работе № 8 применяя для ввода и вывода элементы управления RefEdit в диалоговых окнах.

 

Лабораторная работа № 10

 

Пакет MatLab. Операции над матрицами. Решить заданную СЛАУ методом Крамера и матричным методом

 

 

Решение систем линейных уравнений относится к самой массовой области применения матричных методов. Система линейных уравнений имеет вид:

 

Рассмотрим различные способы решения систем уравнений.

Матричный способ решения систем линейных уравнений

Пусть А – матрица коэффициентов при неизвестных;

В – вектор-столбец свободных членов;

Х – вектор-столбец неизвестных, т.е.

 

 

Тогда систему уравнений можно записать в матричном виде

A*X=В. Решение системы уравнений имеет вид Х=А^-1*B

 

A^-1- матрица, обратная матрице А.

Пример

Решить систему уравнений

 

 

Порядок ввода:

>> A=[2 –1;5 2]

>> В=[4; 3]

>> X=A^–1*B

В результате получим х1=1,222, х2=–1,556.

Решение системы линейных уравнений методом Крамера

Для решения системы линейных уравнений методом Крамера не-

обходимо:

1. Задать главную матрицу из коэффициентов при неизвестных.

2. Задать вспомогательные матрицы (в главной матрице заменить

поочередно один столбец значениями свободных членов).

3. Вычислить неизвестные системы уравнений, разделив опреде-

литель соответствующей вспомогательной матрицы на опре-

делитель главной матрицы.

Пример

Решить систему уравнений

 

Порядок ввода:

>> A=[2 –1;5 2]

>> A1=[4 –1;3 2]

>> A2=[2 4;5 3]

>> х1=det(A1)/det(A)

>> х2=det(A2)/det(A)

В результате получим х1=1,222, х2=–1,556.

 

Задание на лабораторную работу № 10

 

Выполнить задания к лабораторным работам №2 и № 3 в системе MatLab.

 

Содержание отчета

По каждому заданию лабораторной работы должны быть представлены отчёты в распечатанном виде с текстом задания, со скриншотами рабочих листов, с комментариями к кодам программ, объяснениями выполняемых действий

 

Методические материалы рассмотрены и утверждены на заседании кафедры «Информатика и информационная безопасность» 17.01.2017 г., протокол № 6

 

Разработчик: ст.преподаватель кафедры «Информатика и информационная безопасность» В.И. Носонов..