Компьютерные технологии в металлургии и литейном производстве. Дембовский В.В. - 150 стр.

UptoLike

ВУЗ: 

СЗТУ | Санкт-Петербург

Составители: 

Рубрика: 

150
End Sub
Module
Dim n As Integer ' Определение n как переменной целого типа
Приложение 3.
Коды форм и модуля учебного про-
екта Project1VB
Form1
‘Вычисления и построение графика средствами VB
‘Project1VB
‘Процедура, выполняемая при нажатии на Command2 [ПУСК]
‘Расчёт данных для графика
Private Sub Command2_Click()
‘Описание данных и массивов общего типа см. в модуле
Dim X As Integer
‘Описание окон ввода данных, где
‘Nmin – начальное значение N,
‘DN – шаг варьирования N,
‘Nmax – конечное значение N:
Nmin = Val(Text1.Text)
DN = Val(Text2.Text)
Nmax = Val(Text3.Text)
M = Val(Text4.Text)
‘Цикл вычисления корней R1, R2 и функций Y1, Y2
‘при различных значениях N
For I = Nmin To Mmax Step DN
N(I) = I
If N(I) ^ 2 – 4 * M < 0 Then
MsgBox “Недопустимое соотношение исходных данных !”
Exit Sub
End If
R1(I) = (– N(I) + Sqr(N(I) ^ 2 – 4 * M)) / (2 * M)
R2(I) = (– N(I) – Sqr(N(I) ^ 2 – 4 * M)) / (2 * M)
Y1(I) = 3 * Exp(7 * R1(I)) : Y2(I) = Exp(R2(I))
Next I
‘Конец процедуры,выполняемой при нажатии на Command2
End Sub
‘Процедура, выполняемая при нажатии на Command3 [ГРАФИК]
‘Построение графика
Private Sub Command3_Click()
Form1.Hide ‘Закрытие первой формы
Form2.Show ‘Открытие второй формы

Страницы