EJEMPLOS

Mariannette Rangel                  X°A                        14-7-16

En el formulario insertamos tres Labels y tres TextBox para petición de datos, así como un botón y un Label para cálculo de muestra de resultados. El código será algo así:

Calcular el promedio de tres notas sumativas

Option Explicit On

Public Class Form1

REM Declaración de variables

Dim nota1, nota2, nota3, promedio AS single

REM Contenido del formulario

Private Sub Form_Load(ByVal sender AS system.Object, ByVal e AS system.EventArgs) Handles

MyBase.Load

Me.Text= “Cálculo promedio de 3 notas sumativas”

ButtonCalcular.Text= “Calcular el promedio”

Label1.Text=“Introduzca la primera nota”

Label2.Text=“Introduzca la segunda nota”

Label3.Text=“Introduzca la tercera nota”

End Sub

REM Cálculo y muestra resultados

Private Sub Botton1_Click(ByVal sender AS system.Object, ByVal e AS system.EventArgs) Handles

ButtonCalcular.Click

Nota1=Val(TextBox1.Text)

Nota2=Val(TextBox2.Text)

Nota3=Val(TextBox3.Text)

Promedio= (Nota1+Nota2+Nota3)/3

LabelResultados.Font=New Font(“Arial”,10,FontStyle.Bold)

LabelResultados.TextAling=ContentAlignment.MiddleCenter

LabelResultados.Text= “El promedio es de “&promedio&”

End Sub

INDICACONES

1.    Rojo las declaraciones de variables

2.   Morado entrada de datos

3.   Celeste los procesos o cálculos

4.   Naranja la salida de datos resultados

EJEMPLO A                                                          21-7-16

Option Explicit On

Public Class Form1

REM Declaración de variables

Const Pi As Single= 3.141592654

Dim R,H,V    As Single

Rem Contenido del Formulario

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

Me.Tex= “Calculo volumen cilindro”

ButtonCalcular.Text= “Calcular  Volumen”

Label1.Text= “Introduzca aquí el diámetro, en metros”

Label2.Text= “Introduzca aquí la altura, en metros”

End Sub

REM Calculo y muestra resultados

Private Sub Button1_Click(ByVal sender AS System.Object,ByVal e AS System.EventeArgs)Handles

ButtonCalcular.Click

R=Val(TextBox1.Text)/2

H= Val(TextBox2.Text)

V=Pi*(R^2)*H

LabelResultados.Font= New Font(“Arial”,10,FontStyle.Bold)

LabelResultados.TextAlign= ContentAlignment.MiddleCenter

LabelResultados.Text= “El volumen del cilindro es de  “& V &” metros cúbicos”

End Sub

End Class

INDICACIONES

1. Entrada de datos celeste

2. Declaración de variable verde caña

3. Procesos   amarillo

4. Datos de salida  rosado

5. Declaracion de constante rojo