Графические возможности Visual Basic 2005.

Предпросмотр материала:

ПЛАН-КОНСПЕКТ УРОКА
Графические возможности Visual Basic 2005.

1.	*ФИО (полностью)*	Саликов Игорь Валентинович
2.	*Место работы*	ГБОУ Школа №2109
3.	*Должность*	учитель
4.	*Предмет*	Информатика и ИКТ
5.	*Класс*	9
6.	*Тема и номер урока в теме*	Тема: «Основы алгоритмизации и объектно-ориентированного программирования». Урок 4.19. «Графические возможности Visual Basic 2005».
7.	*Базовый учебник*	Информатика и ИКТ. Профильный уровень: учебник для 9 класса / Н.Д.Угринович. – 7-е изд. – М.: БИНОМ. Лаборатория знаний, 2013

8. Цели урока: овладение, обобщение и систематизация знаний учащихся по теме «Основы алгоритмизации и объектно-ориентированного программирования». Урок 4.19. «Графические возможности Visual Basic 2005».

9. Задачи:

Ø образовательные:

· актуализация знаний по теме «Системы счисления»;

· дифференциация материала, изученного по теме «Системы счисления»;

Ø развивающие:

· развитие познавательного интереса, внимания учащихся;

· развитие навыков индивидуальной практической деятельности;

· развитие коммуникационной компетентности у учащихся;

· развитие мышления учащихся при решении задач;

Ø воспитательные:

· повышение мотивации учащихся путем использования нестандартных задач;

· формирование творческого подхода к решению задач, четкости и организованности, умения оценивать свою деятельность и деятельность своих товарищей;

· формирование навыков самоорганизации и инициативы.

Ход урока.

Сообщение темы и целей урока.

На форме и управляющих элементах можно рисовать графические примитивы (линии, прямоугольники, окружности и др.). Для рисования необходимо определить объекты: Graphics (область рисования), Pen (перо), Bruch (кисть).

Определение объектов.

Объект Graphics (область рисования) позволяет выбрать в качестве области рисования определенный элемент управления и обладает методами рисования геометрических фигур. Cначала необходимо в разделе объявления переменных определить имя объекта:

Dim Graph1 As Graphics

Затем в программном коде обработчика события необходимо указать определенный элемент управления в качестве области рисования.

Graph1 = Me.PictureBox1.CreateGraphics()

Объект Pen (перо) определяет цвет и ширину линии рисования. Сначала необходимо в разделе объявления переменных определить имя объекта (например, Pen1), установить цвет (например, красный Color.Red) и ширину линии в пикселях (например, 3):

Dim Pen1 As New Pen (Color.Red, 3)

Затем в программном коде обработчика события можно установить новые значения цвета и ширины линии:

Pen1.Color = Color.Green

Pen1.Width = 15

