martes, 23 de febrero de 2010

P1E10 – Uso de textbox y formulas

Se te recomienda antes de hacer cualquier ejercicio leerlo completamente, al estarlo realizando anota todas las preguntas o dudas que te surjan para su aclaración en clase, asi como los elementos nuevos que descubras.

Recuerda que no se trata de copiar y pegar o de transcribir contenidos, ante todo es descubrir su operatividad y comprobar su funcionalidad.

Elaborar una aplicación que permita calcular el salario neto de un trabajador en función del número de horas trabajadas, pago por hora de trabajo y un descuento fijo al sueldo bruto del 20 por 100. Los cálculos a efectuar para obtener el salario neto de un trabajador se muestran a continuación:

SalarioBruto = HorasTrabajadas * PagoPorHora

Descuento = 0.2 * SalarioBruto

SalarioNeto = SalarioBruto - Descuento

El diseño de la interfaz debe ser similar a la figura mostrada:

clip_image002

Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:

2 marcos

6 etiquetas

6 cajas de texto

3 botones de comando

Una vez ubicados los controles, establezca las propiedades según se indica:

Form1

Nombre

frmSalarioNeto

BorderStyle

3-Fixed Dialog

Caption

Cálculo del salario neto

Moveable

False

StartUpPosition

2-CenterScreen

 

 Frame1

Nombre

fraIngreso

Caption

Ingreso de datos:

Frame2

Nombre

fraSalida

Caption

Salida de datos:

Label1

Nombre

lblApellidosNombres

AutoSize

True

Caption

Apellidos y nombres:

Label2

Nombre

lblHorasTrabajadas

AutoSize

True

Caption

Horas trabajadas:

Label3

Nombre

lblPagoPorHora

AutoSize

True

Caption

Pago por hora

Label4

Nombre

lblSalarioBruto

AutoSize

True

Caption

Salario bruto

Label5

Nombre

lblDescuento

AutoSize

True

Caption

Descuento

Label6

Nombre

lblSalarioNeto

AutoSize

True

Caption

Salario neto

Text1

Nombre

txtApellidosNombres

Text

 

Text2

Nombre

txtHorasTrabajadas

Text

 

Text3

Nombre

txtPagoPorHora

Text

 

Text4

Nombre

txtSalarioBruto

Text

 

Text5

Nombre

txtDescuento

Text

 

Text6

Nombre

txtSalarioNeto

Text

 

Command1

Nombre

cmdAceptar

Caption

&Aceptar

Command2

Nombre

cmdLimpiar

Caption

&Limpiar

Command3

Nombre

cmdSalir

Caption

&Salir

Luego de establecer las propiedades para los controles, debe añadir código a la aplicación. Para ello haga doble click sobre el botón Aceptar e ingrese el siguiente código:

Private Sub cmdAceptar_Click()

Dim intHorasTrabajadas As Integer, dblPagoPorHora As Double

Dim dblSalarioBruto As Double

Dim dblDescuento As Double

Dim dblSalarioNeto As Double

intHorasTrabajadas = Val(txtHorasTrabajadas.Text)

dblPagoPorHora = Val(txtPagoPorHora.Text)

dblSalarioBruto = intHorasTrabajadas * dblPagoPorHora

dblDescuento = 0.2 * dblSalarioBruto

dblSalarioNeto = dblSalarioBruto - dblDescuento

txtSalarioBruto.Text = Str(dblSalarioBruto)

txtDescuento.Text = Str(dblDescuento)

txtSalarioNeto.Text = Str(dblSalarioNeto)

End Sub

A continuación haga doble click sobre el botón Salir y añada el siguiente código:

Private Sub cmdSalir_Click()

End

End Sub

Guarde y luego ejecute la aplicación que acaba de crear. Pruebe ingresando diferentes valores.

Luego, haga doble click sobre el botón Limpiar y añada el siguiente código:

Private Sub cmdLimpiar_Click()

txtApellidosNombres.Text = “”

txtHorasTrabajadas.Text = “”

txtPagoPorHora.Text = “”

txtSalarioBruto.Text = “”

txtDescuento.Text = “”

txtSalarioNeto.Text = “”

txtApellidosNombres.SetFocus

End Sub

Guarde y ejecute su aplicación.

