Análisis de software - capturas, procesos y cálculos

 

Combinar los objetos OptionButton y ChecBox

 

Desarrollo del Taller anterior:

Código:

Private Sub CommandButton1_Click()

  Dim VBolsa As Currency, CantBolsas As Integer, Boni As Currency

  Dim PagoProduccion As Currency, NetoPagar As Currency

 

  If IsNumeric(TextBox2) Then

    CantBolsas = Val(TextBox2)

  Else

    MsgBox "La cantidad de bolsas debe ser un numero!", vbExclamation, "Error"

    Exit Sub

  End If

 

  If OptionButton1.Value = True Then

    VBolsa = 50

  ElseIf OptionButton2.Value = True Then

    VBolsa = 150

  ElseIf OptionButton3.Value = True Then

    VBolsa = 200

  Else

    MsgBox "Debe seleccionar el tipo de Bolsa!!", vbExclamation, "Error"

    Exit Sub

  End If

 

  TextBox3 = VBolsa

  PagoProduccion = CantBolsas * VBolsa

  TextBox4 = PagoProduccion

 

  If CheckBox1.Value = True Then

    If OptionButton5.Value = True Then

      Boni = PagoProduccion * 10 / 100

    ElseIf OptionButton6.Value = True Then

      Boni = PagoProduccion * 20 / 100

    Else

      MsgBox "Debe seleccionar el tipo de empleado!!", vbExclamation, "Error"

      Exit Sub

    End If

  Else

    Boni = 0

  End If

 

  TextBox5 = Boni

  NetoPagar = PagoProduccion + Boni

  TextBox6 = NetoPagar

End Sub

OptionButton y ChecBox

 

El siguiente programa captura el Nombre del Vendedor y el Valor Venta.

El programa debe calcular:

El descuento, el cual es opcional y depende si la casilla de verificación esta activa o no.

Neto a Pagar: es la resta de Valor Venta menos Descuento.

Comisión: se asigna dependiendo si es Nuevo 10% del Valor Venta, Antiguo 20% del Valor Venta. 

 Todo esto ocurre al dar click en el botón Aceptar.

Private Sub CommandButton1_Click()

  Dim VALORVENTA As Currency, NETOP As Currency, DESCUENTO As Currency, COMI As Currency

 

  If IsNumeric(TextBox2) Then

    VALORVENTA = Val(TextBox2)

  Else

    MsgBox "El valor venta debe ser numerico!!", vbCritical, "Error"

    Exit Sub

  End If

  If CheckBox1.Value = True Then

    DESCUENTO = VALORVENTA * 10 / 100

  Else

    DESCUENTO = 0

  End If

  NETOP = VALORVENTA - DESCUENTO

  TextBox3 = DESCUENTO

  TextBox4 = NETOP

  If OptionButton1.Value = True Then

    COMI = VALORVENTA * 10 / 100

  ElseIf OptionButton2.Value = True Then

    COMI = VALORVENTA * 20 / 100

  Else

    MsgBox "Debe seleccionar el tipo de empleado!!", vbInformation, "Error"

    Exit Sub

  End If

  TextBox5 = COMI

End Sub

Funciones de Visual Basic

Click en la imagen para ver el tema

Funciones de Visual Basic

Click en la imagen para ver el tema

Plan de trabajo III Periodo

Desarrollo de software didáctico - Codificación

Desarrollo de software didáctico - Diseño

Trabajar con Vídeos

Click en la imagen para ver el tema

Trabajar con audio

Realice el siguiente diseño de FORM

copie el siguiente código y ejecute. tenga en cuanta las observaciones

'Este código se escribe al comienzo
Option Explicit
'Función Api mciExecute para reproducir los archivos de música
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long


' Tenga en cuenta:
' Los archivos de sonido MP3 deben estar grabados en la misma carpeta del proyecto o no se podrán escuchar en el programa.

' mciExecute "play " + .Path + "\Gallina.mp3"
' Este código ejecuta el sonido Gallina.mp3
' que debe estar en la misma carpeta del proyecto.

' LAS CARPETAS Y NOMBRES DE ARCHIVOS NO DEBEN TENER ESPACIOS 


' mciExecute "Close All"
' Este código cierra algún sonido que este activo.

