' Разрешено вводить числа в двух форматах:
' - естественная форма записи с фиксированной точкой. Десятичная точка отделяет целую часть от дробной.
' - экспоненциальная форма записи числа с плавающей точкой
Private Sub Text1_KeyPress (Index As Integer, KeyAscii As Integer)
Dim strValid As String
'определяем значения переменных, допустимых в окнах для редактирования
Select Case Index
Case 0, 1
strValid = «123 456 789±.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
Ввод данных
Начало программы
Останов
Выходные данных
