Copyright © 2017 mgr inż. Janusz Bonarowski
Zadanie kol1.1_graph_kwadrat
Utworzyć definicję klasy Figura o właściwości Wymiar.
Utworzyć instancję tej klasy, np. o nazwie objKwadrat.
Wartość właściwości tego obiektu wczytać z TextBox’u.
Narysować na formularzu rysunek kwadratu, korzystając wcześniej zdefiniowanego obiektu i jego właściwości.
Lewy górny narożnik kwadratu przyjąć w punkcie x0 =50, y0=50, rys. 1.
Public Class Figura
Private _Wymiar As Single
Public Property Wymiar As Single Get
Return _Wymiar End Get
Set(value As Single) _Wymiar = value End Set
End Property End Class
Public Class Form1
Private Sub ButtonRysuj_Click(sender As Object, e As EventArgs) _
Handles ButtonRysuj.Click ' Tworzenie (1) obiektu rysunek (2) na formularzu
Dim objRys As Graphics = Me.CreateGraphics
' Tworzeniu obiektu pióro, o kolorze niebieskim i grubości 2 Dim objPiorNiebieskie As New Pen(Color.Blue, 2)
' Tworzenie obiektu objKwadrat, klasy Figura Dim objKwadrat As New Figura
Dim x0 As Single = 50 Dim y0 As Single = 50
' Wczytywanie właściwości Wymiar obiektu objKwadrat objKwadrat.Wymiar = CSng(TextBox1.Text)
' Rysowanie kwadratu z wykorzystaniem właściwości obiektu objRys.DrawRectangle(objPiorNiebieskie, _
x0, y0, objKwadrat.Wymiar, objKwadrat.Wymiar) End Sub
End Class
Rysunek 1. Propozycja formularza