Private Sub ListBox1_Click()
   Select Case ListBox1.ListIndex
     Case 0
      With ActiveWorkbook
        mciExecute "Close All"
        mciExecute "play " + .Path + "\Caballo.mp3"
        Image5.Picture = LoadPicture(.Path + "\Caballo.jpg")
        Label1 = "EXPLICAR EL TEMA CABALLO"
      End With
     Case 1
       With ActiveWorkbook
        mciExecute "Close All"
        mciExecute "play " + .Path + "\Cabra.mp3"
        Image5.Picture = LoadPicture(.Path + "\Cabra.jpg")
        Label1 = "EXPLICAR EL TEMA Cabra"
      End With
     Case 2
        With ActiveWorkbook
        mciExecute "Close All"
        mciExecute "play " + .Path + "\Conejo.mp3"
        Image5.Picture = LoadPicture(.Path + "\Conejo.jpg")
        Label1 = "EXPLICAR EL TEMA Conejo"
      End With
     Case 3
       With ActiveWorkbook
        mciExecute "Close All"
        mciExecute "play " + .Path + "\Gallina.mp3"
        Image5.Picture = LoadPicture(.Path + "\Gallina.jpg")
        Label1 = "EXPLICAR EL TEMA Gallina"
      End With
   End Select
End Sub

Private Sub UserForm_Initialize()
  With ActiveWorkbook
      Image1.Picture = LoadPicture(.Path + "\Caballo.jpg")
      Image2.Picture = LoadPicture(.Path + "\Cabra.jpg")
      Image3.Picture = LoadPicture(.Path + "\Conejo.jpg")
      Image4.Picture = LoadPicture(.Path + "\Gallina.jpg")
      
      ListBox1.AddItem "Caballo"
      ListBox1.AddItem "Cabra"
      ListBox1.AddItem "Conejo"
      ListBox1.AddItem "Gallina"
 End With
End Sub

' Es importante este código para que al momento de cerrar
' el formulario no continué el sonido
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  With ActiveWorkbook
      mciExecute "Close All"
 End With
End Sub

Objeto Image y Eventos MouseMove y Click

Clic en la imagen para ver el tema

Plan de trabajo II Periodo

Clic en la imagen para ver el tema

Taller plataforma Zoom

V.J.E.
Formación en valor: Escucha.
Núcleo Integrador: Taller plataforma Zoom
Desempeño esperado: conocer y aplicar la plataforma Zoom.


Taller:
Clic para ver Taller Plataforma Zoom

Talleres Virtuales

V.J.E.

Formación en valor: Escucha.

Núcleo Integrador: Talleres Virtuales.

Desempeño esperado: apropiación de los conceptos desarrollados en clase.

Taller:

Desarrollar un programa que permita explicar un tema utilizando el objeto IMAGE y con el evento MOUSEMOVE, que muestre una imagen del tema señalado y una explicación en un LABEL.

Clic para ver  Taller MoverMouse e Imagenes 

Fecha de entrega: Máximo viernes 27 de marzo.

Enviar en un solo correo los  archivos, al correo: betpadi@gmail.com

Asunto al enviar el correo: 10A-Apellido Nombre-MoveMouse

Tenga en cuenta que debe enviar todos los archivos de imágenes también con la hoja de calculo. (Se les aconseja comprimir la carpeta del programa y enviar el archivo comprimido).

Nombre del archivo comprimido:

10A-Apellido Nombre-MoveMouse

NOTA: se les agradece incorporar la nota de autoevaluación, para lo cual tenga en cuenta lo siguiente:

1. Actitud de escucha (a usted se le ha llamado la atención por interrumpir la clase).

2. Aseo: ¿su espacio de trabajo (Sala de sistemas, salón de clases) lo ha mantenido limpio?

3. Orden: ha mantenido su puesto de trabajo (Sala de sistemas, salón de clases), el desplazamiento a la sala de sistemas.

4. ¿Se le ha llamado la atención por alguna razón?

Ingresos de datos y Condicionales.

Desarrolle el siguiente programa:

Permite capturar: Nombre, Tipo Bolsas (G= Grande, M= Mediana, P=Pequeña), Cantidad de Bolsas.

Calcular al dar CLic en el botón Aceptar:

Valor de la Bolsa: Grade = 500, Mediana=300 y Pequeña=100.

Valor Producción = multiplicar Valor Bolsa por la cantidad de Bolsas.

Diseño del Programa:

Botón Aceptar

Private Sub CommandButton1_Click()

  Dim TipoB As String, CBolsas As Currency, _

      ValorB As Currency, VProduccion As Currency

  TipoB = TextBox2

  Select Case TipoB

    Case "G", "g"

      ValorB = 500

    Case "M", "m"

      ValorB = 300

    Case "P", "p"

      ValorB = 100

    Case Else

      MsgBox "Error, escriba G, M,P", vbCritical, "Mi Programa"

      TextBox2.SetFocus

      Exit Sub

  End Select

  CBolsas = Val(TextBox3)

  VProduccion = CBolsas * ValorB

  

  TextBox4 = ValorB

  TextBox5 = VProduccion

