codificación

Calcular el promedio de tres notas sumativas

Option explicito n

Public class form1

REM Declaracion de variables

Dim nota1, nota2, nota3, promedio As single

REM Contenido del formulario

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

MyBase.Load

Me.Text= “Calculo promedio de 3 notas sumativas”

ButtonCalcular.Text= “Calcular el promedio”

Label1.Text= “Introduzca la primera nota”

Label2.Text= “Introduzca la primera nota”

Label3.Text= “Introduzca la tercera nota”

End Sub

REM Calculo y muestra resultados

Private Sub Button1_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.TextAlign= ContentAlignment.MiddleCenter

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

End Sub

1. Marque con letra roja la declaración de variables

2. De color morado la entrada de datos

3. De celeste los procesos o cálculos

4. La salida de datos de color naranjs

Option Explicit On

Public Class Form1

REM Declaracion 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.Text=”Calculo volume 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 Cálculo y muestra resultados

Private Sub Buttom1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)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 volume del cilindro es de “& V &” metros cúbicos”

End Sub                                                                                                                       

End Class

1.Los datos de entrada (celeste)

2. declaración de variable (verde caña)

3. Los procesos (amarillo)

4. Los datos de salida (rosado)

5. declaracion de constante (rojo)

taller 2

Centro Educativo Santo Domingo

Rolando Quezada

Informática

Taller#2

Profesora: Guadalupe Espinosa

Xº A

30/06/2016

Taller #2

1.       Como se coloca el nombre de los objetos en V.B.

a.Las 3 primeras letras que la componen  se escriben con letra minúsculas.

b. El resto del nombre se relaciona con la función y se escribe con la letra mayúscula

isb FUNT

Min Mayus

2.       Forma para seleccionar los controles en V.B.

Dando click sobre el control o presionando la tecla ctrl. Los 3 controles que se seleccionan son los siguientes:  el botón de comando, la etiqueta gris y la etiqueta roja

Casilla de verificación

Cuadro combinado

Botón de comando

Datos

Cuadro de lista de directorios

Cuadro de lista de archivos

Cuadro de lista de unidades

Marco

Barras de desplazamiento horizontal y vertical

Imagen

Etiqueta

3.       Como se da la asignación de valores en V.B.

Utilice una instrucción de asignación normal para asignar un objeto a una variable de objeto. Puede asignar una expresión de objeto o la palabra clave Nothing

Dim thisObject As Object

' The following statement assigns an object reference.

thisObject = Form1

' The following statement discontinues association with any object.

thisObject = Nothing

4.       Describa la estructura  de decisión en V.B.

-If-else

Select-case

Taller de declaración

N.V.                                 T.D.

Dim Suma AS float

Dim Cantidad  AS integer

Dim Sum_Ban AS double

Dim Nom AS char

Dim Dire AS char

Dim Residuo AS float

Dim Prog AS bool

Dim Redés AS char

Dim Eda AS bool

Dim Resta AS single

Dim Div AS single

Dim Multi AS float

Dim Mat AS single

Dim Lib AS char

Dim Tipos AS single

Dim Dat AS float

Dim AB AS bool

Dim US AS double

Dim Saldo AS float

Dim Sueldo AS single

Dim Tecla AS char

Dim Esc AS single

Dim Cod AS float

Dim Cont AS bool

Dim T_fila AS double

Dim T_columna AS float

Dim Si AS bool