Convierte horas a segundos

Public Class Form16
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click'declarar todas las variables
Dim horas#, segundos#'validar los objetos de entradaIf Me.ohoras.Text = "" ThenMsgBox(

"favor digite horas")Me.ohoras.Focus()'asignar los valores a las variables de entradahoras =
Me.ohoras.Text'procesosegundos = horas * 3600
'asiganar la respuesta de salida
Me.Label4.Text = segundosEnd IfEnd Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click'Para salir se utiliza la funcionIf (MsgBox("Esta seguro que desea salir?", MsgBoxStyle.YesNo, "Advertencia")) = MsgBoxResult.Yes ThenMsgBox(
Close()
"Gracias")End IfEnd SubEnd
 Class

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– para que  desarrolladores  
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 = document.frmdatos.i1.value 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 millones ] Taquilla $ 91.390.982 ] Para Hombres griego
Leer más