Решение прикладных задач

Цель лабораторной работы
Постановка задачи
Схема программы
Интерфейс программы
Код программы
Внешний вид программы в пакете Mathcad
Выводы

Решение прикладных задач

'посылаем данные в MathCad

Call objMC.SetComplex("in0", varX, 0)
Call objMC.SetComplex("in1", varE, 0)

'производим перерасчет
Call objMC.Recalculate

'выходными данными является массив суммы ряда в зависимости от числа итераций
Call objMC.GetComplex("out0", x, aImData)

Exit Sub

End Sub
'кнопка "Выход"
Private Sub cmdClose_Click()
Unload Me
End Sub
'Загрузка формы
Private Sub Form_Load()
'загружаем иконку
Me.Icon = LoadResPicture(101, vbResIcon)

'отображаем форму
Me.Show
'отображаем окно помощи
Call mnuHAbout_Click
RePlot

Exit Sub

End Sub
' кнопка меню "Активировать объект MathCad"
Private Sub mnuEEquation_Click()
chkEdit.Value = Checked
End Sub
'кнопка меню "Выход"
Private Sub mnuFExit_Click()
Unload Me
End Sub
'кнопка меню "О программе"
Private Sub mnuHAbout_Click()
frmAbout.Show vbModal, Me
End Sub
'когда пользователь редактирует объект MathCad происходит перерасчет данных
Private Sub oleMathcadObject_LostFocus()
RePlot
End Sub
'когда пользователь прекращает редактировать объект MathCad и переходит в окно для ввода, то соответствующая кнопка отжимается
Private Sub Text1_Click(Index As Integer)
If chkEdit Then
chkEdit.Value = Unchecked
End If
End Sub
' когда пользователь покинул окно для редактирования - необходимо произвести перерасчет
Private Sub Text1_LostFocus(Index As Integer)
RePlot
End Sub
' Подпрограмма для ввода данных пользователем.
' Разрешено вводить числа в двух форматах:
' – естественная форма записи с фиксированной точкой. Десятичная точка отделяет целую часть от дробной.
' – экспоненциальная форма записи числа с плавающей точкой
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Dim strValid As String

'определяем значения переменных, допустимых в окнах для редактирования
Select Case Index