2 Этап Работа с готовыми программами
Пример программы:
Процесс программирования состоит из 2 частей:
-
визуальное конструирование;
-
программирование событий;
Программа-домик
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Public Class frmDomik
Dim picGraphics As Graphics
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 btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub frmDomik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
picGraphics = picDom.CreateGraphics()
End Sub
Private Sub btnDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDraw.Click
Dim X, Y, A As Integer
X = Convert.ToInt16(txtX.Text)
Y = Convert.ToInt16(txtY.Text)
A = Convert.ToInt16(txtA.Text)
Dim greenPen = New Pen(Color.Green)
Dim pointsOsnova As Point() = _
{New Point(X, Y), New Point(X + A, Y), _
New Point(X + A, Y - A), _
New Point(X, Y - A), New Point(X, Y)}
Dim yellowBrush = New SolidBrush(Color.Yellow)
picGraphics.FillPolygon(yellowBrush, pointsOsnova)
picGraphics.DrawLines(greenPen, pointsOsnova)
Dim pointsKrisha As Point() = _
{New Point(X + Convert.ToInt16(-A / 10), Y - A), _
New Point(X + Convert.ToInt16(0.5 * A), Y - 2 * A), _
New Point(X + Convert.ToInt16(1.1 * A), Y - A), _
New Point(X + Convert.ToInt16(-A / 10), Y - A)}
picGraphics.FillPolygon(yellowBrush, pointsKrisha)
picGraphics.DrawLines(greenPen, pointsKrisha)
Dim blueBrush = New SolidBrush(Color.Blue)
picGraphics.FillRectangle(blueBrush, X + Convert.ToInt16(0.25 * A), Y - Convert.ToInt16(0.75 * A), Convert.ToInt16(0.5 * A), Convert.ToInt16(0.5 * A))
Dim redBrush = New SolidBrush(Color.Red)
picGraphics.FillEllipse(redBrush, X + Convert.ToInt16(0.4 * A), Y - Convert.ToInt16(1.5 * A), Convert.ToInt16(0.2 * A), Convert.ToInt16(0.25 * A))
Dim drawFont
drawFont = New Font("Arial", 8)
Dim Nadpis As String
Nadpis = "X=" + Convert.ToString(X) + ", Y=" + Convert.ToString(Y)
picGraphics.DrawString(Nadpis, drawFont, blueBrush, X, Y)
End Sub
End Class
3 Этап Составление программ
Самостоятельное составление программ и решение задач.
8.Методика введения понятия “Процедуры”
1 Этап Подготовительный
1.Процедуры бывают событийными и общими. Общие процедуры бывают общедоступными (глобальными) и местными (локальными).
|
Public Sub Name (Arguments) Общедоступная процедура [Exit Sub] End Sub |
|
|
Вызов процедуры – Name Arguments |
|
|
Private Sub Name (Arguments) Локальная процедура в форме [Exit Sub] End Sub |
|
|
Если перед именем переменной поставить команду ByVal, то параметр передается по значению, а не по ссылке. |
|
2.Аргументы
Объявление переменных: Dim Name1 As Tip1, Name2 As Tip2
3.Полосы прокрутки предназначены для изменения значений.
Полосы прокрутки представлены следующими объектами:
|
HscrollBar - горизонтальная Value – значение Min и Max – пределы изменения |
VscrollBar - вертикальная Value – значение Min и Max – пределы изменения |