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