' The Blank Page item template is documented at http://go.microsoft.com/fwlink/?LinkId=234238

''' <summary>
''' An empty page that can be used on its own or navigated to within a Frame.
''' </summary>
Public NotInheritable Class MainPage
    Inherits Page

    Private Sub TlacitkoPridatZaznam_Click(sender As Object, e As RoutedEventArgs) Handles TlacitkoPridatZaznam.Click
        'Deklarace noveho objektu LyzarZavodnik typu Student
        Dim LyzarZavodnik As New Student
        'Nastaveni vlastnosti objektu LyzarZavodnik pomoci
        'obsahu vstupnich textovych poli
        LyzarZavodnik.KrestniJmeno = TextovePoleKrestniJmeno.Text
        LyzarZavodnik.Prijmeni = TextovePolePrijmeni.Text
        If (TextovePoleVek.Text <> Nothing) Then LyzarZavodnik.Vek = TextovePoleVek.Text
        LyzarZavodnik.Pohlavi = TextovePolePohlavi.Text

        LyzarZavodnik.Zustatek = 1250.0
        LyzarZavodnik.Certifikat = False

        'Zobrazeni celkove ceny, kterou ma zak skole uhradit,
        'pomoci vlastnosti Zustatek a metody ToString(mena)
        TextovePoleSkupina.Text = LyzarZavodnik.Prijmeni & " má škole zaplatit: " _
            & LyzarZavodnik.Zustatek.ToString("C")
    End Sub
End Class
