Kolokwium 2.3 – dziedziczenie, metody
Copyright © 2018, mgr inż. Janusz Bonarowski 1
Zadanie 2.3
Utworzyć klasę bazową Kolo o właściwości:
• Promien
• i metodzie Pole_kola
Utworzyć klasę potomną: Walec, dziedziczącą po klasie Kolo
• o właściwości: Wysokosc
• i metodzie: Objetosc_walca
Obliczyć, posługując się metodą Objetosc_walca, jaka będzie objętość walca o zadanym promieniu podstawy i wysokości.
Kod
Class1.vb
Public Class Kolo
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 Pole_kola() As Single Return Math.PI * _Promien ^ 2 End Function
End Class
Public Class Walec Inherits Kolo
Private _Wysokosc As Single
Public Property Wysokosc As Single Get
Return _Wysokosc End Get
Set(value As Single) _Wysokosc = value End Set
End Property
Public Function Objetosc_walca() As Single Return Pole_kola() * _Wysokosc
End Function End Class
Form1.vb
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim mojWalec As New Walec
mojWalec.Promien = CSng(TextBoxPromien.Text) mojWalec.Wysokosc = CSng(TextBoxWysokosc.Text) TextBoxV_walca.Text = mojWalec.Objetosc_walca End Sub
End Class