2 Этап Работа с готовыми программами
Пример программы:
Проект День недели
Public Class Week
Private NomerWeek As Integer
Public NameWeek As String
Property Nomer() As Integer
Set(ByVal value As Integer)
NomerWeek = value
End Set
Get
Return NomerWeek
End Get
End Property
Public Sub NWeek()
Select Case NomerWeek
Case 1
NameWeek = "понедельник"
Case 2
NameWeek = "вторник"
Case 3
NameWeek = "среда"
Case 4
NameWeek = "четверг"
Case 5
NameWeek = "пятница"
Case 6
NameWeek = "суббота"
Case 7
NameWeek = "воскресенье"
Case Else
NameWeek = "такого дня не существует"
End Select
End Sub
End Class
Public Class frmWeek
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 NameW As New Week()
NameW.Nomer = txtNomer.Text
NameW.NWeek()
lblName.Text = NameW.NameWeek
End Sub
End Class
3 Этап Составление программ
Самостоятельное составление программ и решение задач.
12.Методика введения понятия “Цикл for”
1 Этап Подготовительный
1.Циклы применяются для повторения нескольких шагов множество раз.
2. Циклы организуются следующими операторами:
|
For K=Nach to Kon Step Shag команды [Exit For] Next K |
3.Условия применимости циклов:
Цикл For применяется в том случае, когда известны начало, конец, шаг или количество повторений цикла.
2 Этап Работа с готовыми программами
Пример программы:
Проект «Улица»
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Public Class frmDerevnya
Dim picGraphics As Graphics
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
Dim whiteBrush = New SolidBrush(Color.White)
picGraphics.FillRectangle(whiteBrush, 0, 0, picDom.Width, picDom.Height)
End Sub
Private Sub btnDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDraw.Click
Dim X, Y, A, i, N As Integer
X = Convert.ToInt16(txtX.Text)
Y = Convert.ToInt16(txtY.Text)
A = Convert.ToInt16(txtA.Text)
N = Convert.ToInt16(txtN.Text)
Dim greenPen = New Pen(Color.Green)
Dim DomN = New Dom()
For i = 1 To N
DomN.SetNew(X, Y, A, picGraphics, greenPen)
DomN.show()
X = X + 1.5 * A
Next i
End Sub
Private Sub frmDerevnya_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
picGraphics = picDom.CreateGraphics()
End Sub
End Class
Public Class Dom
Private picGr As Graphics
Private X, Y, Shirina As Integer
Private Pen As Pen
' Констуктор
Public Sub SetNew(ByVal posX As Integer, ByVal posY As Integer, ByVal A As Integer, ByVal picG As Graphics, ByVal PenDraw As Pen)
MyClass.X = posX
MyClass.Y = posY
MyClass.Shirina = A
MyClass.picGr = picG
MyClass.Pen = PenDraw
End Sub
Public Sub show()
picGr.DrawRectangle(Pen, X, Y - Shirina, Shirina, Shirina)
Dim pointsKrisha As Point() = _
{New Point(X + Convert.ToInt16(-Shirina / 10), Y - Shirina), _
New Point(X + Convert.ToInt16(0.5 * Shirina), Y - 2 * Shirina), _
New Point(X + Convert.ToInt16(1.1 * Shirina), Y - Shirina), _
New Point(X + Convert.ToInt16(-Shirina / 10), Y - Shirina)}
picGr.DrawLines(Pen, pointsKrisha)
picGr.DrawRectangle(Pen, X + Convert.ToInt16(0.25 * Shirina), Y - Convert.ToInt16(0.75 * Shirina), Convert.ToInt16(0.5 * Shirina), +Convert.ToInt16(0.5 * Shirina))
picGr.DrawEllipse(Pen, X + Convert.ToInt16(0.4 * Shirina), Y - Convert.ToInt16(1.5 * Shirina), Convert.ToInt16(0.2 * Shirina), Convert.ToInt16(0.25 * Shirina))
End Sub
End Class