Anote sus observaciones en una hoja:

  • En el botón comando Limpiar aparece la línea: txtApellidosNombres.SetFocus, coloca la propiedad SetFocus en otro txt y describe que sucede.
  • Habiendo concluido el ejercicio. Señala aquellos elementos que consideras necesario se vuelvan a repasar.

P1E9 – Un sencillo editor

Este ejercicio tiene como objetivo revisar diferentes propiedades, valores y código de ejercicios anteriores; por eso es que solo se muestra la imagen de lo que puede ser el producto final.

image

Importante:

El primer control es un combo con los tipos de letra que el usuario puede elegir, los valores que aparezcan deben coincidir exactamente con los nombres de los tipos de letra.

El segundo control es un listbox con los diferentes valores de tamaño de letra.

Para los estilos de letra de negrita, cursiva y subrayado utiliza casillas de verificación (aunque en clases se vieron botones de opción) con estilo en graphical, para que puedas aplicar los tres estilos al mismo tiempo o bien, no aplicarlos.

Los frame de alineación y color es similar a los ejercicios anteriores.

El checkbox de minúsculas es similar a los ejercicios anteriores.

El textbox además de las propiedades ya vistas, se están aplicando las propiedades de Scrollbart y Multiline.

Para cualquier duda o aclaracion consultala en clase.

Créditos: lemm

P1E8 – Uso de ListBox

Para la realización de este ejercicio debes basarte en el video, en el cual se muestran los diferentes controles con las propiedades y valores que le corresponden a cada uno.

Debes además identificar el código que se incluye en cada uno de los controles para su correcto funcionamiento.

image

Recuerda que tanto el video como la imagen son solo una referencia de los elementos mínimos que debe contener al final tu formulario.

MsgBox es una instrucción y/o función que en su momento se revisará a detalle.

No dudes en consultar a tu profesor o con tus compañeros para cualquier duda o aclaración.

Créditos: lemm

jueves, 18 de febrero de 2010

P1E7 – Image + ScrollBar

Este ejercicio implica el uso del Scrollbar y el control Image.

La tarea es redimensionar (modificar ancho y alto) la imagen conforme se hace clic en los scrollbar.

 

Pasos para la construcción de éste formulario:

1. Coloca las propiedades que correspondan al formulario, junto con sus valores.

2. Arrastra ahora un Control Image con las siguientes propiedades (los valores pueden variar de acuerdo a tu diseño):

Nombre imgFlores (prefijo img)
BorderStyle FixedSingle
Stretch True (ajusta la imagen al tamaño del control Image)
Picture La imagen que elijas
Left 0
Top 0
Width 720 (el valor depende de tu imagen)
Height 720 (el valor depende de tu imagen)

Esta puede ser la primera imagen, con el avance hasta aquí:

image

3. Procedemos ahora a colocar los Scrollbar con sus valores correspondientes de: Nombre, Min, Max, LargeChange, SmallChange.

image

Recuerda que en ambos casos los valores de Min deben corresponder con los valores iniciales del Control Image.

Para el caso los valores de Max no deben exceder el área negra.

El producto final podría apreciarse:

image image

 
 
image

Es importante que los valores máximos de Scrollbar impidan la deformación final de la imagen.

Es muy importante los valores que asignes a SmallChange y LargeChange, puedes utilizar 10 y 100 respectivamente.

Para  cualquier duda no dudes en consultarlo.

Créditos: lemm

miércoles, 17 de febrero de 2010

P1E6 – Tablas de multiplicar

Este ejercicio consiste en la realización de tablas de multiplicar utilizando el control scrollbar.

 

Recordar que para las tablas de multiplicar se utiliza:

  • Multiplicando: el cual puede tomar valores de 1..16
  • Multiplicador: el cual puede tomar valores de 1..10

 

La imagen siguiente puede ser una referencia:

image

Tu deberás utilizar las propiedades que consideres conveniente para cada uno de los controles utilizados, además de incluir el código correspondiente.

 

Créditos: lemm

P1E5 – Convertir ºC a ºF

Este ejercicio consiste en realizar la conversión de grados Centígrados a grados Fahrenheit, valiéndonos del uso de una barra de desplazamiento vertical y sus propiedades.

 

