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
haremos un programa de acuerdo alos vectores, al tema anterior
donde mostremos una pantalla que llebe 3 botones de comando y agregaremos otro formulario donde se vean los datos y 1 boton de comando que me regrese
de tal manera que se muestre de la siguiente manera el primer formulario
ok la codificacion que se mostrara en el primer formulario en introducir datos debe ser la siguiente:
Dim I As Integer
Dim YO(10) As String
Private Sub Command1_Click()
For I = 1 To 10
YO(I) = InputBox("Teclee el valor del nombre", "datos")
Next I
End Sub
y en el boton mostrar datos la codificacion es:
Private Sub Command2_Click()
For I = 1 To 10
Form2.List1.AddItem YO(I)
Next I
Form2.Show
Form1.Hide
el boton salir pues END
en el segundo formulario debemos ingresar un listbox y un boton de comando que diga regresar
ok en este solo modificaremos el boton regresar con lo siguientes codigos:
Form1.show
form2.hide
al ejecutar el programa el resultado debe ser el siguiente, despues de ingresar los nombres:
Un arreglo es una estructura de datos que almacena bajo el mismo nombre a una coleccion de datos del mismo tipo.
Caracteristicas:
Componentes individuales llamados elementos.
Estos elementos se almacenan en posiciones contiguas de memoria.
Se usa el mismo nombre de variable para representar a todos los elementos.
Para hacer referencia a estos elemnetos se ultiliza un indice que especifica el lugar que ocupa cada elemento dentro del archivo.
Los indices se especifican entre parentesis o corchetes.
Los elementos se pueden procesar de manera indivudual o bien, todo arreblo completo.
Clasificacion:
unidimensionales llamados tambien vectores o listas son arreglos que tambien se denominan de una dimension bidimensionales, tambien conocidos como matrices o tablas.
Ejemplo de vectores:
LA FUNCION:
option base 1
le dice a visual que los indices van a empezar a trabajar desde el 1 y no desde el 0.
Elaborar un programa por dos formularios es desir:
en el primero pondremos datosa in troducir y y el segundo nos debe mostrar los datos que introducimos en el primero para eso hare lo siguiente:
4 etiquetas, 4 text, y dos botones de comando ( en el primer formulario
de tal manera que me quede de la siguiente forma:
ok el segundo formulario donde se mostraran los datos introducidos haremos lo siguiente:
en el menu buscamos proyecto y damos agregar formulario para que nos muestre el segundo ,
en este agregaremos 1 boton de comando para que me regrese al primer formularioy dos etiquetas (label) en la primera pondremos datos que ha introducido y en la segunda la dejaremos en blanco que es donde se mostraran los datos.
de tal manera que se muestre de la siguiente manera:
listo bueno ahora la codificacion con el boton mostrar sera la siguiente a ingresar:
Dim mensaje As String
mensaje = Form1.Text1 & vbCr
mensaje = mensaje & Form1.Text2 & vbCr
mensaje = mensaje & Form1.Text3 & vbCr
mensaje = mensaje & Form1.Text4 & vbCr
Form2.Label2 = mensaje
Form2.Show
Form1.Hide
OK En el segundo formulario en el boton regresar solo pondremos:
form1.show
form2.hide
ejecutaremos el programa de tal manera que se muestre de la siguiente forma la cual al darle mostrar los datos introducidos en el formulario 2 se tienen que mostrar.
Hacer un programa que al poner cantidad de compra , me muestre el iva y cuanto debe pagar el cliente y al dar con cuanto va a pagar el cliente se muestre el cambio, tambien poner si se paga con targeta de credito o efectivo.
Para esto hare lo siguiente:
Para esto hare lo siguiente:
hare 5 etiquetas , 5 text y 2 botones de comando lo cual mi pantalla de formulario quedara de la siguiente manera:
bueno entonces en la codificacion solo en el boton calcular ingrese lo siguiente:
text2= (val(Text1)*15)/100
text3=val(Text1)+val(Text2)
text5= val(Text4) - val(Text3)
de tal manera que al ejecutar nuestro programa eh introducir en text1 el valor de la mercancia y en el text4 cuanto esta pagando el cliente me debe quedar de la siguiente manera:
La presion, volumen y temperatura de una masa de aire se relaciona por la formula, masa = presion * volumen/ o.37 * (temperatura + 460).
Calcular el promedio de masa de aire de los neumaticos de (N) vehiculos que estan en composicion en servicio de alineamiento y balanceo.
Para eso la pantalla de inicio del formulario sera la siguiente:
la codificación en el boton imprimir resultado seria la siguiente :
click ala imagen para ver mejor ;)
Elabore un programa en visual que permita calcular el salario de un hobreo que labora en dicha empresa y que sigue las condiciones descritas a continuacion si el hombre trabaja 40 hrs o menos se le paga 20 pesos la hora, si trabaja mas de 40 horas se le paga 20 por cada una de las primeras 40 y 25 por cada hora extra.
bueno mi pantalla de inicio para este programa seria el siguiente:
En el boton calcular ingresaria los siguientes codigos:
en el boton borrar los siguientes:
la DH, es = A LA DIFERENCIA DE HORAS PROGRAMA EJECUTADO (F5)
LEER 20 Numeros e imprime cuantos son positivos, cuantos son negativos y cuantos son neutros, utiliza pseudocodigo.
Utilizare las siguientes variales las cuales seran igual ah :
CN = NEUTROS
CP= POSITIVOS Y
CNN = NEGATIVOS
ejercicio:
----------------------------------------
INICIO
CN=0
CP= 0
CNN= 0
entera,num
Hacerpara x=1 hasta 20
leer num
SI NUM = 0 ENTONCES
CN = CN+1
SINO
SI NUM >0 ENTONCES
CP= CP + 1
SINO
CNN= CNN+ 1
SINO
FINSI
FINSI
FINPARA
-------------------------------------------
la instruccion en visual " hacerpara" es For x = 1 to 20
leer num es NEXT X
----------0-------------
si num = o entonces vendria siendo = if conducion then
accion
else
accion
EndIF
Utilizare las siguientes variales las cuales seran igual ah :
CN = NEUTROS
CP= POSITIVOS Y
CNN = NEGATIVOS
ejercicio:
----------------------------------------
INICIO
CN=0
CP= 0
CNN= 0
entera,num
Hacerpara x=1 hasta 20
leer num
SI NUM = 0 ENTONCES
CN = CN+1
SINO
SI NUM >0 ENTONCES
CP= CP + 1
SINO
CNN= CNN+ 1
SINO
FINSI
FINSI
FINPARA
-------------------------------------------
la instruccion en visual " hacerpara" es For x = 1 to 20
leer num es NEXT X
----------0-------------
si num = o entonces vendria siendo = if conducion then
accion
else
accion
EndIF
Ciclos con numero de interacciones dado:
hacer para variable = limiteInferior hasta LimiteSuperior
acciones
:
:
finPara
acciones
:
:
finPara
Ciclo indeterminado:
Hacer mientras condicion
accion 1
accion 2
:
:
FinMientras
Repetir
accion 1
accion 2
:
:
HastaCondicion
Los pseudocodigos: son una representacion narrativa de los pasos que debe seguir un algoritmo para dar solucion a un problema determinado.
útiliza palabras que indican el proceso a realizar.
Instrucciones basicas en pseudocodigos :
Entrada :leer variable
Salida : Imprimir variable , desplegar variable
asiganción : variable= expresion
comienzo : inicio
y : instruciones
fin : fin
------------------------------------------------------
Condicionales:
si
instruciones
sino
instrucciones
finsi
-----0------
si condicion entonces
instrucciones
finsi
-------------------------------------------------------
segun(variable) hacer
caso1: accion 1
caso2:accion 2
caso3:accion 3
:
finSegun
hacer un programa que al ingresar un numero del 1 al 7, nos de el dia de la semana, para eso hare lo siguiente útilizare una etiqueta , 2 text y 2 comandbutonde tal manera que mi pantalla de inicio quede de la siguiente manera:
ingresare los siguientes codigos:
If Text1 = 1 Then
Text2 = " LUNES"
ElseIf Text1 = 2 Then
Text2 = " MARTES"
ElseIf Text1 = 3 Then
Text2 = " MIERCOLES"
ElseIf Text1 = 4 Then
Text2 = " JUEVES"
ElseIf Text1 = 5 Then
Text2 = " VIERNES"
ElseIf Text1 = 6 Then
Text2 = "SABADO"
ElseIf Text1 = 7 Then
Text2 = "DOMINGO"
endif
y procedere a ejecutar mi programa para ver los resultados de tal manera que quedaria asi:
Ver videotutorial:
haremos un ejercicio parecido ala practica 12, le pondremos negrita, cursiva y subrayado, solo que ahora agregaremos 3 opciones mas para cambiar el color del texto las que pondre
seran rojo, verde y azul, asi como su boton salir.
para hacer mi pantalla de inicio, utilizare:
3 etiquetas , 1 tex , 3 checkboxts y 3 optionbutton , asi como tambien 1 comandbutton
y las disparsire por mi formulario de tal manera que se muestre de la siguiente manera:
como veras en los check puse los estilos como el pasado y en los optionbutton el color que sera de la letra
nota por si lo olvidaste ( los nombres de los cuadros de verificacion se cambian en la opcion caption en la barra de propiedades)
ok bueno pondre los mismos codigos en check que el pasado para negrita, cursiva y subrayado es desir en
negrita:
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
End If
End Sub
en cursiva:
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontItalic = True
End If
en subrayado
Private Sub Check3_Click()
If Check1.Value = 1 Then
Text1.FontUnderline = True
End If
y en los siguientes para que me de el color utilizare option en ves check es desir:
ROJO:Private Sub Option1_Click()
If Option1.Value = True Then
Text1.ForeColor = vbRed
End If
End Sub
VERDE:
Private Sub Option2_Click()
If Option2.Value = True Then
Text1.ForeColor = vbGreen
End If
End Sub
AZUL:
Private Sub Option3_Click()
If Option3.Value = True Then
Text1.ForeColor = vbBlue
End If
End Sub
bueno ahora ejecutare el programa (f5) para ver que funcione correctamente de tal manera que me quedara de la siguiente manera:
ver videotutorial :
Hacer un programa que cuando escriba en el text me de la opcion de cambiarla a negrita, cursiva o subrayado.
bueno para esto mi pantalla del formulario seria la siguiente:
OK bueno utilize un text y 3 casillas de verificacion las cuales se conocen en la barra estandar con el nombre de checkbox.
introducire los siguientes codigos para que cuando escriba me de negrita, cursiva o subrayado como yo le pida.
de la siguiente manera:
------------------------------------------
ok como podras ver en el primer cuadro de verificacion tiene como nombre check1 (negrita)
check2 ( cursiva) y check3 (subrayado) asi como private sub comand1 que es end (Salir)
refiriendome al check1 (negrita) seria lo siguiente:
si check1.value es igual a 1
entonces text1, seria negrita...
tal como se mostrara en la siguiente imagen:
ala cual le apretare las 3 opciones : negrita , cursiva y subrayado
como veras no eh seleccionado ninguna casilla ,ahora con las casillas seleccionadas:
vemos que nos da negrita,cursiva y subrayado y bueno para ser mas a un bonito el trabajo .
Ver videotutorial