Elaborar un sistema de información mediante un lenguaje de programación visual

[pic 1][pic 2]

CENTRO DE BACHILLERATO TECNOLOGICO AGROPECUARIO N. 67

“Ramón G. Bonfil” 

MODULO.3

SUBMUDOLOIII: Elaborar un sistema de información mediante un lenguaje de programación visual.

FASILITADOR: Lino Mera Reyes

ESTUDIANTE: Jair R.R Esmeralda A.A

PRACTICAS: 1,2,3,4

SEMESTRE: 4

GRUPO: “B”

TEINICOS EN INFORMATICA

Introducción:

Ene este el sub. Modulo 3 el cual es “Elaborar un sistema de información mediante un lenguaje de programación visual, tendremos que utilizar un aplicación de programación visual, el cual será: “Visual basic”, en el trascurso de este semestre estaremos utilizando este programa para este sub modulo, con el cual desarrollaremos distintos programas.

En este caso creamos cuatro distintos programas los cuales son:

• Calcular el área y perímetro de un rectángulo. Este pequeño programa es de gran utilidad para cualquier persona, por ejemplo nos ayuda a obtener la área y/o perímetro de una manera mas rápida y segura.

• Calculadora que pueda realizar cuatro operaciones distintas. Hoy en día es de vital importancia el uso de la calculadora la cual nos ayuda a realizar distintas operaciones de una manera eficiente, rápida y sobre todo segura.

• Hacer cambiar de color cualquier parte de nuestra pagina. Cualquier programa de hoy en día es necesario que sea atractiva, para esto se tiene que cambiar el color para llamar mas la atención.  

• Calcular la edad de una persona dentro de 20 años. Este programa es de una gran utilidad en la actualidad, para saber la edad de una persona mas en el futuro o se puede obtener el promedio de otras cosas.

Objetivo:

El objetivo de estas practicas será realizar cuatro distintos programas utilizando visual basic, los cuales son los que mencioné anterior mente: Calcular el área y perímetro de un rectángulo, calculadora que realiza cuatro distintos operaciones, cambiar color a un programa, calcular la edad de una persona en 20 años.

Desarrollo:

Practica No.1:

Private Sub cmdborrar_Click()

txtbase.Text = ""

txtaltura.Text = ""

lblresultadoarea = ""

lblresultadoperimetro = ""

End Sub

Private Sub cmdcalculararea_Click()

b = txtbase.Text

h = txtaltura.Text

lblresultadoarea = b * h

End Sub

Private Sub cmdcalcularperimetro_Click()

b = txtbase.Text

h = txtaltura.Text

lblresultadoperimetro = (2 * b) + (2 * h)

End Sub

Private Sub cmdsalir_Click()

End

End Sub

Practica No.2:

Private Sub Command1_Click()

Text3.Text = (Text1.Text * 1) + (Text2.Text * 1)

End Sub

Private Sub Command2_Click()

Text3.Text = Text1.Text - Text2.Text

End Sub

Private Sub Command3_Click()

Text3.Text = Text1.Text * Text2.Text

...