Код приложения на VB6 "Решение квадратного уравнения". Урок 2.
план-конспект урока по информатике и икт (10 класс) по теме

Элементы  управления.

Урок 3. Проект "Решение квадратного уравнения". Доработка проекта.

Цель урока: закрепить навыки работы по обработке событий LostFocus() и KeyPress().

Тип урока: практическая работа.

Средства и оборудование: компьютер, среда разработки VB 6.0.

Ход урока:

1. Проверка алгоритмов для событий KeyPress и LostFocus ЭУ текстовое поле.

Алгоритм для txtB события KeyPress .
Если код клавиши = коду клавиши Enter , то:
Присвоить sngB значение ЭУ txtB
Передать фокус ЭУ txtC
Конец если 

Алгоритм для txtC события KeyPress .
Если код клавиши = коду клавиши Enter , то:
Присвоить sngC значение ЭУ txtC
Передать фокус ЭУ cmdПуск
Конец если

Программный код для txtB события KeyPress .
Private Sub txtB_KeyPress(KeyAscii As Integer)
sngB = Val(txtB.Text)
txtC.SetFocus
End Sub

Программный код для txtC события KeyPress .
Private Sub txtC_KeyPress(KeyAscii As Integer)
sngC = Val(txtC.Text)
cmdПуск.SetFocus
End Sub

2. Самостоятельная работа за ПК.

Теперь необходимо написать код обработки события: щелчка по кнопке «Пуск». Алгоритм решения квадратного уравнения был разобран на первом уроке данного проекта.

Алгоритм.
Запросить значение переменных а, b и c .
Присвоить D значение b2 – 4* a * c .
Если D > 0, то:
Присвоить х1 значение  (-b-sqr(D))/2*a
Присвоить х2 значение  (-b+sqr(D))/2*a
Сообщить значение х1 и х2
Иначе если D =0, то:

Присвоить х значение  (-b)/2*a
Сообщить значение х
Иначе:
Сообщить «Уравнение корней не имеет».
Конец если.
Конец.

Программный код кнопки «Пуск».
Private Sub cmd Пуск _Click()
sngD = sngB * sngB - 4 * sngA * sngC
If sngD > 0 Then
sngX1 = (-sngB - Sqr(sngD)) / (2 * sngA)
sngX2 = (-sngB + Sqr(sngD)) / (2 * sngA)
Me.txtX1.Text = sngX1
Me.txtX2.Text = sngX2
ElseIf sngD = 0 Then
sngX1 = -sngB / (2 * sngA)
sngX2 = 0
Me.txtX1.Text = sngX1
Me.txtX2.Text = ""
Else
Me.txtX1.Text = ""
Me.txtX2.Text = ""
End If
End Sub

3.  Домашняя работа: подготовиться к зачету, подготовить тестовые задания для проверки работоспособности программы.

4.  Итог урока.