SENTENCIA DO_ LOOP

Estructura de control que al igual que la sentencia For genera un ciclo repetitivo ; la diferencia radica en que para ejecutar las instrucciones debe evaluarse una condición.



La condición Do While ejecuta el bloque de instruciones mientras la condición sea verdadera; en el momento en que se evalua como falsa automáticamente termina el ciclo y el programa continua su ejecución en la siguiente linea de la instrucción Loop.



Sintaxis

Do While condición

[sentencias]

Exit Do

[sentencias]

Loop



Do

[sentencias]

Exit Do

[sentencias]

Loop While condición



La condición se puede verificar antes o despues de ejecutar las sentencias.



Ejemplo:

Crear una aplicación que desplace un objeto Picture Box de izquierda a derecha en un formulario, la imagen debe partir de cero, y al encontrar el borde derecho del formulario presentar un mensaje "termino" y denuevo mostrar la figura en cero.

-Para poder resolver debemos saber las medidas de un objeto dentro de un formulario, las cuales son:

• Left = distancia del borde izquierdo del form hasta borde izquierdo del objeto.
• Top = distancia del borde superior del objeto hasta borde superior del form.
• Width = Ancho del objeto.
• Heigth = Alto del objeto.
• Escale Width = Ancho del form.
• Escale Heigth = Alto del form.

En este caso el nombre del objeto se llamara cara.

Insertamos la imagen de la carita desde el escritorio, internet o paint.

Vamos a código

Do Private sub Form_click ()

Form1_click()

Do While (cara.left + cara.width) < left =" cara.left">

Loop

MsgBox termino

Cara. left = 0

SENTENCIAS DE CONTROL

Las sentencias de flujo támbien llamadas estructuras de control o ciclos permiten cambiar la secuencia de instrucciones de un programa y ejecutar varias veces y ejecutar un bloque de las mismas sin necesidad de escribirlas tantas veces como se requiera.
Todas las sentencias de control sirven para tomar la desición de ejecutar o no un bloque de instrucciones dependiendo del resultado de la evaluación de una condición o variable.

Una condición es una combinación o expresión de estas asociadas con operadores lógicos (And, Or, Not, Exor, Eqv o Imp ) o relacionales (> <, >= <=, =) que pueden ser evaluadas como verdaderas o falsas.

Sentencias de control en visual:

• If.......then.......else
• For....next
• Do......Loop
• While......wend

Sentencia If

Es utilizada paara ejecutar o no un bloque de instrucciones, deacuerdo con el valor lógico con que fue evaluada.

La condición de su sintaxis de una sola linea es:

• if condición then sentencia1{Else sentencia2}

Sintaxis de forma general:

• if condición then
• sentencia
• Else
• sentencia
• End if

If es quien toma la desición, si la condición es verdadera se ejecutan las sentencias que estan a continuación de then. si es falsa se ejecutan las que estan a continuación de Else.

Sintaxis para varios bloques de sentencias:

• if condición 1 then
• sentencia 1
• elseif condición 2 then
• sentencias 2
• Else
• sentencia-n
• End if
• End if

Si se cumple la condición1 se ejecutan las sentencias1 si no se cumple se revisan las secuencias siguientes hasta Else, ejecutandose la sentencia respectiva al primer Else if cuya condición se cumpla. Si son falsasse ejecutan las sentencias -n correspondientes a else.

Ejemplo

Crear una aplicación que solicite al usuario dos números, los compare y muestre en un cuadro de texto cual es el mayor.

1 Entrada:
num 1
num 2

2 Proceso:
num 1 > num2- num1
num 2 > num1- num2

3 Salida:
numero mayor

4 Diseño la interfax

5 Declaro variables
Dim num1 As Integer
Dim num2 As Integer

6 Asigno variables
Text1_Change ()
if text1.text <> " " then
num1 = Val (text1.text)
End if

Text2.text_Change ()
if text2.text <> " " then
num2 = Val (text2.text)
End if

7 Validar la entrada
Text2_Keypress ()
if Keyascii <> 57 then
Keyascii =0
End if
End sub

8 Voy a códigos
Private sub command1_click ()
if num1 > num2 then
text3.text = num1
Else
Text3.text = num2
End if

Private sub command2_click ()
text1.text = " "
text2.text = " "
text3.text = " "
text1.setfocus
End sub

Private sub command3_click ()
End
End sub

SEGUNDO PROGRAMA

Crearemos en esta ocación un programa que permita determinar cual es el cuadrado de un determinado número.

Diseñamos la interfax

Declaramos variables

Dim n As Double

Private sub Command1_click ( )

Cuadrado = text1.text*text1.text

text2.text= Cuadrado

End sub

Private sub Command2_click ( )

text1.text = " "

text2.text = " "

text1.Setfocus

End sub

Private sub Command3_click ( )

End

End sub

Text1_Change ( )

if text1.text <> " " then

a= val(text1.text)

End if

Text1_Keypress (keyascii As Integer)

if Keyascii <> 57 then

Keyascii = 0

End if

Text2_Change ( )
if text1.text <> " " then
a= val(text2.text)
End if

Text2_Keypress (keyascii As Integer)
if Keyascii <> 57 then
Keyascii = 0
End if

Voy a propiedades locked True

OPERADORES ARITMETICOS RELACIONALES Y LOGICOS

Para poderles explicar acerca de este tema necesito que sepan que es un operador.

Un operador es un signo, cadena de caracteres o combinación de estos que realiza calculos o comparaciones sobre diferentes tipos de expresiones (variables, constantes o valores ).

Operadores Aritméticos

Son utilizados para realizar operaciones aritméticas, es decir, para calcular un valor dando un resultado.

El orden de ejecución es:

• ()


• ^
  
• *,/


• \


• mod


• +,-

Los veremos mejor en la siguiente tabla:

Operadores Racionales

Estos operadores se emplean para comparar dos expresiones y generar unb valor verdadero (True), falso (False) o Null (No valido) los pueden observar mejor en la siguiente tabla:

Operadores Lógicos

Estos operadores son utilizados en visual para comparar dos expresiones, haciendo que regrese uno de los dos valores posibles True o False pero como el programa no entiende estos valores Boolean donde False es 0 y Trie es 1, utiliza los valores numéricos para representarlos a continuación los veremos en una tabla:

TextBox o Cajas de Texto

Nos permiten capturar y mostrar la información entre otras cosas. La textBox consta de unas propiedades dentro de las cuales señalare las siguientes:

• Text - muestra la información.
• Name - nombre que le damos nosotros.
• Multiline -Permite ingresar varias lineas de texto.
• Alignment - posición del texto.
• Locked - bloque la caja de texto y no permite escribir sobre ella.
• Backcolor - permite cambiar el color de fondo.
• Fore color - color de la fuente.
• Font - cambia la fuente de la TextBox.
  

Algunos Eventos importantes:

• Click ()
• Change ()
• Keypress (KeyAscii As Integer )
• Mouse Move

Código para capturar la información dada por el usuario que esta en la TextBox

Private sub Text1_change

• If text1.text <> "" Then
• a = val (text1.text)
• End if
• End sub

Código para bloquear una caja de texto que solo nos permita ingresar números

Private sub Text1_ Keypress (KeyAscii As Integer)

• If KeyAscii <> 57 Then
• KeyAscii = 0
• End If
• End sub