Para su realización: un formulario, dos etiquetas, dos cuadros de texto, una barra de desplazamiento vertical, con sus propiedades y valores.

 

Esta es una imagen del formulario toda vez terminado:

image

 

Para su realización revisa el video y crea  una tabla en un archivo de Word, la cual contiene tres columnas:

Control

Propiedad

Valor

     
     

 

Al final deberás incluir también el código que corresponda para cada control.

 

Toda vez que haz revisado el video y creado la tabla, deberás crear el formulario.

 

Para cualquier duda o aclaración, no dudes en consultarla en clase con tus compañeros o tu profesor.

 

Creditos: lemm

martes, 16 de febrero de 2010

P1E4 – Casilla de verificación

En este ejercicio revisaras el funcionamiento de las casillas de verificación, además de repasar los botones de opción.

 

La siguiente imagen es una referencia de como podría quedar tu formulario, ya que la distribución, tamaño  y colores puedes personalizarlos cuidando siempre la estética.

image

 

Controles a utilizar:

Un formulario al cual deberas aplicar las propiedades de: nombre, caption, maxbutton, minbutton, moveable, startupposition, icono* y backcolor.

*Para esta propiedad busca en la computadora o en internet archivos con extensión -ico- (*.ico), cópialos a tu carpeta donde tienes los formularios y aplica la propiedad.

 

Para el letrero puedes utilizar una etiqueta o un cuadro de texto, las propiedades a utilizar considerando que es un cuadro de texto: nombre, text, alignment, font, backcolor, forecolor, locked.

 

El frame de –alinear texto- utiliza las propiedades de nombre, caption y backcolor.

 

Las propiedades de los botones de opción del frame: nombre, caption, backcolor  y value.

 

Las propiedades de las casillas de verificación son: nombre, caption, font y backcolor.

 

Para la codificación:

Para los botones de opción. Es importante considerar que la alineación de un textbox puede ser:

0. Left Justify

1. Right Justify

2. Center

 

Por lo tanto, el código para el botón de opción para alinear al centro podría ser:

txtMensaje.Alignment = 2

Se pone el numero que corresponda a la alineación deseada (en este caso Center), NO el texto.

 

Para la casilla de verificación de Minusculas, dicho código se encuentra en el ejercicio anterior.

 

Para las casillas de verificacion de negrita, itálica y subrayada se deben considerar las propiedades de Fontbold, FontItalic y FontUderline. Por lo tanto si queremos poner en negrita el contenido del textbox, el código para el checkbox podría ser:

txtMensaje.FontBold = True

 

Y si queremos quitar negrita al contenido del textbox, el código para el mismo checkbox podría ser:

txtMensaje.FontBold = False

 

El código completo para el checkbox de negrita podría quedar:

Private Sub chkNegrita_Click()
    If chkNegrita.Value = vbChecked Then
        txtMensaje.FontBold = True
    Else
        txtMensaje.FontBold = False
    End If
End Sub

 

No olvides consultar a tu maestro para dudas sobre la conclusión total del ejercicio.

 

IMPORTANTE: para la asignación de los nombre es imperativo utilizar los prefijos correspondientes.

 

Créditos: lemm

lunes, 15 de febrero de 2010

P1E3 – Botón de opción

El objetivo de este ejercicio es identificar las principales propiedades de los botones de opción y de los frame.

Lo que hace…

El frame de tamaño de letra al seleccionarlo aplica al mensaje del textbox, y el frame de color aplica al mismo textbox.

El checkbox cambia a minúscula el contenido del textbox cuando éste es seleccionado.

Para su realización toma de referencia la siguiente imagen:

image

 

Controles y sus propiedades

Formulario

Nombre frmBotonOpcion
Caption Uso de botón de opción
Backcolor &H00FFC0C0&
MaxButton False
MinButton False
StartUpPosition CenterScreen
Moveable False

Cuadro de Texto

Nombre txtMensaje
Alignment Center
Backcolor &H00000000&
Forecolor &H000000FF&
Locked True
Text CBTis 262

Frame Uno

Nombre fraTamano
Caption Tamano de Letra

Frame Dos

Nombre fraColor
Caption Color de Letra

Botones de opcion para Frame Uno

