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
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
Comentarios
Publicar un comentario