Editor de menus

En Visual Basic podemos crear aplicaciones que estén gobernadas a través de un menú, es decir, como los típicos programas del entorno Windows, para ello Visual Basic dispone del Editor de Menús.
Para acceder al Editor de Menús debemos pulsar en :

Menu Herramientas

Sel. Editor de Menús´

O pulsar sobre el formulario el botón derecho del mouse y seleccionar la opción `Editor de Menús´.

Estructuras de seleccion multiple

If es adecuado para comparar información en donde se necesita una o dos verificaciones. Sin embargo, si se necesitan varias, If se torna difícil de manejar. Visual Basic soporta una instrucción llamada Select Case que maneja mejor condiciones múltiples. He aquí el formato:
Select Case expresión

Case valor1
Codigo
Case valor2
CodigoCase valor3
Codigo

End Select

Select Case Su nombre casi nos define lo que es: Selecciona, dependiendo del caso, un determinado juego de codigos.

Ciclo do while | until

Do { While Until } condición
Codigo
Loop

Por supuesto, no podemos utilizar “While” y “Until” a la vez. En esta forma del bucle, la condición se evalúa al comienzo del mismo. En el caso de utilizar la opción “While”, el bucle se repetirá mientras que la condición sea verdadera. Podemos escribir el ejemplo anterior utilizando esta posibilidad:

Do While edad <> 0
edad = edad - 1
Loop

También podríamos haber resuelto el problema con el uso de “Until”:

Do Until edad = 0
edad = edad - 1
Loop
En este caso, el bucle se repetirá hasta que edad sea igual a cero.

La tercera forma que puede adoptar el bucle que estamos analizando es la siguiente:
Do
Codigo
Loop { While Until } condición

Como puede verse, se ha delegado la capacidad de evaluar la condición al final del bucle. Esto tiene la particularidad de permitir que el grupo de instrucciones existentes en el interior del bucle se ejecuten al menos una vez, independientemente de que la condición a evaluar sea o no verdadera.
Dim edad As Integer
edad = 20
Do
edad = edad - 1
Loop Until edad = 0

O así:

Dim edad As Integer
edad = 20
Do
edad = edad - 1
Loop While edad <> 0

CASOS ESPECIALES CICLO FOR.

Casos Particulares:

1.- El ciclo comienza en uno y se incrementa de uno en uno, este es el caso mas general.

DIM X AS INTEGER

FOR X=1 TO 5

List1.AddItem (X)

NEXT X

2.- El valor inicial puede se diferente de uno, ejemplo:

DIM X AS INTEGER

FOR X=5 TO 28

List1.AddItem (X)

NEXT X

3.- El valor inicial puede ser negativo, ejemplo;

DIM X AS INTEGER

FOR X= -5 TO 18

List1.AddItem (X)

NEXT X

4.- Los incrementos también pueden ser diferentes al de uno EJEMPLO:

DIM X AS INTEGER

FOR X=1 TO 50 STEP 4

List1.AddItem (X)

NEXT X

5.- Pueden ser decrementos, EJEMPLO:
* el valor inicial de la variable debe ser mayor que el valor final.

DIM X AS INTEGER

FOR X=100 TO 20 STEP - 5

List1.AddItem (X)

NEXT X

EJEMPLO DE CICLO FOR.

Crear un programa que muestre los numeros comprendidos entre 10 y 20.

Herramientas a utilizar:
1 listbox, 1 commandbutton.

programando el command1:

Private Sub Command1_click( )

Dim x As Integer Declaramos la variable y el tipo de datos a utilizar.
for x = 10 To 20 Incrementa por default en una unidad.
list1.AddItem (x) Agregar elemento en listBox (variable).
Next x Continua nuevamente el ciclo hasta que x sea igual a 20.

End sub

CICLO FOR NEXT

La sentencia For permite ejecutar un conjunto de sentencias cierto número de veces. Su forma general es:

For variable = (valor inicial)expresion1 To (valor final)expresion2 [Step ]
[codigo]
[codigo]
Next [variable]

Cuando se ejecuta una sentencia For, primero se asigna el valor de la expresion1 a la variable y se comprueba si su valor es mayor o menor que la expresion2. En caso de ser menor se ejecutan las sentencias, y en caso de ser mayor el control del programa salta a las líneas a continuación de Next. Se incrementa en 1 si Step no se especifica, volviéndose a efectuar la comparación entre la variable y la expresion2, y así sucesivamente.

HERREMIENTAS CHECKBOX

Colocar en el formulario:

2 label.

2 checkbox

Crear un programa que te permita utilizar checkbox y nos muestre la fecha, hora del sistema segun sea el caso de seleccion de la herramienta.

Hacer doble click sobre el check1.

private sub check1_click( )

if check1.value=0 then
label1.visible=false
else
label1.visible=true
label1=date
endif

end sub

private sub check2_click( )

if check2.value=0 then
label2.visible=false
else
label2.visible=true
label2=date
endif

end sub

como podras observar le herramienta check tiene dos valores para ser activada Value:

0=apagado
1=encendido


La propiedad visible tambien tiene dos valores:

objeto.visible=true muestra el objeto en el formulario.

objeto.visible=false oculta el objeto en el formulario.

Con la practica realizada podras entender mejor el procedimiento, el ciclo if utilizado es de alternativa doble.

Felices vacaciones.

WEB BIU

En el bachillerato internacional consientes de nuestra reponsabilidad creamos un espacio a tu medida, el cual trendra las mejoras que tu propongas con el fin de proporcionar ayuda en linea, utilizando las nuevas herramientas de la informacion.

Que esperas ingresa ya.


www.biu.uninter.edu.mx

Suerte...!

Cuestionario (Tarea copias)

Contestarlo correctamente.

1¿Qué realiza la función Rnd en visual Basic?

2¿Qué colores maneja la función RGB en visual Basic?

3¿Qué realiza el siguiente código?
Text1.text = “ ”
4¿Qué es la herramienta shape en visual Basic?

5¿Qué es un form (formulario en visual Basic)?

6¿Qué es la herramienta HScrollbar en visual Basic?

7¿Explicar la siguiente línea de código?
Shape1.shape
8¿Si no conoces el nombre de las herramientas en visual Basic, que haces?
9¿Qué tipo de datos maneja la siguiente variable?
a = Val(Tex1.text)
10¿Cuáles de estos nombres de variables son validos en Visual Basic?

X 1 ___________________________________

Costo __________________________________

X1 ____________________________________

Precio del articulo ________________________

11¿Cómo escribes las siguientes operaciones en visual Basic?

X2+Y2 _________________________________________________

Raiz (X2-4ac)_________________________________________________


a(x2/z) _________________________________________________

12¿Qué Realiza el evento Load ( ) en visual Basic?

13¿Qué Realiza el evento Click ( ) en visual Basic?

14¿Qué Realiza el evento Change ( ) en visual Basic?

15¿Qué propiedad modificas para colocar un nombre a un commandbutton y lo muestre en el form (formulario)?

16¿Qué propiedades modificas para cambiar el color de un commandbutton?

17¿Qué Realiza la función Val ( ) en visual Basic?

18¿Qué propiedad tienen un Label y un TextBox para cambiar el nombre en el form (formulario)?¿Es la misma?

19¿Qué realiza la función InputBox en visual Basic?

20¿Qué tipo de datos maneja la siguiente variable?

a = Tex1.text

La fecha de entrega es:

Martes 24 marzo 4 c,a,b
Miercoles 25 marzo 4d

En estas fechas se revisaran apuntes correspondientes a la materia y grupo.

Utilizando Operadores Logicos

Los operadores lógicos que utilizaremos son And (y), Or (o), por ejemplo:

Operador And.

If condición 1 And condición 2 then
Código 1
Else
Código 2
End if

Para que se ejecute el código 1, las 2 condiciones deben ser Verdaderas, En caso contrario se ejecutara el código 2

Operaciones lógicas con And

V And V = V Esta sentencia ejecuta el código 1
F And V = F
V And F = F
F And F = F

Operador Or.

If condición 1 Or condición 2 then
Código 1
Else
Código 2
End if

Las dos condiciones, o una de las dos, debe ser verdadera para ejecutar el código 1, en caso contrario ejecutara el código 2.

Operaciones lógicas con Or

V Or V = V ejecuta código 1
F Or V = F ejecuta código 1
V Or F = F ejecuta código1
F Or F = F

Funciones utilizadas en VB .

Una función nos permite realizar operaciones de manera simple.

Val ( ) cambia caracteres a valores numéricos.

RGB(0,0,0) permite colocar colores por medio de la combinación rojo, verde, azul, recuerda que los valores van desde 0 a 255.

Rnd( ) Crea un valor aleatorio.

Asc( ) Nos permite obtener el código ASCII de un de terminado carácter. La función Asc nos permite obtener el código ASCII de un de terminado carácter.

Chr( ) Actúa a la inversa de la función Asc, esto quiere decir, que a partir de un determinado número nos devolverá el carácter ASCII.

Round ( ) Se utiliza para redondear un número decimal, devolviendo un número entero.

Funciones matemáticas:

Abs( ) Devuelve el valor absoluto de una expresión numérica.

Atn( ) Devuelve el arco tangente de un número.

Cos( ) Devuelve el coseno de un ángulo.

Exp( ) Devuelve el número "e" elevado a una potencia.

Log( ) Devuelve el logaritmo natural de un número.

Sgn( ) Devuelve un valor indicando el signo de un número.

Sin( ) Devuelve el seno de un ángulo.

Sqr( ) Devuelve la raíz cuadrada de un número.

Tan( ) Devuelve la tangente de un ángulo.

Funciones de formato:

Visual Basic posee varias funciones para darle formato a distintos tipos de datos e información. A continuación se ve algunos ejemplos de las principales funciones:

FormatCurrency: Esta función se utiliza para trabajar con números con formato en dinero.
Ejemplo: si tenemos un número 3 y utilizamos la función nos devolvería "$3".

FormatPercent: Esta función es utilizada para trabajar con porcentajes. Ejemplo : si tendríamos un número 321, nos devolvería: "32,1%" .

FormatDateTime: Esta función trabaja con fechas y horas.

FormatNumber: Formatea expresiones números

Resultado = FormatPercent(321) 'devuelve: "32.100,00%"
Resultado = FormatCurrency(3) 'devuelve: "$3,00"
Resultado = FormatDateTime("6-8-1978") 'La función devolvería: "06/08/1978"

NumDigitsAfterDecimal: Parámetro de tipo opcional. Este indicará cuantos números decimales devolverá la función:
Ejemplo

cadena = FormatCurrency(325, 3) 'Devuelve: "$325,000"

Herramienta ListBox

Esta herramienta permite crear listado de elementos, para agregar elementos utilizas la instrucción AddItem (agregar elemento), generalmente lo haces desde el form_load().

List1.AddItem "Mensaje"

El programa guarda los nombres creando automaticamente un índice, por lo que los elementos inician desde cero hasta n (numero), cuando creas tus listados la numeración comienza en cero.

Y lo identificas así:

List1.ListIndex = 0

ListIndex es el índice donde localizas el listado.

Ciclos If Anidados.

Permite tener múltiples decisiones en forma sucesiva dependiendo de la condición que es la que permite pasar a otro ciclo If si la condición anterior es falsa.
En base a un listado el programa deberá tomar una decisión si hacen click en algún color del ListBox (es como tener un menú).

Private Sub Form_Load()
List1.AddItem "rojo"
List1.AddItem "verde"
List1.AddItem "Azul"
List1.AddItem "Amarillo"
List1.AddItem "blanco"
Label1.Caption = "Visual Basic 6"
End Sub

Private Sub List1_Click()
If List1.ListIndex = 0 Then
BackColor = RGB(255, 0, 0)
Label1.BackColor = RGB(255, 255, 0)
Label1.ForeColor = RGB(255, 0, 0)
ElseIf List1.ListIndex = 1 Then
BackColor = RGB(0, 255, 0)
Label1.BackColor = RGB(255, 0, 0)
Label1.ForeColor = RGB(0, 255, 0)
ElseIf List1.ListIndex = 2 Then
BackColor = RGB(0, 0, 255)
Label1.BackColor = RGB(255, 255, 0)
Label1.ForeColor = RGB(0, 0, 255)
ElseIf List1.ListIndex = 3 Then
BackColor = RGB(255, 255, 0)
Label1.BackColor = RGB(0, 255, 255)
Label1.ForeColor = RGB(255, 255, 0)
ElseIf List1.ListIndex = 4 Then
BackColor = RGB(255, 255, 255)
Label1.BackColor = RGB(255, 0, 255)
Label1.ForeColor = RGB(255, 255, 255)
End If
End Sub

Ciclo if simple

Es el mas sencillo, solo toma una acción si esta resulta verdadera, si no continua con la secuencia del programa.

private sub command1_click()

a = val (text1.text)

If a=2 then
text2.text= "numero dos"
text3.text="numero pequeño"
endif

If a=6 then
text2.text= "numero dos"
text3.text="numero mediano"
endif

end sub

Recuerda que el primer paso es tener un valor el cual puede ser constante o variable.

Posteriormente deberás ver cual es la condición para que el programa realice la operación correcta.

Funcion sqr ( ) Raiz cuadrada.

la ecuación cuadrática

x1 = ( -b + sqr((b*b)-4*a*c)) / (2*a)

x2 = ( -b + sqr((b*b)-4*a*c)) / (2*a)

En este caso primero debes declarar tres variables para poder ejecutar las operaciones.

Ejemplo con dim

dim a As Double
dim b As Double
dim c As Double
dim x1 As Double
dim x2 As double
a = text1.text
b = text2.text
c = text3.text
x1 = ( -b + sqr((b*b)-4*a*c)) / (2*a)
x2 = ( -b + sqr((b*b)-4*a*c)) / (2*a)
text4.text = x1
text5.text = x2

Observa que las operaciones se realizan por separado x1 y x2 pero para mostrar el resultado lo haces utilizando la herramienta textbox.

Es como si fuera la instrucción imprimir resultado.

Ejemplo con val ( )

a = val (text1.text)
b = val (text2.text)
c = val (text3.text)
text4.text = (-b + sqr( (b*b)-4*a*c)) / (2*a)
text5.text = (-b - sqr( (b*b)-4*a*c)) / (2*a)

Creacion de variables en VB

Puedes utilizar dim o la función val( ).

Por ejemplo ingresar dos variables.

x= val ( Text1.text)
y= val ( Text2.text)

Si quisieramos sumar:

Text3.text = x + y

Recuerda que en la herramienta textbox es donde al ejecutar el programa ingresaras los valores que se guardaran momentaneamente en la variable en este caso x, y, posteriormente esta herramienta te permite mostrar resultados.

Los nombres de las variables se pueden escribir así:

x
y
x1
dato
dato1
costo

Siempre que llevan el mismo nombre colocaras un numero secuencial.

Utilizando dim.

dim x as double
dim y as double

x=text1.text
y=text2.text

si observas ya no utilizas la función val().

Procedimientos (eventos)

Recuerda que un objeto (herramienta) en VB puede controlar uno o mas objetos, como es el caso del boton command, en los ejercicios pasados observamos como un command controla varios textbox, y otro command también controla varios text, los códigos son diferentes por lo cual colocamos eventos para:

Mostrar

Borrar

Salir

Si abres objetos y procedimientos mientras no coloques código no realizaran ninguna operación, si colocas algún código entonces el objeto realizara el procedimiento (evento) indicado.

Borrando text1 del Text

Para eliminar text1 de la vista en el formulario deberas en las propiedades:

Text text1 borrar y dejarlo asi Text

De esta manera al ejecutar el programa no mostrara en el cuadro textbox el nombre text1.

Tambien deberas tener cuidado de no modificar la propiedad

nombre Text1

Colocando un nombre a los objetos command

Recuerda que deberas seleccionar el objeto (command1), e ingresar a propiedades en :

caption command1 colocar caption Mostrar

Observa que en la ventana de formulario cambio el nombre del objeto (command1), por el nombre Mostrar.

Nota no modificar la propiedad Nombre Command1 porque tu codigo no funcionara al menos que lo llames por el nuevo nombre.

Cuidado en las propiedades de VB 6

Las herramientas de visual basic, al agregarse al form (ventana de formulario). anejan diferentes propiedades que nos permiten cambiar su nombre, color, posicion, etc; Hay dos propiedades importantes con las cuales se debe tener cuidado porque son similares pero hacen cosas distintas,

ejemplo:

Propiedades command1

Nombre Command1
Caption Command1

Si observas tienen el mismo nombre pero la diferencia es que la primera (nombre) es la forma en que se llama al objeto (herramienta) en el codigo, y la segunda es el nombre que visualizamos en el boton. por lo cual se debe tener cuidado de no modificar la propiedad Nombre.

En la practica quedaria de la siguiente manera:

Propiedades command1

Nombre Command1
Caption Mostrar

Codigo en visual basic

Interfaz de diseño de usuario.

En el formulario hacer doble click en el boton comando, aparece la ventana de codigo si observas en la parte superior derecha tiene el nombre del objeto que es command1 y en la parte izquierda el evento que es click; es decir al ejecutar el programa (f5) y hacer click en el boton comando nos mostrara el mensaje.

Private Sub Command1_Click()

Text1.Text = "hola"

End Sub

Donde:

text1 es el nombre del objeto sobre el cual actua el evento.

text (Mensaje) es la propiedad que modifica.

= el mesaje va entre comillas.

Nota: en propiedades command1 modificar:

Caption Mostrar

Nota: en propiedades text1 modificar:
Text

borrar text1(queda vacia)

con esto hemos modificado la interfaz, faltaria el ultimo paso que es cambiar algunas otras propiedades para dar una mejor presentacion.

Programa sencillo en vb 6

Estando en la ventana principal vamos a colocar las herramientas:

* textbox.

*commandbutton.

En el form (ventana).

Para poder iniciar con nuestro programa de ejemplo, recuerda que las herramientas las colocas haciendo click y posteriormente mantener el boton derecho oprimido sobre el form (ventana) tu decides el tamaño del objeto.

Recuerda que visual basic es programa que trabaja por eventos.

Crear un programa que al hacer click en el boton command, muestre un mensaje. "Hola"

INiciando a trabajar con Visual Basic 6

Ingresar al menu inicio

seleccionar todos los programas

seleccionar microsoft visual studio

seleccionar microsoft visual basic 6

desde el escritorio si tienes un icono de acceso directo.

En la ventana de nuevo proyecto click en abrir

Con esto iniciaremos la pantalla de inicio de vb donde esta el form (ventana)
Que es la interfaz de usuario.

Bibliografia para visual basic.

El camino facil a visual basic McGraw Hill
Visual Basic Practica con ejercicios Trillas
Aprenda Visual basic 6 Ya McGraw Hill

Links interesantes:

http://www.programatium.com/01Manuales7/Lenguajes/visualbasic.htm

http://www.estudiargratis.com.ar/visual-basic

http://dieumsnh.qfb.umich.mx/VisualBasic/

Temario Informatica IV Visual Basic

Unidad 1: Introducción a VB 6.0
Herramientas básicas de VB
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Utilizando textbox y commandbutton.
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Operadores matemáticos y lógicos.
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Concepto de programación de eventos, Propiedades de las herramientas.
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Aplicando propiedades a la interfaz.
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Interactividad de objetos.
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Evaluación parcial 1
Revisión de examen.
Unidad 2: Variables y constantes.
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Tipos de datos, Combobox, picture, Hscrooll bar, vscroll bar.
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Funciones de VB
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Funciones de VB, Driverlist box, Optionbutton.
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Evaluación parcial 2
Revisión de examen.
Ciclo For, if then, Timer, shape.
Cilco do while.
Ciclo case.
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Editor de menús, shape.
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
OLE, List Drive Box, Filelist box
Practica de laboratorio de cómputo.
Practica de laboratorio de cómputo.
Evaluación parcial 3
Revisión de examen.

Enero - Junio 2009

LI Alejandro Osorio

Quieres colocar tu pagina web gratis

Jimdo es una buena opción, el administrador es manejado por contenidos, con una interfaz sencilla, con lo cual tendras tu pagina lista en poco tiempo. La dirección es:
es.jimdo.com