Copyright © 2015, mgr inż. Janusz Bonarowski 1
Zadanie 2.1
Utworzyć klasę Samochod o właściwościach:
• Marka
• Zużycie_paliwa_na_100km
• Pojemność_zbiornika i metodzie
• Zasięg
Utworzyć 2 instancje tej klasy, wprowadzić wartości właściwości i obliczyć (korzystając z metody Zasięg()) ile kilometrów razem przejadą, gdy każdy z nich zostanie zatankowany do pełna.
Klasa
Public Class Samochod
Private _marka As String
Private _zużycie_na_100km As Single Private _pojemnosc_zbiornika As Single Public Property Marka As String
Get
Return _marka End Get
Set(value As String) _marka = value End Set
End Property
Public Property Zuzycie_na_100km As Single Get
Return _zużycie_na_100km End Get
Set(value As Single)
_zużycie_na_100km = value End Set
End Property
Public Property Pojemność_zbiornika As Single Get
Return _pojemnosc_zbiornika End Get
Set(value As Single)
_pojemnosc_zbiornika = value End Set
End Property
Public Function Zasięg() As Single
Zasięg = _pojemnosc_zbiornika / _zużycie_na_100km * 100 End Function
End Class
Copyright © 2015, mgr inż. Janusz Bonarowski 2 Formularz
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) _
Handles Button1.Click Dim sam1 As New Samochod
Dim sam2 As New Samochod Dim s1, s2 As Single sam1.Marka = "Fiat"
sam1.Zuzycie_na_100km = 6 sam1.Pojemność_zbiornika = 42 s1 = sam1.Zasięg
sam2.Marka = "Mazda"
sam2.Zuzycie_na_100km = 5 sam2.Pojemność_zbiornika = 35 s2 = sam2.Zasięg
TextBox1.Text = CStr(s1 + s2) End Sub
End Class