Объект Bruch (кисть) определяет цвет и стиль закрашивания прямоугольников, окружностей и других замкнутых фигур. Сначала необходимо в разделе объявления переменных определить имя объекта (например, Bruch1) и определить тип краски и цвет (например, сплошная закраска синего цвета SolidBruch(Color.Blue):

Dim Bruch1 as New SolidBruch(Color.Blue)

Затем в программном коде обработчика события можно установить новый цвет закраски

Bruch1.Color = Color.Magenta

Создание проекта «Графический редактор».

Public Class Form1

Dim Graph1 As Graphics

Dim Pen1 As New Pen(Color.Red, 3)

Dim Brush1 As New SolidBrush(Color.Black)

Dim X1, X2, Y1, Y2, Red, Green, Blue As Integer

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Pen1.Color = Color.Red

Graph1.DrawLine(Pen1, X1, Y1, X2, Y2)

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Pen1.Color = Color.Green

Graph1.DrawRectangle(Pen1, X1, Y1, X2, Y2)

End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click

Graph1 = Me.PictureBox1.CreateGraphics()

X1 = CInt(TextBox1.Text)

X2 = CInt(TextBox2.Text)

Y1 = CInt(TextBox3.Text)

Y2 = CInt(TextBox4.Text)

End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click

Red = CInt(TextBox5.Text)

Green = CInt(TextBox6.Text)

Blue = CInt(TextBox7.Text)

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

Pen1.Color = Color.Magenta

Pen1.Width = 10

Graph1.DrawRectangle(Pen1, X1, Y1, X2, Y2)

Brush1.Color = Color.FromArgb(Red, Green, Blue)

Graph1.FillRectangle(Brush1, X1, Y1, X2, Y2)

End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

Pen1.Color = Color.Magenta

Graph1.DrawEllipse(Pen1, X1, Y1, X2, Y2)

End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click

Pen1.Color = Color.Blue

Pen1.Width = 3

Graph1.DrawEllipse(Pen1, X1, Y1, X2, Y2)

Brush1.Color = Color.FromArgb(Red, Green, Blue)

Graph1.FillEllipse(Brush1, X1, Y1, X2, Y2)

End Sub

End Class

Краткое описание материала

ПЛАН-КОНСПЕКТ УРОКА
Графические возможности Visual Basic 2005.

1.	*ФИО (полностью)*	Саликов Игорь Валентинович
2.	*Место работы*	ГБОУ Школа №2109
3.	*Должность*	учитель
4.	*Предмет*	Информатика и ИКТ
5.	*Класс*	9
6.	*Тема и номер урока в теме*	Тема: «Основы алгоритмизации и объектно-ориентированного программирования». Урок 4.19. «Графические возможности Visual Basic 2005».
7.	*Базовый учебник*	Информатика и ИКТ. Профильный уровень: учебник для 9 класса / Н.Д.Угринович. – 7-е изд. – М.: БИНОМ. Лаборатория знаний, 2013

9. Задачи:

Ø образовательные:

· актуализация знаний по теме «Системы счисления»;

· дифференциация материала, изученного по теме «Системы счисления»;

Ø развивающие:

· развитие познавательного интереса, внимания учащихся;

· развитие навыков индивидуальной практической деятельности;

· развитие коммуникационной компетентности у учащихся;

· развитие мышления учащихся при решении задач;

Ø воспитательные:

· повышение мотивации учащихся путем использования нестандартных задач;

· формирование навыков самоорганизации и инициативы.

Ход урока.

Сообщение темы и целей урока.

Определение объектов.

Dim Graph1 As Graphics

Graph1 = Me.PictureBox1.CreateGraphics()

Dim Pen1 As New Pen (Color.Red, 3)

Затем в программном коде обработчика события можно установить новые значения цвета и ширины линии:

Pen1.Color = Color.Green

Pen1.Width = 15

Dim Bruch1 as New SolidBruch(Color.Blue)

Затем в программном коде обработчика события можно установить новый цвет закраски

Bruch1.Color = Color.Magenta

Создание проекта «Графический редактор».

Public Class Form1

Dim Graph1 As Graphics

Dim Pen1 As New Pen(Color.Red, 3)

Dim Brush1 As New SolidBrush(Color.Black)

Dim X1, X2, Y1, Y2, Red, Green, Blue As Integer

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Pen1.Color = Color.Red

Graph1.DrawLine(Pen1, X1, Y1, X2, Y2)

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Pen1.Color = Color.Green

Graph1.DrawRectangle(Pen1, X1, Y1, X2, Y2)

End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click

Graph1 = Me.PictureBox1.CreateGraphics()

X1 = CInt(TextBox1.Text)

X2 = CInt(TextBox2.Text)

Y1 = CInt(TextBox3.Text)

Y2 = CInt(TextBox4.Text)

End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click

Red = CInt(TextBox5.Text)

Green = CInt(TextBox6.Text)

Blue = CInt(TextBox7.Text)

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

Pen1.Color = Color.Magenta

Pen1.Width = 10

Graph1.DrawRectangle(Pen1, X1, Y1, X2, Y2)

Brush1.Color = Color.FromArgb(Red, Green, Blue)

Graph1.FillRectangle(Brush1, X1, Y1, X2, Y2)

End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

Pen1.Color = Color.Magenta

Graph1.DrawEllipse(Pen1, X1, Y1, X2, Y2)

End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click

Pen1.Color = Color.Blue

Pen1.Width = 3

Graph1.DrawEllipse(Pen1, X1, Y1, X2, Y2)

Brush1.Color = Color.FromArgb(Red, Green, Blue)

Graph1.FillEllipse(Brush1, X1, Y1, X2, Y2)

End Sub

End Class

Графические возможности Visual Basic 2005.

Информатика

Конспекты

DOCX

19.03.2015

740

Информатика

Конспекты

Файл будет скачан в формате:

DOCX

Краткое описание материала

ПЛАН-КОНСПЕКТ УРОКА
Графические возможности Visual Basic 2005.

1.	*ФИО (полностью)*	Саликов Игорь Валентинович
2.	*Место работы*	ГБОУ Школа №2109
3.	*Должность*	учитель
4.	*Предмет*	Информатика и ИКТ
5.	*Класс*	9
6.	*Тема и номер урока в теме*	Тема: «Основы алгоритмизации и объектно-ориентированного программирования». Урок 4.19. «Графические возможности Visual Basic 2005».
7.	*Базовый учебник*	Информатика и ИКТ. Профильный уровень: учебник для 9 класса / Н.Д.Угринович. – 7-е изд. – М.: БИНОМ. Лаборатория знаний, 2013

9. Задачи:

Ø образовательные:

· актуализация знаний по теме «Системы счисления»;

· дифференциация материала, изученного по теме «Системы счисления»;

Ø развивающие:

· развитие познавательного интереса, внимания учащихся;

· развитие навыков индивидуальной практической деятельности;

· развитие коммуникационной компетентности у учащихся;

· развитие мышления учащихся при решении задач;

Ø воспитательные:

· повышение мотивации учащихся путем использования нестандартных задач;

· формирование навыков самоорганизации и инициативы.

Ход урока.

Сообщение темы и целей урока.

Определение объектов.

Dim Graph1 As Graphics

Graph1 = Me.PictureBox1.CreateGraphics()

Dim Pen1 As New Pen (Color.Red, 3)

Затем в программном коде обработчика события можно установить новые значения цвета и ширины линии:

Pen1.Color = Color.Green

Pen1.Width = 15

Dim Bruch1 as New SolidBruch(Color.Blue)

Затем в программном коде обработчика события можно установить новый цвет закраски

Bruch1.Color = Color.Magenta

Создание проекта «Графический редактор».

Public Class Form1

Dim Graph1 As Graphics

Dim Pen1 As New Pen(Color.Red, 3)

Dim Brush1 As New SolidBrush(Color.Black)

Dim X1, X2, Y1, Y2, Red, Green, Blue As Integer

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Pen1.Color = Color.Red

Graph1.DrawLine(Pen1, X1, Y1, X2, Y2)

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

Pen1.Color = Color.Green

Graph1.DrawRectangle(Pen1, X1, Y1, X2, Y2)

End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click

Graph1 = Me.PictureBox1.CreateGraphics()

X1 = CInt(TextBox1.Text)

X2 = CInt(TextBox2.Text)

Y1 = CInt(TextBox3.Text)

Y2 = CInt(TextBox4.Text)

End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click

Red = CInt(TextBox5.Text)

Green = CInt(TextBox6.Text)

Blue = CInt(TextBox7.Text)

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

Pen1.Color = Color.Magenta

Pen1.Width = 10

Graph1.DrawRectangle(Pen1, X1, Y1, X2, Y2)

Brush1.Color = Color.FromArgb(Red, Green, Blue)

Graph1.FillRectangle(Brush1, X1, Y1, X2, Y2)

End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

Pen1.Color = Color.Magenta

Graph1.DrawEllipse(Pen1, X1, Y1, X2, Y2)

End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click

Pen1.Color = Color.Blue

Pen1.Width = 3

Graph1.DrawEllipse(Pen1, X1, Y1, X2, Y2)

Brush1.Color = Color.FromArgb(Red, Green, Blue)

Graph1.FillEllipse(Brush1, X1, Y1, X2, Y2)

End Sub

End Class

Автор материала

Саликов Игорь Валентинович

На сайте: 11 лет и 3 месяца
Всего просмотров: 5846
Подписчики: 0
Всего материалов: 8

5846
просмотров
8
материалов
0
подписчиков

Настоящий материал опубликован пользователем Саликов Игорь Валентинович.
Инфоурок является информационным посредником. Всю ответственность за опубликованные материалы несут пользователи, загрузившие материал на сайт. Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете на материал.