2 Этап Работа с готовыми программами
Пример программы:
Проект Поиск Y по X
Public Class frmXY
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub btnPusk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPusk.Click
Dim X, Y As Single
X = Convert.ToDouble(txtX.Text)
lblY.Text = ""
If X <= 10 And X <> 5 Then
Y = 1 / (X - 5)
Else
If X > 15 Then
Y = Math.Cos(X)
Else
lblY.Text = "Не определено"
End If
End If
If lblY.Text = "" Then lblY.Text = "Y=" & Y
End Sub
End Class
Тестирование
|
№ |
X |
Y |
|
1 |
0 |
-0,2 |
|
2 |
5 |
Не определено |
|
3 |
-5 |
-0,1 |
|
4 |
12 |
Не определено |
|
5 |
19 |
0,9887 |
3 Этап Составление программ
Самостоятельное составление программ и решение задач.
10.Методика введения понятия «Классы»
1 Этап Подготовительный
1. Понятие класса. Класс объединяет объекты имеющие одинаковый набор свойств и схожее поведение (методы).
2. Оператор Class
Class Worker
'Задание метода-свойства
Property age() As Integer
'Чтение свойства
Get
Return ageValue
End Get
'Запись метода-свойства
Set(ByVal Value As Integer)
If Value <= 0 Then
ageValue = 0
Else
ageValue = Value
End If
End Set
End Property
'Задание полей
Private ageValue As Integer 'Закрытое поле
Public name As String 'Открытое поле
End Class
3.Создание экземпляра класса
Dim Stuff as new Worker()
Stuff.name = «Вася»
Stuff.age = 19
2 Этап Работа с готовыми программами
Пример программы:
Процесс программирования состоит из 2 частей:
-
визуальное конструирование;
-
программирование событий;
Public Class Sudar
'поля (все закрыты)
Private NameValue, StatusValue As String
Private AgeValue As Integer
'методы - свойства
'стратегия: Read,Write (Чтение, запись)
Property Name() As String
Set(ByVal value As String)
NameValue = value
End Set
Get
Return NameValue
End Get
End Property
'стратегия: Read-only(Только чтение)
Property Status() As String
Set(ByVal value As String)
End Set
Get
Return StatusValue
End Get
End Property
'стратегия: Read,Write (Чтение, запись)
Property Age() As Integer
Set(ByVal value As Integer)
AgeValue = value
Select Case AgeValue
Case Is < 7
StatusValue = "ребенок"
Case 8 To 17
StatusValue = "школьник"
Case 18 To 22
StatusValue = "студент"
Case Else
StatusValue = "служащий"
End Select
End Set
Get
Return AgeValue
End Get
End Property
End Class
Public Class frmPrivet
Dim User As New Sudar()
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub txtInput_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtInput.TextChanged
User.Name = txtInput.Text
lblOutput.Text = "Здравствуй, " & User.Name & "!"
End Sub
Private Sub txtAge_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAge.TextChanged
If txtAge.Text = "" Then
User.Age = 0
Else
User.Age = txtAge.Text
End If
lblStatus.Text = "Вы " & User.Status
End Sub
End Class