3 Этап Составление программ
Самостоятельное составление программ и решение задач.
12.Методика введения понятия “Полиморфизм ”
1 Этап Подготовительный
1. Полиморфизм реализуется в ситуации, когда есть иерархия классов, и в каждом классе-потомке есть метод, который выполняет одно и то же действие. Но во всех классах-потомках это действие выполняется по-разному. В этом случае мы объявляем этот метод в классе-предке, но реализацию этого метода в классе-предке мы не пишем (а пишем отдельно в каждом классе-потомке). Класс-предок при этом мы объявляем как абстрактный. Создавать экземпляры такого класса нельзя - он используется только как предок для других классов в иерархии.
Объявление абстрактного класса
MustInherit Class NameClass
Public MustOverride Function NameFunction() As DataType
End Class
Объявление класса-потомка
Class ChildClass
Inherits NameClass
'Поля
Private A As Single
'Конструктор – получаем Исходные данные, например число A1
Public Sub New(ByVal A1 As Single)
A = A1
End Sub
'Реализуем метод
Public Overrides Function NameFunction () As DataType
Return Formula
End Function
End Class
2 Этап Работа с готовыми программами
Пример проекта:
Площадь фигуры
Абстрактный класс
MustInherit Class Figure
Public MustOverride Function Ploshad() As Single
End Class
Класс четырехугольник
Class Quadrangle
Inherits Figure
'Сторона четырехугольника
Private a, h As Single
'Конструктор
Public Sub New(ByVal a1 As Single, ByVal h1 As Single)
a = a1
h = h1
End Sub
'Реализуем метод Ploshad
Public Overrides Function Ploshad() As Single
Return a * h
End Function
End Class
Класс круг
Class Circle
Inherits Figure
'Радиус
Private r As Single
'Конструктор
Public Sub New(ByVal r1 As Single)
r = r1
End Sub
'Реализуем метод Ploshad
Public Overrides Function Ploshad() As Single
Return Math.PI * r * r
End Function
End Class
Основная программа
Public Class frmSFigure
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub rdbQuadrangle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbQuadrangle.CheckedChanged
Dim SQuad As New Quadrangle(Convert.ToSingle(txtA.Text), Convert.ToSingle(txtH.Text))
lblS.Text = "S=" & Convert.ToString(SQuad.Ploshad)
End Sub
Private Sub rdbCircle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbCircle.CheckedChanged
Dim SCircle As New Circle(Convert.ToSingle(txtR.Text))
lblS.Text = "S=" & Convert.ToString(SCircle.Ploshad)
End Sub
End Class
3 Этап Составление программ
Самостоятельное составление программ и решение задач.
13.Методика введения понятия “Команда выбора case”
1 Этап Подготовительный
1.Команды выбора предназначены для управления ходом выполнения программы.
2.Команды выбора организуются следующими операторами:
|
Select Case X Case X1 блок1 Case X2 to X3 блок2 Case Is > X4 блок3 Case Else блок4 End Select |
Оценивается значение переменой X:
-
1 значение;
-
диапазон от X2 до X3;
-
условие.
3.Условия применимости команд выбора:
Команда Case применяется при множественном выборе по одному параметру. Во всех остальных случаях применяется команда IF.