Nombre optChico
Caption Chico
Value True
   
Nombre optMediano
Caption Mediano
   
Nombre optGrande
Caption Grande

Código para cada botón de opción:

Private Sub optChico_Click()
    txtMensaje.FontSize = 12
End Sub

Private Sub optGrande_Click()
    txtMensaje.FontSize = 36
End Sub

Private Sub optMEdiano_Click()
    txtMensaje.FontSize = 24
End Sub

Botones de opcion para Frame Dos

Nombre optRojo
Caption Rojo
Value True
Forecolor &H000000FF&
BackColor &H00FFC0C0&
   
Nombre optAmarillo
Caption Amarillo
Forecolor &H0000FFFF&
BackColor &H00FFC0C0&
   
Nombre optAzul
Caption Azul
Forecolor &H00FF0000&
BackColor &H00FFC0C0&

Código para cada botón de opción del Frame dos:

Private Sub optAmarillo_Click()
    txtMensaje.ForeColor = vbYellow
End Sub

Private Sub optAzul_Click()
    txtMensaje.ForeColor = vbBlue
End Sub

Private Sub optRojo_Click()
    txtMensaje.ForeColor = vbRed
End Sub

Casilla de verificacion

Nombre chkMinuscula
Caption Minuscula
Forecolor  
Value Unchecked

Código de la casilla de verificación:

Private Sub chkMinuscula_Click()
    If chkMinuscula.Value = vbChecked Then
        'LCase - funcion que convierte a minuscula
        txtMensaje.Text = LCase(txtMensaje.Text)
    Else
        'UCase - funcion que convierte a mayuscula
        txtMensaje.Text = UCase(txtMensaje.Text)
    End If
End Sub

 

Para cualquier duda o aclaración no dudes en consultarlo en clase.

 

Recuerda que estos ejercicios son básicos y deben ser entendidos y comprendidos en su totalidad. Hacerlos bien garantiza el éxito en ejercicios posteriores.

Créditos: lemm

P1E2 – Calculadora aritmética

Este ejercicio consiste en la realización de una calculadora aritmética, para lo cual tomaras como referencia inicial la hoja con los controles, sus propiedades y valores que se te dio en clase.

La siguiente imagen te puede dar una referencia de como debe quedar al final el formulario.

image

Controles utilizados:

  • Dos cuados de texto
  • Una línea
  • Una etiqueta para mostrar el resultado
  • Una etiqueta para visualizar el tipo de operación que se realizó
  • Cinco botones comando

Al hacer clic en los botones comando se efectúa la operación correspondiente, además aparece en la etiqueta y con letra el tipo de operación que se efectúa.

La tarea del botón comando C, corresponde a la limpieza de los controles, el cual también deberá operar mediante la tecla de ESC.

miércoles, 10 de febrero de 2010

P1E1: Subir - bajar

El objetivo de este primer ejercicio es conocer la manera en como se programa en VB 6.0, además de comenzar a identificar las propiedades básicas de un formulario, etiqueta y botón comando.

Para su realización deberás primero revisar el video para crear inicialmente una tabla en un archivo en Word, la cual contiene tres columnas:

Control

Propiedad

Valor

     
     
 
Al final deberás incluir también el código que corresponda para cada control.
 
Toda vez que haz revisado el video y creado la tabla, deberás realizar esta primera aplicación grabándola en tu memoria, considerando la creación de carpetas y respetando los nombres asignados.
 
La siguiente imagen es una referencia de como puede visualizarse, debes tomar en cuenta la modificación que se realizo en clase para habilitar-inhabilitar botones.
image
 
Para cualquier duda o aclaración, no dudes en consultarla en clase con tus compañeros o tu profesor.
 

martes, 9 de febrero de 2010

Descripción del entorno de Visual Basic 6.0


También puedes visualizar el video en esta dirección.

Toda vez que haz revisado el video, deberás contestar las preguntas que se te dieron en clase.

lunes, 8 de febrero de 2010

P1E10 – Uso de textbox

Se te recomienda antes de hacer cualquier ejercicio leerlo completamente, al estarlo realizando anota todas las preguntas o dudas que te surjan para su aclaración en clase, asi como los elementos nuevos que descubras.

