TALLER # 2

Taller #2

1.      Como se coloca el nombre de los objetos en Visual Basic

2.      Forma para seleccionar los controles de Visual Basic

3.      como se da la asignación de valores en Visual Basic

4.      Describa la estructura de decisión en Visuall Basic

Desarrollo

1.       a).Las 3 primeras letras que la componen se escriben con letra minúscula

        b). El resto del nombre se relacionan con la función y se escribe con letra mayuscula

Ejemplo:

isbFUNT

2.       dando click sobre el control o presionando la letra control. Los 3 controles que se seleccionan son los siguientes (COMANDO, LA ETIQUETA GRIS Y LA ETIQUETA ROJA)

3.  Para asignar un valor a una variable utilizamos el operador = siguiendo la siguiente sintaxis: <variable> = <valor>

4. Estructura de Decisión Simple Permite seleccionar la próxima sentencia a ejecutarse basándose en una condición (expresión lógica o una variable lógica) que es evaluada y, en función del resultado (cierto o falso) de la evaluación .Se separará a un determinado punto para continuar la ejecución del programa.

If-----Else--à

Select---Case--à

taller de calcular el promedio

Calcular el Promedio

Option Explicit On

Public Class Form1

REM Declaracion de variables

Dim nota1, nota2, nota3, pomedio 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 segunda nota”

Label3. Text=”Introduzca la tercera nota”

End Sub

REM Calculo y muestras 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

Indicaciones:

Marque con letras rojas la declaración de variables

De color morado las entradas de datos

De celeste los procesos o calculos

La Salida de datos de naranja

Option Explicit On

Public Class Form1

REM Declaracion de variables

Const Pi As Single = 3.141592654

Dim R, H, V As Single

REM Contenido de formulario

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handless

MyBase.Load

Me.Text = “Calculo volume cilindro”

ButtonCalcular.Text = “Calcular Volumen”

Label1.Text = “Introduzca aquí el diametro, en metros”

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

End Sub

REM Calculo y muestra resultados

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

ButtonCalcular.Click

R= Val(TextBox1.Text) /2

H=Val(TextBox2.Text) /2

V=Pi*(R^2) * H

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

LabelResualtados.TextAlign= ContentAlignment.MiddleCenter

LabelResultados.Text = “El volume del cilindro es de “& V &” metros cubicos”

taller

Taller:

D (declaración de variables) verde

E(entrada de datos) morado

P(procesos) rojo

S(salida) celeste

C(constantes) negro

1)

Dim b, h As Double

Dim area As Double

b = TextBox1.Text

h = TextBox2.Text

area=b*h/2

textBox3.Text=Trim(area)

2)

ConstAlquilerDelAuto=700

ConstKilometrosRecorridos=750

DimDiasDeAlquiler As Integer

DimKilometrosRecorridos, Resultados As Integer

Label1.text=”introduzca el día de alquiler”

Label2.text=”introduzca los kilómetros recorridos”

DiasDeAlquiler=Val(Text2)

Kilometros=Val(Text2)

Resultados=(DiasDeAlquiler*AlquilerDelAuto)+(KilometrosRecorridos*Kilometros)

LabelResultados.text=” Los kilómetros recorridos es de” & resultados”

3)

Const Pi As Single =3.14

Dim D, R, V, Vlitros, tminutos As Single

Dim Canal As Double

Dim Q As Single

Label1=”Introduzca aquí el diámentro de depósito, en metro”

Label2=”Introduzca aquí la altura del deposito, en metro”

D= Val(Text1)

H = Val(Text2)

R= D/2

V = Pi * (R ¨2) * H

Vlitros = V * 1000

tminutos = Vlitros / Q

Label3=&”El tiempo que transcurrirá hasta el”&_&tminutos&”minutos”