Copyright © 2015 mgr inż. Janusz Bonarowski
Zadanie 1.1
Utworzyć klasę Samochod o właściwościach:
• Marka
• zużycie_paliwa_na_100km
Utworzyć 2 instancje tej klasy, wprowadzić wartości właściwości i podać ile paliwa zużyją oba samochody razem, gdy każdy z nich przejedzie 200 km.
Klasa
Public Class Samochod
Private _marka As String
Private _zuzycie_na_100 As Single Public Property Marka As String Get
Return _marka End Get
Set(ByVal value As String) _marka = value
End Set End Property
Public Property Zuzycie_na_100 As Single Get
Return _zuzycie_na_100 End Get
Set(ByVal value As Single) _zuzycie_na_100 = value End Set
End Property End Class
Formularz
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) _
Handles Button1.Click Dim auto1 As New Samochod
Dim auto2 As New Samochod Dim przebieg, p1, p2 As Single przebieg = 200
auto1.Marka = "Fiat"
auto1.Zuzycie_na_100 = 8
p1 = (przebieg / 100) * auto1.Zuzycie_na_100
auto2.Marka = "Nisan"
auto2.Zuzycie_na_100 = 7
p2 = (przebieg / 100) * auto2.Zuzycie_na_100
TextBox1.Text = CStr(p1 + p2) End Sub
End Class