Elabore una funcion personalizada en XL que coloque la calificacion con letra obtenida por un alumno de acuerdo a:
< = 5 " cinco "
= 6 " seis"
= 7 " siete"
= 8 "ocho"
= 9 "nueve"
= 10 "diez"
Seria de la siguiente forma entrando a Excel , ejecutar alt F11
crear un nuevo modulo
y codificar de la siguiente forma :
Function aletra(calif As Integer) As String
Select Case calif
Case Is <= 5
aletra = "cinco"
Case Is = 6
aletra = "seis"
Case Is = 7
aletra = "siete"
Case Is = 8
aletra = "ocho"
Case Is = 9
aletra = "nueve"
Case Is = 10
aletra = "diez"
End Select
End Function
Macros :
Conjunto de instrucciones repetitivas almacenadas bajo un nombre elaborado en lenguaje visual basic.
ubicacion:
Los macros se encuentran en casi todas las aplicaciones dependiendo del menu herramientas.
Grabación:
Para grabar una macro se realiza lo siguiente
herramientas- macro - grabar nuevo macro
se le asigna nombre - tecla de metodo abreviado y localizacion.
Asignacion:
Una macro se puede asignar a :
teclado
menú
barra de herramientas
imagen / autoforma / boton
ejecusión
herramientas - macros - macros
localizar la macro
Pulsar el boton ejecutar
de tal manera que cuando yo haya hecho lo mencionado anterior mente quede algo de la siguiente manera como el ejemplo anterior:
.
Realizar en un libro de excel lo siguiente :
permita dar formato a texto
introducir un texto en una celda
asignar una barra de herramientas
asignar botones
"metodos abreviados este libro."
todas las funciones comienzan con " Function"
Function IVA ( Valor as double) As double
Iva = valor * 0.15
end function
Una compañía de seguros esta abriendo un departamento de finanzas y estableció un programa para captar clientes, que consiste en lo siguiente:
Si el monto por el que se efectúa la finanza es menor a $50,000 la cuota a pagar será por 3 % de monto y si el monto es mayor que $50,000 la cuota a pagar será el 2% del monto.
La afianzadora desea determinar cual será la cuota que debe pagar un cliente.
Si el monto por el que se efectúa la finanza es menor a $50,000 la cuota a pagar será por 3 % de monto y si el monto es mayor que $50,000 la cuota a pagar será el 2% del monto.
La afianzadora desea determinar cual será la cuota que debe pagar un cliente.
Codificación:
Ver video :
Haremos uso de Swflash.ocx, lo hacemos eligiendo la opcion/ proyecto/ componentes....,
o simplemente CNTRL + T para abrir aquel panel. De ahi se debe seleccionar la opción ShockwaveFlash para luego agregarla a nuestra caja de herramientas.
Despues del paso anterior, lo mas normal es que aparezca el logo de flash como un control mas, claro que cuando se tiene flash MX instalado simplemente aparece en lugar del logo una hoja en blanco, como la de crear nuevo archivo.
Ahora solo resta dibujar el control que acabamos de agregar dentro del formulario.Se debe tener en cuenta que el tamaño con que se dibuje, sera el tamaño con que lo veamos en la aplicación .
Ademas debemos crear una caja de texto y un boton que tendran los nombres cajita y command1 respectivamente...y el control que añadimos se llamara "flash", pues de esta manera podremos pegar el siguiente codigo y no volveremos a meternos con visual:
Dim numerito As Double
private sub command1_click ()
flash.setvariable "c_flash", cajita Ënviamos el valor que hay en "cajita" ala variable c-flash en flash
end sub
private sub flash_fscommand (byval command as string, byval args as string)
cajita = args "recibimos el valor de un argumento y lo ubicamos en cajita"
end sub
private sub form_load ()
flash.Movie = (app.path & "\f_vcv.swf")
end sub
¿Que sucede aqui?
Simple, sin embargo hay que tener pinitos en visual para entender un par de detallitos.Cuando se carga el formulario, le decimos al control de flash en donde se encuentran nuestros SWF, por medio del atributo Movie. Valga la redundancia aclarar que en el ejemplo se supone que los archivos estan en la misma carpeta, y si no es asi, pues simplemente se debe modificar la linea en que se le dice la ruta de la pelicula por la ruta que especifique la posicion el archivo.
En el momento en que se oprime el boton (Command1), enviamos el valor que tenemos en nuestra caja de texto al SWF. Esto aprovechando el atributo SetVariable del control flash con 2 parametros:
El primero indica el nombre de la variable que se espera en el swf y que debe ir entre comillas si se le llama de manera explicita, pues como casi todo en visual tambien se puede hacer de manera dinamica ( y n se asusten con lo ultimo, los que no entiedan, asi nada mas funciona); y el segundo pues dice el valor que queremos enviar desde VB.
El metodo FSCommand se activa cuano desde el swf se oprime un boton que me dirijo a explicar:
¿Que sucede e flash?
Crearemos una pelicula simple con mas o menso las mismas caracteristicas del formulario en vb : una caja de texto y un boton. en nuestro ejemplo, la caja de texto se llama c_flash. para que las cosas funcionen, al boton le debemos agregar lo siguiente en sus acciones:
on (release) {
fscommand ("", c_flash);
}
Lo que se hace en la linea 2 es enviar el nombre de la variable.
Ahora si, e mtodo FSCommand s activa enVB cuando ocurre lo anterior en flash. Entonces recibe dos parametros, pero solo usamos el segundo, que correspondera al valor de la variable, al fin y al cabo el primero lo enviamos vacio.
Una empresa de bienes raices ofrece casas de intereses, segun bajo las siguientes condiciones:
Si los ingresos del comprador son menores de 8000 o menos el enganche sera del 15% del costo de la casa y el resto se distribuira en pagos mensuales a pagar en 10 años.
Si los ingresos del comprador son mas de $8000 el enganche sera del 30% del costo de la casa y el resto se distribuira en pagos mensuales a pagar en 7 años.
La empresa quiere obtener cuanto debe pagar un comprador por concepto de enganche y cuanto por cada pago parcial.
Codificación:
Practica. Examen de respuestas multiples
Creare en visual un programa de respuestas multiples.
elaboración del cuestionario
pseudocodigo
diseño del formulario
codigo correspondiente
El cuestionario ha realizar sera de 10 preguntas con sus posibles respuestas ejemplo:
el primer formulario que yo he hecho es el siguiente:
la codificacion que muestro en el boton llamado suerte es el siguiente:
If Text1 = "" Then
MsgBox "Debe ingresar un nombre", vbExclamation, "examen"
ElseIf Text1 = Text1 Then
Form2.Show
Me.Visible = False
End If
el formulario 2 llebara una pregunta con sus posibles respuestas ejemplo:
y asi hasta llegar al formulario 11 que seria la ultima pregunta 10. todas las opciones de multiples respuestas como podras apreciar estan hechas en option butons.
al final el programa debe calcular que números de aciertos y faltas dando la calificación final.
El cuestionario que llevara cada formulario será el siguiente:
1.- En la siguiente serie uno de los grupos de letras rompe la regularidad ¿Cuál es?
A.- EGIK B.- GJMO C.- TVXZ D.- JLNP
2.- El hecho de estar en un examen, no es para ponerse
A.- Sepelio _ serio B.- Curso _ atento C.- Examen- nervioso.
3.- El sinónimo de sucinto es:
A.- Concreto B.- Breve C.- Verdadero
4.- El antónimo de decrecer es:
A.- Aumentar B.- Desarrollar C.-Incrementar
5.- El resultado de -7 + 3 es igual ah:
A.- -10 B.- -4 C.- 10
6.- ¿Cuál es el símbolo de mercurio?
A.- MG B.- HE C.- HG
7.- ¿En que siglo se realizo el primer viaje a Colón?
A.- XI B.- XII C.- XV
8.- ¿Cual es el sinónimo de delación?
A.- Retención B.- Discreción C.- Acusación
9.- ¿Cuál es la raíz cuadrada de 9?
A.- 3 B.- 81 C.- 71
10.- 29 gramos pueden expresarse como:
A.- 0.29 K B.- 0.0029 K C.- 0.029 K
Creacion de un simulador de cajero electronico
En esta ocacion diseñare la simulación de un cajero electronico en el cual útilizare 3 formularios, el primer formulario hare lo siguiente:
ahora solo codificare el boton iniciar con lo siguiente:
If Text1 = "" Then
MsgBox " DEBE INGRESAR EL NUMERO DE SU TARJETA DE CREDITO"
Else
Text1 = Val(Text1)
Form2.Show
Me.Visible = False
End If
el segundo formulario es el siguiente:
If Text1 = "" Then
MsgBox " DEBE INGRESAR EL NUMERO DE SU TARJETA DE CREDITO"
Else
Text1 = Val(Text1)
Form2.Show
Me.Visible = False
End If
el segundo formulario es el siguiente:
en este caso retirar saldo sera el formulario 3 y el otro consultar saldo sera el 4
la cual quedaria asi
en el form3 haciendo doble clic sobre retirar saldo pondre:
Form3.Show
Me.Visible = False
y en el otro = solo que en ves de sera el 4.
.....................................................................................
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox " DEBE INGRESAR LA CANTIDAD A RETIRAR"
ElseIf Text1 = Val(Text1) Then
Label2.Caption = "¡SU SALDO HA SIDO RETIRADO CON EXITO!"
Label2.ForeColor = RGB(0, 0, 0)
Label2.FontBold = True
If Text1 <= 499 Then Label2.Caption = "SOLO PUEDE RETIRAR MAS DE $500 PESOS " Label2.ForeColor = RGB(0, 0, 0) Label2.FontBold = True ElseIf Text1 >= 10000 Then
Label2.Caption = " SU TARJETA NO CUENTA CON SUFICIENTE SALDO PARA REALIZAR ESTA ACCION"
Label2.ForeColor = RGB(0, 0, 0)
Label2.FontBold = True
End If
End If
End Sub
.....................................................................................
Private Sub Command2_Click()
Text1 = ""
TEXT2 = ""
End Sub
.............................................................................
Private Sub Command3_Click()
Form2.Show
Me.Visible = False
End Sub
...............................................................................
En el formulario 4 realizare lo siguiente:
La codificación en cada boton seria la siguiente:
Como podras ver en el formulario eh ingrese dos label "etiquetas" la primera dice su saldo actual es y la segunda no se pero se mostrara al darle al boton Ok.
Private Sub Command1_Click()
If Command1 Then
Label2 = " $10000 PESOS"
End If
End Sub
Private Sub Command2_Click()
Form2.Show
Me.Visible = False
End Sub
Private Sub Command3_Click()
End
End Sub
Ver videotutorial:
Una ves terminada la base de datos en access , hare el programa en visual basic.
Lo primero que se hara sera lo siguiente
la conversion de acces a acces 97:
-menu herramientas
-ùtilidades base de datos
-convertir base de datos
-formas de archivo access 97.
Crea un nuevo proyecto normal, automáticamente se añadirá un formulario llamado Form1Ahora vamos a añadir un Control Data que será el que nos permita acceder a la base de datos que necesitemos usar, para ello, pulsa en el icono: 
que está en la barra de herramientas del IDE del Visual Basic
En el menú Ver (View), pulsa en la opción Barra de Herramientas (Toolbox).
Para añadir cualquiera de los controles que están en la mencionada barra de herramientas, simplemente tienes que hacer una doble pulsación (doble-click) en el icono deseado y se añadirá al formulario. En este caso, se añadirá un Data Control llamado Data1 y el aspecto en el formulario será este: 
Selecciónalo (aunque ya debe estar seleccionado) y arrástralo, (es decir: deja pulsado el botón derecho mientras lo mueves), hasta la parte superior del formulario, (para dejar espacio libre al resto de controles que añadiremos a continuación) .
Ahora vamos a indicarle al Data1 dónde está la base de datos que queremos usar.
Selecciona el Data1 que hemos añadido al formulario, simplemente haz un "click" en dicho control, (debería seguir seleccionado, salvo que hayas pulsado con el ratón en el formulario), pulsa F4 para mostrar la ventana de propiedades y en dicha ventana pulsa en la propiedad DatabaseName, en la columna de la izquierda te mostrará un botón con los tres puntos suspensivos que indican que se mostrará un diálogo.
Una vez seleccionada la base de datos, ya disponemos de una conexión, mediante el control Data a dicha base de datos.
Pero, en casi todas las bases de datos suelen existir varias "tablas" que contienen datos. Para seleccionar una de las tablas, vuelve a mostrar la ventana de propiedades del control Data y selecciona la propiedad RecordSource, verás que en la cuadrícula de la derecha hay una lista desplegable, en ella se muestran las tablas disponibles, en nuestro ejemplo usaremos la de Articulos, por tanto selecciona dicho elemento de la lista.
ok ahora iniciare con un panel de control el cual me llebara alos siguientes formualarios realizados es desir a todas las tablas que realize en acces:
teniendo ya nuestro primer formualio
y con cada boton codificado es desir al primer boton de articulos debera llebar lo siguiente en la ventana de codificación.
form2.show
me.visible= false
y asi los demas solo que de acuerdo al formulario que esten es desir crearemos un formulario dos
y para clientes sera 3 el cual seria diferente la codificacion :
form3. show
me.visible = false.
asi todos los demas..
El fomulario 2 de articulos que diseñe fue el siguiente:
Ahora vamos a "enganchar" cada una de los textbox con un registro de la mencionada tabla de articulos:
Selecciona el control Text1 y en la ventana de propiedades selecciona DataField, de la lista desplegable ahora donde puse con etiqueta id es desir mi text1 pondre id articulo y el data source debe llebar data1 y asi con todos los demas.
Selecciona el control Text1 y en la ventana de propiedades selecciona DataField, de la lista desplegable ahora donde puse con etiqueta id es desir mi text1 pondre id articulo y el data source debe llebar data1 y asi con todos los demas.
Lo ùltimo por diseñar pues es un manual de usuario el cual me muestra el funcionamiento del programa en visual basic.
La empresa la tiendita de la esquina se dedica ala compra- venta de articulos electronicos.
Los articulos que venden los pueden distribuir tanto al mayoreo como al menudeo, a empresas o particulares, ya que tiene una fuerza de vetas que estan divididas en esas dos grandes aeas.
Dentro de los articulos que venden se encuentran:
1.-Licuadoras.
2.-Batidoras.
3.-Estufas.
4.-Lavadoras.
5.-Refrigeradores
6.-Televisores.
7.-Estereos.
8.-Video Reproductores.
9.-Video Grabadores.
10.-Computadras
11.-Telefonos celulares.
Divididos en diferentes lìneas.
Los provedores con los que mas trabaja son:
lg
samsung
sony
panasonic
hp
nokia
Los clientes mayoristas son:
Chedraui
Comercial
San club
Por tener un gran volumen de venas se requiere llebar el control a travez de una computadora para lo cual contrata su servicio como diseñador experto en sistemas y le pide que realize un analisis previo, en el cual le permita demostrar las ventajas que le producira su sistema, una vez aprobado el mismo.
Tendra usted que elaborarlo y diseñarlo asi como establecer su aplicacion en una computadora.
Dentro de lo que debe usted establecer para este sistema, lo cual debe considerar lo siguiente:
*Diseño general del funcionamiento del sistema.
*Especificar el número de tablas y contenido de cada una de ellas, estableciendo sus campos llaves.
*Considerar informes principales como reporte de ventas por empres, por linea, por vendedor y por articulo, pudiendo seleccionar al usuario el reporte que mas le convenga.
*Considerar la generacion de grafica de ventas pudiendo exportar los datos a excel.
*Generar un catalogo de productos en power point y publicher.
OK lo primero sera útilizar una base de datos en Access, las cuales fueron las siguientes que cree.
Las tablas que realize estan hechas con los siguientes campos: 
Sus campos llaves son:idarticulo
idprovedor
idvendedor
idtipo
idcliente
idlineas
2.-Crear formularios de cada tabla realizada:
Ejemplo de uno:
se creo un formulario con encabezado y pie de form. la cual lleba botones y un boton generado con macro para direccionar al panel de control el cual es el siguiente panel de control que me lleba a todos los formularios lo cual son 8 formularios en total.
este panel consta de 7 botones generados con macro es desir que al darle clic me lleba a un formulario llamado articulos o al que le de y con los demas igual un boton que me lleba de regreso al panel de control para facilitar la base de datos.
Lo siguiente que diseñare sera el catalogo de la empresa en publisher el cual fue el siguiente:
ejemplo de la parte de adentro del folleto:
Creacion de un programa para pasar datos de uno a otro la codificación seria la siguiente en cada uno de los botones:
Boton "pasar todo"
Private Sub Command1_Click()
For i = 0 To 3
List2.AddItem List1.List(i)
Next i
List1.Clear
End Sub
Boton"Quitar todo"
Private Sub Command2_Click()
For i = 0 To 3
List1.AddItem List2.List(i)
Next i
List2.Clear
End Sub
Boton"salir"
Private Sub Command3_Click()
End
End Sub
Boton "pasar 1"
Private Sub Command4_Click()
For i = 0 To 3
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
End If
Next i
End Sub
Boton "quitar 1"
Private Sub Command5_Click()
For i = 0 To 3
If List2.Selected(i) = True Then
List1.AddItem List2.List(i)
End If
Next i
End Sub