|
Dobrý den, to jsem ještě já úplný amatér měl bych ještě jeden dotaz jak udělám aby mi vyskočila hláška že počet kusů neodpovídá parametrům vozidla. Např. když v ComboBoxPocetKusu vyberu 10 kusů a v ComboBoxParametr vyberu Ford Transit - max 4 EU palety tak aby mi to vyhodilo okno že počet kusů neodpovídá parametrům vozidla. Sice jsem si procházel kurz "Podmínky a operátory" pana Hercega tady na stránkách ale nějak moc jsem tomu neporozuměl. Tak se radši ptám
Public Class Autodoprava
Private Sub Autodoprava_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim mesta = {New Mesto("Karlovy Vary", 46), _
New Mesto("Plzeň", 110), _
New Mesto("Praha", 212)}
Dim zasilky = {New Zasilka("Balík", 58), _
New Zasilka("Paleta", 430), _
New Zasilka("Půl paleta", 250), _
New Zasilka("Double paleta", 850), _
New Zasilka("Markýza", 150), _
New Zasilka("Krb", 250)}
Dim parametry = {New Hmotnost("FORD TRANSIT - max 4 EU palety do 1000 kg", 17), _
New Hmotnost("RENAULT MIDLINER - max 15 EU palet od 1000 kg do 3000 kg", 28), _
New Hmotnost("RENAULT MIDLINER - max 17 EU palet od 3000 kg do 4500 kg", 30), _
New Hmotnost("VOLVO FL - max 18 EU palet od 3000 kg do 4400 kg", 30), _
New Hmotnost("RENAULT PREMIUM - max 23 EU palet od 4500 kg do 9000 kg", 34), _
New Hmotnost("VOLVO FM 12 - max 23 EU palet od 9000 kg do 14800 kg", 40), _
New Hmotnost("VOLVO FH 12 - max 34 EU palet od 14800 kg do 24000 kg", 50), _
New Hmotnost("kamion VOLVO FH 12 - max 34 EU palet od 14800 kg do 24000 kg", 50)}
For i As Integer = 1 To 34
ComboBoxPocetKusu.Items.Add(i)
Next
ComboBoxPocetKusu.SelectedIndex = 0
ComboBoxMesta.Items.AddRange(mesta)
ComboBoxMesta.SelectedIndex = 0
ComboBoxZasilka.Items.AddRange(zasilky)
ComboBoxZasilka.SelectedIndex = 0
ComboBoxParametr.Items.AddRange(parametry)
ComboBoxParametr.SelectedIndex = 0
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mesto = DirectCast(ComboBoxMesta.SelectedItem, Mesto)
Dim zasilka = DirectCast(ComboBoxZasilka.SelectedItem, Zasilka)
Dim pocetKusu = DirectCast(ComboBoxPocetKusu.SelectedItem, Integer)
Dim cenaZaKilometr = DirectCast(ComboBoxParametr.SelectedItem, Hmotnost)
TextBox2.Text = zasilka.Cena * CDbl(pocetKusu) & " Kč"
TextBox1.Text = mesto.Vzdalenost * cenaZaKilometr.Cena_za_km & " Kč"
End Sub
End Class
Public Class Mesto
Public Nazev As String
Public Vzdalenost As Double
Public Sub New(ByVal nazev As String, ByVal vzdalenost As Double)
Me.Nazev = nazev
Me.Vzdalenost = vzdalenost
End Sub
Public Overrides Function ToString() As String
Return Me.Nazev
End Function
End Class
Public Class Zasilka
Public Typ As String
Public Cena As Double
Public Sub New(ByVal typ As String, ByVal cena As String)
Me.Typ = typ
Me.Cena = cena
End Sub
Public Overrides Function ToString() As String
Return Typ
End Function
End Class
Public Class Hmotnost
Public kg As String
Public Cena_za_km As Double
Public Sub New(ByVal kg As String, ByVal cena_za_km As String)
Me.kg = kg
Me.Cena_za_km = cena_za_km
End Sub
Public Overrides Function ToString() As String
Return kg
End Function
End Class
|