Проект «График функции в полярной системе координат»
Public Class frmGraph
Dim picGraph As Graphics
Dim R, G, B As Integer
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub frmGraph_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
picGraph = picDraw.CreateGraphics()
R = 0
G = 0
B = 0
End Sub
Private Sub btnPusk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPusk.Click
Dim X0 As Integer = picDraw.Width / 2
Dim Y0 As Integer = picDraw.Height / 2
Dim penGraph As New Pen(Color.FromArgb(R, G, B))
Dim X1, Y1, X2, Y2 As Integer
Dim a As Integer, ar, L, X, Y As Single
Dim R1 As Integer = 40
X1 = X0
Y1 = Y0
For a = 1 To 360
ar = a * Math.PI / 180
L = 2 * R1 * (1 - Math.Cos(ar))
X2 = X0 + L * Math.Cos(ar)
Y2 = Y0 - L * Math.Sin(ar)
picGraph.DrawLine(penGraph, X1, Y1, X2, Y2)
X1 = X2
Y1 = Y2
Next
End Sub
Private Sub chkRed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkRed.CheckedChanged
If chkRed.Checked Then R = 255 Else R = 0
End Sub
Private Sub chkGreen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkGreen.CheckedChanged
If chkGreen.Checked Then G = 255 Else G = 0
End Sub
Private Sub chkBlue_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkBlue.CheckedChanged
If chkBlue.Checked Then B = 255 Else B = 0
End Sub
End Class
3 этап Составление программ
Самостоятельное составление программ и решение задач.
16.Методика введения понятия “Элемент управления RadioButton”
1 этап Подготовительный
1.Элементы управления предназначены для предоставления пользователю возможности управления ходом работы программы.
2. Элементы управления представлены следующими объектами:
|
RadioButton Value – значения True и False Возможен выбор одного элемента из группы. |
2 этап Работа с готовыми программами
Пример программы:
Проект «Обучение английскому»
-
объект ImageList
Public Class frmEnglish
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
Private Sub rdbCat_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbCat.CheckedChanged
picEnglish.Image = imlEnglish.Images(0)
End Sub
Private Sub rdbDog_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbDog.CheckedChanged
picEnglish.Image = imlEnglish.Images(1)
End Sub
Private Sub rdbHourse_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbHourse.CheckedChanged
picEnglish.Image = imlEnglish.Images(2)
End Sub
End Class