• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

karva

[VB.net] Conversor milhas/quilómetros

1 mensagem neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora