Ejercicio de lenguaje c

Solo disponible en BuenasTareas
  • Páginas : 2 (413 palabras )
  • Descarga(s) : 0
  • Publicado : 6 de septiembre de 2012
Leer documento completo
Vista previa del texto
EJERCICIO DE VISUAL BASIC
En este ejercicio crearemos un programa para convertir en segundos una cantidad de horas, minutos y segundos.

Primero crearemos el formulario, como siempre empezaremosmodificando las características del “form”, como en la siguiente imagen,

Color de fondo “azul”. Titulo del formulario “Pasa a Segundos”. Continuaremos con la introducción de los títulos “Labels”, Un“label” con el “Caption”“Horas:”, “backcolor””azul” y “forecolor” “blanco” Otro “label” con el “Caption””Minutos:”,”backcolor””azul” y “forecolor””blanco” Otro “label” con el“Caption””Minutos:”,”backcolor””azul” y “forecolor””blanco” Otro “label” sin “Caption”, “backcolor””Rojo” y “forecolor””amarillo”

Como en la siguiente imagen,

Continuaremos introduciendo los “TextBox” para poderintroducir los valores, colocaremos 3 “Textbox” y eliminaremos el texto de la propiedad “Text”.

Para acabar con el diseño del formulario colocaremos los, “commandbuttons”, botones para realizar lasacciones de calculo. De los botones colocados tan solo modificaremos la propiedad “Caption” introduciendo en esta propiedad el texto, “Total en Segundos” “&Salir” respectivamente,

una vezfinalizado el diseño del formulario procederemos a introducir el código del programa en cada componente.

Empezaremos haciendo “2 clic” en el “boton”  “Total en segundos”, de esa manera accederemos a lapantalla de código de Visual Basic dentro de la rutina,

Private Sub Command1_Click() a = Val(Text1.Text) * 3600 b = Val(Text2.Text) * 60 c = Val(Text3.Text) Label4.Caption = a + b + c End Sub

Enla rutina anterior hemos utilizado 3 variables (a,b,c) las cuales al no estar declaradas son de tipo (variant) la cual cosa indica que aceptaran cualquier valor. El calculo ha sido el siguiente, En lavariable a hemos introducido la parte numérica del text1 (que son las horas) y la hemos multiplicado por 3600 (que son los segundos de una hora 60*60).

a=Val(Text1.Text)*3600 Hemos...
tracking img