End Sub

Botón Continuar

Private Sub CommandButton2_Click()

  TextBox1 = ""

  TextBox2 = ""

  TextBox3 = ""

  TextBox4 = ""

  TextBox5 = ""

  TextBox1.SetFocus

End Sub

Botón Cerrar

Private Sub CommandButton3_Click()

  If MsgBox("Desea Cerrar el programa", vbYesNo, "Mi Programa") = vbYes Then

    End

  End If

End Sub

Entorno de Visual Basc

Tenga en cuenta:

1. Entrar a Visual Basic, siga los siguientes pasos:

3. Agregar un formulario

  

Aparece la siguiente Ventana: Tenga en cuenta lo siguiente:

En el explorador de proyectos encontramos:

En la ventana Propiedades encontramos:

Diseñe el siguiente formulario, teniendo en cuenta lo explicado anteriormente:

Ventana de código F7

Para retornar al formulario presione Shif F7 o clic en el botón formulario de la ventana explorador de proyectos.

Conceptos Básicos de Programación.

Lengua de programación: Serie de órdenes por lo general del idioma inglés, las cuales se encuentran en un orden lógico.
Ejemplo:
El programa siguiente calcula el subsidio  de transporte de un empleado, al cual se le da solo a los empleados que tienen un salario en menor o igual a 1.200.000 y es de $75.000.
Tenga en cuenta:
DIM: Instrucción que permite crear un espacio de memoria con nombre (Variables o constantes),  en las cuales se almacenan diferente información.
IF  - ELSE – ENDIF: Instrucción que permite evaluar una condición y devuelve un valor de verdad (Falso o Verdadero), La condición del IF si es verdadera se ejecutan las siguientes instrucciones, al ser FALSA, pasa de forma inmediata a la instrucción ELSE.
DIM Salario as Currency, Transp as Currency, Transporte as Currency, NetoPagar as Currency
Transp=75000
Salario=1000000
IF  Salario<=1200000 THEN
  Transporte= Transp
ELSE
  Transporte= 0
ENDIF
NetoPagar = Salario + Transporte
Explicación:
El programa siguiente calcula el subsidio  de transporte de un empleado, al cual se le da solo a los empleados que tienen un salario en menor o igual a 1.200.000 y es de $75.000.

VARIABLE: Espacio de memoria con nombre que permite almacenar información de un tipo de dato especifico, el cual cambia en el transcurso del programa.

CONSTANTE: Espacio de memoria con nombre que permite almacenar información de un tipo de dato especifico, el cual permanece fijo en el transcurso del programa.
Operadores

Operador Lógico AND			Operador Lógico OR
Evalúa dos condiciones y devuelve un valor de verdad (Falso o Verdadero), se aplica la siguiente Tabla de verdad			Evalúa dos condiciones y devuelve un valor de verdad (Falso o Verdadero), se aplica la siguiente Tabla de verdad
COND1	COND2	RESULTADO	COND1	COND2	RESULTADO
V	V	V	V	V	V
V	F	F	V	F	V
F	V	F	F	V	V
F	F	F	F	F	F

Operador Lógico NOT
Niega un expresión
COND1	RESULTADO
V	F
F	V

Operador de Relación
Se utilizan para relacionar dos valores y devolver un valor de Vedad
Nombre	Símbolo
<	Menor Que
>	Mayor Que
<=	Menor Igual
>=	Mayor Igual
=	Igual
<>	Diferente

Operador Matemáticos
Se utilizan para relacionar operaciones matemáticas en Visual Basic
Simbolo	Nombre
/	División
*	Multiplicación
+	Suma
-	Resta
MOD	Modulo o residuo

Ejemplo para utilizar operadores de relación y operadores lógicos
Programa que capture tres numero he informar cual es el mayor de los tres.
N1=10
N2=20
N3=30
IF (N1 > N2 ) AND (N1 > N3) THEN
  MSGBOX “El mayor es N1”
ELSEIF  (N2 > N1 ) AND (N2 > N3) THEN
  MSGBOX “El mayor es N2”
ELSEIF  (N3 > N1 ) AND (N3 > N2) THEN
  MSGBOX “El mayor es N3”
ELSE
  MSGBOX “Son Iguales”
ENDIF