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

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

' Разрешено вводить числа в двух форматах:
' – естественная форма записи с фиксированной точкой. Десятичная точка отделяет целую часть от дробной.
' – экспоненциальная форма записи числа с плавающей точкой
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Dim strValid As String

'определяем значения переменных, допустимых в окнах для редактирования
Select Case Index
Case 0, 1
strValid = "0123456789+-.E"
End Select

'если пользователь вводит некорректные данные
If KeyAscii > 26 Then
If InStr(strValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If

' перерасчет, если пользователь, нажав Enter, сигнализирует о завершении ввода
If KeyAscii = 13 Then
RePlot
End If

End Sub
Программа для окна помощи:
Option Explicit
'при нажатии кнопки "OK" окно помощи закрывается
Private Sub cmdOK_Click()
Unload Me
End Sub
'загрузка формы
Private Sub Form_Load()
'загружаем иконку из файла ресурсов
With frmAbout
.Icon = LoadResPicture(101, vbResIcon)
.picIcon.Picture = LoadResPicture(101, vbResIcon)
End With
Me.Caption = "О программе"
End Sub
Внешний вид программы в пакете Mathcad
Выводы
При выполнении данного задания интерфейс был создан с помощью Visual Basic, а вычисления производились в MathCad, для этого использовался OLE-объект. Использовались функции SetComplex, Recalculate, GetComplex для передачи данных, выполнения расчета, возврата полученных данных соответственно. При анализе полученных результатов, мы видим, что сходимость к точному значению наблюдается уже на 4-м слагаемом при =0.001, =0.12.
Передача управления MathCad
Ввод данных
Начало программы
Останов
Выходные данных