viernes, 20 de marzo de 2009

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

miércoles, 18 de marzo de 2009

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"

martes, 17 de marzo de 2009

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.

lunes, 16 de marzo de 2009

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.