Loading presentation...

Present Remotely

Send the link below via email or IM

Copy

Present to your audience

Start remote presentation

  • Invited audience members will follow you as you navigate and present
  • People invited to a presentation do not need a Prezi account
  • This link expires 10 minutes after you close the presentation
  • A maximum of 30 users can follow your presentation
  • Learn more about this feature in our knowledge base article

Do you really want to delete this prezi?

Neither you, nor the coeditors you shared it with will be able to recover it again.

DeleteCancel

Sentencias de Control Visual Basic

No description
by

marco siza

on 11 April 2016

Comments (0)

Please log in to add your comment.

Report abuse

Transcript of Sentencias de Control Visual Basic

Instrucciones de Control Visual Basic
Doble
Múltiple
Tglo. Marco Siza
Estructuras de Selección
Estructuras de Repetición
Instrucciones de Control Visual Basic
Estructuras de Repetición
Estructuras de Selección
Simple
Sintaxis:
If
condición [
Then
]
[ Instrucciones ]
End If
If
condición [
Then
]
[ Instrucciones 1 ]
[
Else
[ Instrucciones 2 ] ]
End If
Se evalúa una condición, de ser cierta efectúa una acción, de lo contrario, continúa con la ejecución normal del programa.
Ejemplo:
Ingresar por el teclado un número entero, sí el número es positivo sumar 5 al número e imprimir el resultado.
algoritmo:
NumeroPositivo

Variables:

entero:
Numero

inicio

Escribir
("Ingrese un número:")

leer
(Numero)

Si
Numero > 0
entonces
Numero = Numero +5

Fin_si

Escribir
("El resultado es: ", Numero)

fin
If
(Numero>0)
Then
Numero=Numero+5
End if
Esta estructura, se caracteriza por el hecho que ofrece dos caminos a seguir, dependiendo si al evaluar la condición resulta cierta o falsa.
Sintaxis:
Ejemplo:
Se desea saber si un número es par o impar. Diseñe un programa en Visual Basic, en el cual el usuario ingrese un número y el programa muestre con un mensaje, si este es par o no.
algoritmo:
ParImpar

Variables:

entero:
Numero

inicio

Escribir
("Ingrese el número:")

leer
(Numero)

Si
Numero mod 2 > 0
entoces

Escribir
("ES PAR")

Else
Escribir
("ES IMPAR")

Fin_si

fin
Residuo = Numero Mod 2
If Residuo
=0) Then
txtMensaje.Text="ES PAR"
else
txtMensaje.Text="ES IMPAR"
End If
Esta estructura, se utiliza para elegir una entre múltiples alternativas. Se ejecuta una o grupo de acciones dependiendo de la evaluación,se las las puede implementar de dos formas:
If
condición 1 [
Then
]
[ Instrucciones 1 ]
[
ElseIf
condición 2
Then
[ Instrucciones 2 ] ]
[
ElseIf
condición 3
Then
[ Instrucciones 3 ] ]
...
[
Else
[ Instrucciones n ] ]
End If
SELECT
CASE
IF
Sintaxis:
La expresión a evaluar puede ser un valor numérico o una cadena de texto. Sólo se puede evaluar una expresión y no múltiples expresiones. La evaluación de expresiones puede ser:
De coincidencia:
Si Case 12 indicaría que si la expresión evaluada vale 12 se ejecutarán las instrucciones anexas.
De intervalo:
Usando la palabra clave
To
. Por ejemplo, Case 12 To 14 indicaría que si la expresión evaluada tiene un valor comprendido entre 12 y 14 (incluidos los extremos de los intervalos), se ejecutarán las instrucciones anexas..
De comparación:
Usando la palabra clave
Is
. Por ejemplo, Case Is <= 14 indicaría que si la expresión evaluada tiene un valor menor o igual a 14 se ejecutarán las instrucciones anexas.
Desde - Hasta
Mientras
Repetir
Cuenta = Cuenta + 1
If Cuenta = 1 Then
Me.lblSistema.ForeColor = Color.Yellow
ElseIf Cuenta = 2 Then
Me.lblSistema.ForeColor = Color.Gold
ElseIf Cuenta = 3 Then
Me.lblSistema.ForeColor = Color.Goldenrod
ElseIf Cuenta = 4 Then
Me.lblSistema.ForeColor = Color.Orange
ElseIf Cuenta = 5 Then
Me.lblSistema.ForeColor = Color.DarkOrange
ElseIf Cuenta = 6 Then
Me.lblSistema.ForeColor = Color.DarkGoldenrod
Else
Cuenta = 0
End If
Ejemplo 2:
Permite cambiar el color de un label.
Ejemplo 3:
Permite mover un label.
If Me.lblSistema.Location.X > 870 Then
Me.lblSistema.Location = New Point(-360, 576)
Else
Me.lblSistema.Location = New Point(Me.lblSistema.Location.X + 10, 576)
End If
Select [Case]
Expresión
[
Case
Valor1]
[Instrucciones1 ]
[
Case
Valor2]
[Instrucciones2 ]
...
[
Case Else
[ Instrucciones n ] ]
End Select
Sintaxis:
Ejemplo 1:
Ingresar por el teclado el promedio de calificaciones y determinar su significado cualitativo, de acuerdo a los siguientes rangos:

