Kolokwium 2.2 – dziedziczenie, metody
Copyright © 2015, mgr inż. Janusz Bonarowski 1
Zadanie 2.2
Utworzyć klasę bazową Bryla o właściwości:
• Koszt_jednostkowy Utworzyć klasę potomną: Kula
• właściwości: Promien
• i metodzie: Koszt_całkowity
Obliczyć, posługując się metodą Koszt_całkowkowity, jaki będzie całkowity koszt pomalowania bryły, gdy znany jest Koszt_jednostkowy, czyli koszt pomalowania 1 cm2 powierzchni Kuli (pow. kuli = 4⋅
π
⋅r2).Kod – grupa 1 Class1.vb
Public Class Bryla
Protected _Koszt_jednostkowy As Single Public Property Koszt_jednostkowy As Single Get
Return _Koszt_jednostkowy End Get
Set(value As Single)
_Koszt_jednostkowy = value End Set
End Property End Class
Public Class Kula Inherits Bryla
Private _Promien As Single
Public Property Promien As Single Get
Return _Promien End Get
Set(value As Single) _Promien = value End Set
End Property
Public Function Koszt_calkowity() As Single
Return (4 * Math.PI * _Promien ^ 2) * _Koszt_jednostkowy End Function
End Class
Form1.vb
Public Class Form1
Private Sub btnKoszt_calkowity_Click(sender As Object, e As EventArgs) _
Handles btnKoszt_calkowity.Click Dim mojaKula As New Kula
mojaKula.Koszt_jednostkowy = CSng(txtKoszt_jednostkowy.Text) mojaKula.Promien = CSng(txtPromien.Text)
txtKoszt_calkowity.Text = CStr(mojaKula.Koszt_calkowity) End Sub
End Class