2 Этап Работа с готовыми программами

Пример программы:

Процесс программирования состоит из 2 частей:

• визуальное конструирование;

• программирование событий;

Программа-приветствие

1.

2.

Public Class frmPrivet

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

lblOutput.Text = "Здравствуй, " & txtInput.Text & "!"

End Sub

End Class

Проект «Перевод валют»

Public Class frmPerevod

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

lblSumma.Text = "Сумма=" & txtKurs.Text * txtNal.Text

End Sub

End Class

3 Этап Составление программ

Самостоятельное составление программ и решение задач.

5.Методика введения понятия «Графические методы»

1 Этап Подготовительный

1.Метод представляет собой действие, выполняемое над объектом. Графические методы используются для построения изображений на поверхности объектов.

Формат команды: объект.метод : например, picDraw.DrawLine().

2.Графические методы применимы к следующим объектам: форма (Form) и картинка (PictureBox).

3.Система координат.

Единица измерения 1 пиксель. Свойства: X (координаты левой границы), Y (координата верхней границы), Width (ширина), Height (высота).

4.Основные методы:

Рисовать можно карандашом. Новый экземпляр карандаша задается

Dim greenPen = New Pen(Color.Green)

Для рисования необходимо создать холст на объекте, например picDraw:

Dim picGraph As Graphics

picGraph = picDom.CreateGraphics()

Основной метод рисования

picGraf.DrawLine(myPen,int xl, int yl, int х2, int y2) вычерчивает текущим цветом отрезок прямой между точками с координатами (xl, yl) и (х2, у2).

Можно задать последовательность точек следующим образом

Dim pointsOsnova As Point()={new Point(x1,y1), _

new Point(x2,y2), new Point(x3,y3)}

picGraf.DrawLines(pen, pointsOsnova)

Другие графические методы:

DrawRectangle(pen, int x, int у, int width, int height) — чертит прямоугольник со сторонами, параллельными краям экрана, задаваемый координатами верхнего левого угла (х, у), шириной width пикселов и высотой height пикселов;

DrawPolygon(pen, points) — чертит замкнутый многоугольник, последняя точка соединяется с первой;

DrawEllipse(pen, int x, int у, int width, int height) — чертит овал, вписанный в прямоугольник, заданный аргументами метода. Если width = height, то получится окружность;

DrawArc(pen, int x, int у, int width, int height, int startAngle, int arc) — чертит дугу овала, вписанного в прямоугольник, заданный первыми четырьмя аргументами. Дуга имеет величину arc градусов и отсчитывается от угла startAngle. Угол отсчитывается в градусах от оси Ох. Положительный угол отсчитывается по часовой стрелке, отрицательный — против часовой стрелки;

DrawPie(pen, int x, int у, int width, int height, int startAngle, int arc) — чертит сектор овала, вписанного в прямоугольник, заданный первыми четырьмя аргументами. Сектор имеет величину arc градусов и отсчитывается от угла startAngle. Угол отсчитывается в градусах от оси Ох. Положительный угол отсчитывается по часовой стрелке, отрицательный — против часовой стрелки.

Метод Fill задает закрашенные фигуры. Закраска производится кистью:

Dim redBrush = new SolidBrush(Color.Red)

Графические методы с закраской

FillRectangle(brush, int x, int у, int width, int height) — чертит закрашенный прямоугольник со сторонами, параллельными краям экрана, задаваемый координатами верхнего левого угла (х, у), шириной width пикселов и высотой height пикселов;

FillPolygon(brush, points) — чертит замкнутый закрашенный многоугольник, последняя точка соединяется с первой;

FillEllipse(brush, int x, int у, int width, int height) — чертит закрашенный овал, вписанный в прямоугольник, заданный аргументами метода. Если width == height, то получится круг;

FillPie(brush, int x, int у, int width, int height, int startAngle, int arc) — чертит закрашенный сектор овала, вписанного в прямоугольник, заданный первыми четырьмя аргументами. Сектор имеет величину arc градусов и отсчитывается от угла startAngle. Угол отсчитывается в градусах от оси Ох. Положительный угол отсчитывается по часовой стрелки, отрицательный — против часовой стрелке.

Для вывода текста в область рисования цветом Brush и шрифтом Font, начиная с точки (х, у), в классе Graphics существует следующий метод:

DrawString(String S, Font, Brush, int X, int Y) — выводит строку s. Точка (х, у) — это левая верхняя точка первой буквы текста на базовой линии (baseline) вывода шрифта.

Метод setFont(Font newFont) класса Graphics устанавливает текущий шрифт для вывода текста. Шрифт — это объект класса Font.

Dim drawFont = New Font("Arial", 8)