Calcula el valor de tickete de avion

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim valor As Decimal
        Dim recargo As Decimal
        If (optargentina.Checked = True) Then
            valor = 1000 * 1000
            txtvalor.Text = valor
        End If
        If (optfrancia.Checked = True) Then
            valor = 2000 * 1000
            recargo = 300000
            txtvalor.Text = valor + recargo
        End If
        If (optvenezuela.Checked = True) Then
            valor = 500 * 1000
            txtvalor.Text = valor
        End If
        If (optperu.Checked = True) Then
            valor = 700 * 1000
            txtvalor.Text = valor
        End If
    End Sub



programa hecho en visual studio
lenguaje: .net

Comentarios

Publicar un comentario

Entradas populares de este blog

Google Glass llegará al mercado en 2014

Imagen
Las esperadas Google Glass llegarán al mercado en el 2014 y no a finales de este año como se habría anunciado. El motivo, según informa el medio tecnológico estadounidense ComputerWorldque, no es otro que un reajuste de los tiempos de comercialización del  producto : “Lo más importante para nosotros es centrarnos en construir un gran producto para los usuarios sin pensar en cuándo será el lanzamiento”. Sin embargo el retraso no sorprende a los analistas quienes de hecho lo ven como normal para que el producto salga al mercado lo más completo posible y después de haber realizado un exhaustivo análisis sobre cómo abordar el aterrizaje de un producto totalmente  nuevo . Además, no hay que olvidar que para que el dispositivo cale entre los usuarios y  empresas , es esencial que ya haya suficientes aplicaciones desarrolladas para éste.  Son muchos los ingenieros que ya están trabajando en este sentido. Google Glass lanzó un programa específico –Explorer– par...
Leer más

Suma y Multiplicacion de Matrices php

Imagen
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"  /> <title> Lea dos arreglos A y B de 5 filas y 5 columnas</title> <style type="text/css"> <!-- .Estilo1 {color: #0000FF} .Estilo2 {font-family: Arial, Helvetica, sans-serif} body { background-image: url(WP_YoshiMain_1280x1024_001.jpg); } .Estilo4 {font-family: "Comic Sans MS"; color: #006600; } --> </style> <script language="javascript"> function validarEntero(valor){      valor = parseInt(valor)       if (isNaN(valor)) {             return ""       }else{            return valor       } } function validar(){ i1 =...
Leer más

Para Hombres griego

Imagen
Para Hombres griego Dirigida por Nicholas Stoller Producido por Judd Apatow   Josué Blake   Nicholas Stoller   David Bushell Rodney Rothman   Luc Besson Escrito por Nicholas Stoller Sobre la base de Caracteres por   Jason Segel Protagonizada por Jonah Hill   Russell Brand   Elisabeth Moss   Rose Byrne   Diddy   Colm Meaney Música por Lyle Workman Cinematografía Robert Yeoman Editado por William Kerr   Michael Venta Estudio Relativity Media   Spyglass Entertainment Apatow Producciones EuropaCorp Distribuido por Universal Pictures Fecha de   lanzamiento   (s) 04 de junio 2010 Tiempo de funcionamiento 109 minutos País Estados Unidos Lengua Inglés Presupuesto $ 40 mil...
Leer más