Recuerda que no se trata de copiar y pegar o de transcribir contenidos, ante todo es descubrir su operatividad y comprobar su funcionalidad.

Elaborar una aplicación que permita calcular el salario neto de un trabajador en función del número de horas trabajadas, pago por hora de trabajo y un descuento fijo al sueldo bruto del 20 por 100. Los cálculos a efectuar para obtener el salario neto de un trabajador se muestran a continuación:

SalarioBruto = HorasTrabajadas * PagoPorHora

Descuento = 0.2 * SalarioBruto

SalarioNeto = SalarioBruto - Descuento

El diseño de la interfaz debe ser similar a la figura mostrada:

clip_image002

Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:

2 marcos

6 etiquetas

6 cajas de texto

3 botones de comando

Una vez ubicados los controles, establezca las propiedades según se indica:

Form1

Nombre

frmSalarioNeto

BorderStyle

3-Fixed Dialog

Caption

Cálculo del salario neto

Moveable

False

StartUpPosition

2-CenterScreen

 

 Frame1

Nombre

fraIngreso

Caption

Ingreso de datos:

Frame2

Nombre

fraSalida

Caption

Salida de datos:

Label1

Nombre

lblApellidosNombres

AutoSize

True

Caption

Apellidos y nombres:

Label2

Nombre

lblHorasTrabajadas

AutoSize

True

Caption

Horas trabajadas:

Label3

Nombre

lblPagoPorHora

AutoSize

True

Caption

Pago por hora

Label4

Nombre

lblSalarioBruto

AutoSize

True

Caption

Salario bruto

Label5

Nombre

lblDescuento

AutoSize

True

Caption

Descuento

Label6

Nombre

lblSalarioNeto

AutoSize

True

Caption

Salario neto

Text1

Nombre

txtApellidosNombres

Text

 

Text2

Nombre

txtHorasTrabajadas

Text

 

Text3

Nombre

txtPagoPorHora

Text

 

Text4

Nombre

txtSalarioBruto

Text

 

Text5

Nombre

txtDescuento

Text

 

Text6

Nombre

txtSalarioNeto

Text

 

Command1

Nombre

cmdAceptar

Caption

&Aceptar

Command2

Nombre

cmdLimpiar

Caption

&Limpiar

Command3

Nombre

cmdSalir

Caption

&Salir

Luego de establecer las propiedades para los controles, debe añadir código a la aplicación. Para ello haga doble click sobre el botón Aceptar e ingrese el siguiente código:

Private Sub cmdAceptar_Click()

Dim intHorasTrabajadas As Integer, dblPagoPorHora As Double

Dim dblSalarioBruto As Double

Dim dblDescuento As Double

Dim dblSalarioNeto As Double

intHorasTrabajadas = Val(txtHorasTrabajadas.Text)

dblPagoPorHora = Val(txtPagoPorHora.Text)

dblSalarioBruto = intHorasTrabajadas * dblPagoPorHora

dblDescuento = 0.2 * dblSalarioBruto

dblSalarioNeto = dblSalarioBruto - dblDescuento

txtSalarioBruto.Text = Str(dblSalarioBruto)

txtDescuento.Text = Str(dblDescuento)

txtSalarioNeto.Text = Str(dblSalarioNeto)

End Sub

A continuación haga doble click sobre el botón Salir y añada el siguiente código:

Private Sub cmdSalir_Click()

End

End Sub

Guarde y luego ejecute la aplicación que acaba de crear. Pruebe ingresando diferentes valores.

Luego, haga doble click sobre el botón Limpiar y añada el siguiente código:

Private Sub cmdLimpiar_Click()

txtApellidosNombres.Text = “”

txtHorasTrabajadas.Text = “”

txtPagoPorHora.Text = “”

txtSalarioBruto.Text = “”

txtDescuento.Text = “”

txtSalarioNeto.Text = “”

txtApellidosNombres.SetFocus

End Sub

Guarde y ejecute su aplicación.

Anote sus observaciones en una hoja:

  • En el botón comando Limpiar aparece la línea: txtApellidosNombres.SetFocus, coloca la propiedad SetFocus en otro txt y describe que sucede.
  • Habiendo concluido el ejercicio. Señala aquellos elementos que consideras necesario se vuelvan a repasar.