INGENIERIA DE SISTEMAS

Para el científico elegido, investigará acerca de las características de la vida, la trayectoria como investigador, valores personales y profesionales, experiencia de investigación y dedicación al trabajo, liderazgo, logros científicos y compromisos, relaciones con otros académicos, visión científica a largo plazo, métodos y técnicas de investigación empleados e imagen públicaTRABAJO COLABORATIVO No 1

VICTOR JULIO CAÑAS RINCON VICTOR HUGO RUIZ CALVO OSCAR MOLANO MUÑOZ

GRUPO Nº1

UNIVERSIDAD NACIONAL ABIERTA Y A DISTANCIA UNAD ESCUELA DE CIENCIAS BÁSICAS, TECNOLOGÍA E

INGENIERÍA PROGRAMA INGENIERÍA DE SISTEMAS

CURSO VISUAL BASIC BÁSICO ABRIL DE 2012

TRABAJO COLABORATIVO No 1 – VISUAL BASIC BÁSICO

INTRODUCCIÓN

El presente trabajo colaborativo presenta 10 ejercicios desarrollados en Visual Basic, programa que

contiene un lenguaje dinámico y un entorno ameno, donde al programador se le facilita la creación

de una interfaz grafica gracias a las herramientas que posee, las cuales facilitan la escritura

de códigos para generar de manera productiva aplicaciones orientada a objetos.

Los ejercicios desarrollados, obedecen a la fundamentación de los conceptos básicos de Visual

Basic, entre los cuales están los objetos, los eventos, las formas, las propiedades, las variables

y los tipos de datos. Asimismo a través de este trabajo, se mejoran las competencias en el manejo

de las herramientas y la creación de programas de diversa índole.

La realización de estos ejercicios evidencia el trabajo con programas que incluyen cuadros de

texto, label, botones de comando, formularios que manejen frames, diferentes presentaciones de

formularios con colores, formatos, casillas de verificación, barras de desplazamiento, uso de

imágenes y cuadros de dialogo.

Las aplicaciones están enlazadas mediante un menú que muestra en su bienvenida el logo de la Unad.

Allí se encuentran dos botones llamados “Programas 1” y “Programas 2”, que despliegan los

programas.

TRABAJO COLABORATIVO No 1 – VISUAL BASIC BÁSICO

GENERAL

OBJETIVOS

 Realizar 10 ejercicios, utilizando el lenguaje de programación que ofrece el programa Visual

Basic, en los cuales se manejen cuadros de texto, label, botones de comando, formularios, colores

entre otras características.

ESPECÍFICOS

 Aplicar de forma práctica los conocimientos adquiridos en la unidad uno del modulo de

Visual Basic

 Realizar los ejercicios sugeridos por la guía de actividades del trabajo colaborativo Nº 1

 Compartir conocimientos e información entre los integrantes del grupo con el fin de desarrollar

las actividades de la guía del trabajo colaborativo Nº1

TRABAJO COLABORATIVO No 1 – VISUAL BASIC BÁSICO

DESARROLLO DE EJERCICIOS

PROGRAMAS_1

CALCULADORA

Public Class Calculadora

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles

Sumar.Click

Resultado.Text = Val(Dato1.Text) + Val(Dato2.Text) End Sub

Private Sub Restar_Click(sender As System.Object, e As System.EventArgs) Handles

Restar.Click

Resultado.Text = Val(Dato1.Text) - Val(Dato2.Text) End Sub

Private Sub Dividir_Click(sender As System.Object, e As System.EventArgs) Handles

Dividir.Click

Resultado.Text = Val(Dato1.Text) / Val(Dato2.Text) End Sub

Private Sub Multiplicar_Click(sender As System.Object, e As System.EventArgs) Handles

Multiplicar.Click

Resultado.Text = Val(Dato1.Text) * Val(Dato2.Text) End Sub

Private Sub Borrar_Click(sender As System.Object, e As System.EventArgs) Handles

Borrar.Click Dato1.Text = "" Dato2.Text = "" Resultado.Text = ""

End Sub

Private Sub Nuevo_Click(sender As System.Object, e As System.EventArgs) Handles

Nuevo.Click

Dato1.Focus() End Sub

Private Sub Salir_Click(sender As System.Object, e As System.EventArgs) Handles

Salir.Click

Me.Close() End Sub

End Class

TRABAJO COLABORATIVO No 1 – VISUAL BASIC BÁSICO

TEMPERATURA

Public Class Temperatura

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles

Button1.Click

Me.Close() End Sub

Private Sub Temperatura_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub HScrollBar1_Scroll(sender As System.Object, e As

System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll GradosCentigrados.Text =

HScrollBar1.Value GradosFahrenheit.Text = 32 + 1.8 * HScrollBar1.Value

End Sub

End Class AREAS Triángulo

Public Class AreaTriangulo

Private Sub ButtonCalcular_Click(sender As System.Object, e As System.EventArgs) Handles

BotonCalcular.Click

Area.Text = Val(BaseTriangulo.Text) * Val(AlturaTriangulo.Text) / 2

End Sub

Private Sub ButtonSalir_Click(sender As System.Object, e As System.EventArgs) Handles

ButtonSalir.Click

Me.Close() End Sub

End Class

Cuadrado

Public Class AreaCuadrado

Private Sub BotonCalcular_Click(sender As System.Object, e As System.EventArgs) Handles

BotonCalcular.Click

Area.Text = Val(LadoCuadrado.Text) * Val(LadoCuadrado.Text) End Sub

TRABAJO COLABORATIVO No 1 – VISUAL BASIC BÁSICO

Private Sub ButtonSalir_Click(sender As System.Object, e As System.EventArgs) Handles

ButtonSalir.Click

Me.Close() End Sub

End Class

Rectángulo

Public Class AreaRectangulo

Private Sub BotonCalcular_Click(sender

...