' Šablona položky "Blank Page" je popsána na adrese  http://go.microsoft.com/fwlink/?LinkId=234238

''' <summary>
''' Prázdné stránka, která může být použita samostatně, nebo v rámci prvku Frame.
''' </summary>
Public NotInheritable Class MainPage
    Inherits Page

    Private Sub TlacitkoVytvorit_Click(sender As Object, e As RoutedEventArgs) Handles TlacitkoVytvorit.Click
        Dim vzdMile As Single
        Dim vzdKilometry As Single
        Const mileNaKm As Single = 1.609344
        TextovePoleData.Text = "Míle" & vbTab & "Kilometry" & vbCrLf
        'opakovani smycky celkem 63x; zobrazeni kazde desetiny mile
        For vzdMile = 0.1 To 6.3 Step 0.1
            vzdKilometry = vzdMile * mileNaKm
            'zobrazeni vzdalenosti v milich a kilometrech oddelenych znakem tabulatoru
            'formatovani vystupu pomoci metody ToString; pouze 1 desetinne místo pro mile
            'a 5 desetinnych mist pro kilometry
            TextovePoleData.Text &= vzdMile.ToString("N1") & vbTab _
               & vzdKilometry.ToString("N5") & vbCrLf
        Next vzdMile

    End Sub
End Class