9 a 10: Domina los aprendizajes
7 a 8.99: Alcanza los aprendizajes
4.01 a 6.99: Está próximo a alcanzar los aprtendizajes
<= 4 No alcanza los aprendizajes
Algoritmo
Algoritmo: EvaluarPromedio
Var:
Real:
Promedio
Inicio
//Leer promedio
Leer(
Promedio
)
//Verificar el promedio
Según sea
Promedio
Hacer
Caso 9 hasta 10:
Escribir("Domina los aprendizajes")
Caso 7 hasta 8.99:
Escribir("Alcanza los aprendizajes")
Caso 4.01 hasta 6.99:
Escribir("Está próximo a alcanzar los aprendizajes")
Caso <= 4:
Escribir("No Alcanza los aprendizajes")
Otros Caso:
Escribir("Error: Promedio fuera de rango")
Fin_Según
Fin
Promedio = Val(txtPromedio.Text)
If Promedio >= 9 And Promedio <= 10 Then
txtEquivale.Text = "Domina los aprendizajes."
ElseIf Promedio >= 7 And Promedio < 9 Then
txtEquivale.Text = "Alcanza los aprendizajes."
ElseIf Promedio > 4 And Promedio < 7 Then
txtEquivale.Text = "Está próximo a alcanzar los aprendizajes."
ElseIf Promedio <= 4 Then
txtEquivale.Text = "No alcanza los aprendizajes."
Else
MsgBox("Error. El Promedio esta fuera de rango.")
End If
Programa
El proceso se lo debe implementar en un evento.
Este proceso esta pensado para implementarse en el evento Tick de un control Timer.
Estructura de Secuencia
Cuando varios casos son verdaderos, se ejecutan las instrucciones asociadas al primer caso verificado como verdadero.
For
Sintaxis:
For
VAR = Vi
To
Vf [
Step
Incremento]
[
Instrucciones]
[
Exit For
]
Next
[VAR]
Permite repetir un número determinado de veces una o un grupo de instrucciones.
Se debe conocer las veces que se repetirá el proceso.
For
VAR =
Vi

To

Vf
[
Step

Incremento
]
[Instrucciones]
[
Exit For
]
Next
[VAR]
Valor Inicial
Valor Final
Incremento
Transfiere el control fuera del bucle
Promedio = Val(txtPromedio.Text)
Select Case
Promedio
Case 9 to 10
txtEquivale.Text = "Domina los aprendizajes."
Case 7 to 8
txtEquivale.Text = "Alcanza los aprendizajes."
Case 4 to 6
txtEquivale.Text = "Está próximo a alcanzar los aprendizajes."
Case is < 4
txtEquivale.Text = "No alcanza los aprendizajes."
Case Else
MsgBox("Error. El Promedio esta fuera de rango.")
End Select
Programa
El proceso se lo debe implementar en un evento.
Algoritmo
Algoritmo: TablaMultiplicar
Var:
Entero:
Tabla, Cuenta, Multiplica
Inicio
//Leer el número de la tabla
Leer(
Tabla
)
//Generar Tabla de Multiplicar
Desde
Cuenta
= 1 Hasta 10

Multiplica
=
Tabla
*
Cuenta
Escribir(
Tabla
, "x",
Cuenta
, "=" ,
Multiplica
)
Fin_Desde
Fin
Ejemplo:
Ingresar por el teclado un número entero y generar la tabla de multiplicar de dicho número hasta el 10, y que se muestre en pantalla con el siguiente formato:

9 x 1 = 9
9 x 2 = 18
9 x 3 = 27
9 x 4 = 36
9 x 5 = 45
9 x 6 = 54
9 x 7 = 63
9 x 8 = 72
9 x 9 = 81
9 x 10 = 90
Programa
Dim Cuenta, Multiplica As Byte
'Cargar el valora de la tabla a la variable
Tabla = Val(Me.txtTabla.Text)
'Poner la tabla que se genera
Me.lblTablas.Text = "Tabla del:" & Me.txtTabla.Text
'Limpiar la Etiqueta
lblTabla.Text = ""
For Cuenta = 1 To 10
Multiplica = Tabla * Cuenta
Me.lblTabla.Text = Me.lblTabla.Text & Tabla & " x " &
Cuenta
&
" = " & Multiplica &
vbCrLf
Next Cuenta
Operador de concatenación
Constante para agregar salto de línea
While
Sintaxis:
While
[Condición]
[Instrucciones]
[
Exit While
]
End While
Permite repetir un número indefinidos de veces una o un grupo de instrucciones, siempre que sea verdadera una Condición.
Do ... Loop
Sintaxis:
Do {While|Until}
Condición
[Instrucciones]
[
Exit Do
]
Loop
Repite un bloque de instrucciones mientras una condición sea verdadera o hasta que la condición se convierta en verdadera.
Do

[Instrucciones]

[
Exit Do
]
Loop {While|Until}
Condición
Full transcript