[VB.net] Conversor milhas/quilómetros

[karva]

Boas, aqui fica a minha primeira contribuição nesta secção, algo muito simples.

O utilizador insere um valor, e depois esse valor e apresentado em milhas e em quilometros.

Public Class Form1

    Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
        Dim dist As String
        Dim m As String
        Dim k As String

        dist = TxtD.Text
        If (dist <> "") Then

            m = dist / 1.6
            k = dist * 1.6

            TxtM.Text = m
            TxtK.Text = k

        Else
            TxtM.Text = "Por favor insere um valor!"
        End If
    End Sub

    Private Sub BtnSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSair.Click
        Me.Close()


    End Sub
End Class