3.3 Программа построения графика
Данная программа запускаться при активации Form4, которую можно активировать с основной формы (Form3) при нажатии кнопки «Решить» на рамке «Графическое решение». Если число данных уравнений не будет равен двум, то кнопка активации Form4 не будет отображаться на основной форме.
Программу можно разбить на несколько этапов:
Вычисление шага и построение осей координат;
Постройка графика.
Текст программы:
Private Sub Form_Activate()
a(1, 1) = Val(Text1.Text)
a(1, 2) = Val(Text2.Text)
a(1, 3) = Val(Text3.Text)
a(2, 1) = Val(Text4.Text)
a(2, 2) = Val(Text5.Text)
a(2, 3) = Val(Text6.Text)
'размеы picture
l = Picture1.Width
p = Picture1.Height
'точка пересечения
X2 = (a(2, 3) * a(1, 1) - a(1, 3) * a(2, 1)) / (a(2, 2) * a(1, 1) - a(1, 2) * a(2, 1))
X1 = (a(1, 3) - a(1, 2) * X2) / a(1, 1)
'шаг
h1 = Int((l - 500) / (Abs(X1) + 2))
h2 = Int((p - 500) / (Abs(X2) + 2))
If h1 > h2 Then h = h2 Else h = h1
'начала координат
If X1 > 0 Then
If X2 > 0 Then
x0 = 500
y0 = p - 500
Else
x0 = 500
y0 = 500
End If
Else
If X2 > 0 Then
x0 = l - 500
y0 = p - 500
Else
x0 = l - 500
y0 = 500
End If
End If
'координатные оси
Picture1.Line (x0, 0)-(x0, p)
Picture1.Line (0, y0)-(l, y0)
'построение гафика
r = Int((l - x0) / h) + 1
k = (Int(x0 / h) + 1) * (-1)
f1 = (a(1, 3) - a(1, 1) * k) / a(1, 2)
f2 = (a(2, 3) - a(2, 1) * k) / a(2, 2)
i0 = k * h
'Picture1.Line (0, 0)-(0, 100)
'Picture1.Print r, k, f1, f2, i1
For i = k To r Step 0.1
i1 = i * h
fx1 = h * (a(1, 3) - a(1, 1) * i) / a(1, 2)
fx2 = h * (a(2, 3) - a(2, 1) * i) / a(2, 2)
Picture1.Line (x0 + i0, y0 - f1)-(x0 + i1, y0 - fx1), RGB(0, 0, 200)
Picture1.Line (x0 + i0, y0 - f2)-(x0 + i1, y0 - fx2), RGB(0, 200, 0)
f1 = fx1
f2 = fx2
i0 = i1
Next
'цифры
Picture1.Line (x0, y0)-(x0 - 175, y0)
Picture1.Print 0
If Abs(k) > r Then z = k Else z = (-1) * r
For i = z To (-1) * z
If i <> 0 Then
Picture1.Line (x0, y0 - i * h)-(x0 + 100, y0 - i * h)
Picture1.Print i
Picture1.Line (x0 - i * h, y0)-(x0 - i * h, y0 + 100)
Picture1.Print -i
End If
Next
Picture1.Line (x0 + X1 * h, y0)-(x0 + X1 * h, y0 - X2 * h), RGB(200, 0, 0)
Picture1.Line (x0, y0 - X2 * h)-(x0 + X1 * h, y0 - X2 * h), RGB(200, 0, 0)
End Sub
3.4 Программа завершения работы приложения
При выборе команды меню Файл → Выход на любой форме данного приложения запускается программа, завершающая работу приложения. После выполнения действий для запуска данной программы появляется диалоговое окно с подтверждением завершения работы приложения или отклонением.
Текст программы:
Private Sub exit_Click()
If MsgBox("Вы действительно хотите закрыть приложение?",vbYesNo+ vbQuestion, "Exit System...") = vbNo Then
Exit Sub
End If
End
End Sub
3.5 Программы перехода между формами
линейный уравнение метод крамер
При выборе команды в меню форм или нажатие кнопки «построить график» на основной форме (Form2), «Отменить» в форме сохранения (Form5) открывается форма, которая требуется для дальнейшей работы приложения.
Текст программы перехода титульной формы(Form1):
Private Sub metod1_Click()
Form5.Show
End Sub
Private Sub prog1_Click()
Form2.Show
Form1.Hide
End Sub
Private Sub sozd1_Click()
Form6.Show
End Sub
Текст программы перехода формы ввода размерности системы(Form2):
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Form3.Show
Form3.Picture1.Cls
Form3.Picture2.Cls
Form3.Picture3.Cls
Form2.Hide
End If
End Sub
Текст программы перехода основной формы(Form3):
Private Sub Command2_Click()
Form4.Show
End Sub
Private Sub glav3_Click()
Form1.Show
Form3.Hide
End Sub
Private Sub metod3_Click()
Form6.Show
Form3.Hide
End Sub
Private Sub sozd3_Click()
Form5.Show
Form3.Hide
End Sub
Private Sub vrazm3_Click()
Form2.Show
Form3.Hide
End Sub
Текст программы перехода формы Графика(Form4):
Private Sub glav4_Click()
Form1.Show
Form4.Hide
End Sub
Private Sub prog4_Click()
Form2.Show
Form4.Hide
End Sub
Private Sub sozd4_Click()
Form6.Show
Form4.Hide
End Sub
Текст программы перехода формы О методе(Form5):
Private Sub glav5_Click()
Form1.Show
Form5.Hide
End Sub
Текст программ перехода формы О создателе(Form6):
Private Sub glav6_Click()
Form1.Show
Form6.Hide
End Sub
Private Sub metod6_Click()
Form5.Show
Form6.Hide
End Sub
Private Sub Prog6_Click()
Form2.Show
Form6.Hide
End Subы