Procedimientos de usuario

 

Click en la imagen para ver la clase

Funciones de usuario

 

Click en la imagen para ver el tema

ejemplo de funciones de usuarios

Function Porcentaje(arg1_Valor As Currency, arg2_Porcentaje As Currency) As Currency

    Porcentaje = arg1_Valor * arg2_Porcentaje / 100

End Function

 

Function ValiCodigo(Codigo As String) As Boolean

  Dim Zona As String, CalendarioE As String, NroMatricula As Integer

  Dim Descuento As Currency, VlrMatricula As Currency, NetoP As Currency

 

  If Not Len(Codigo) = 5 Then

    MsgBox "El código debe ser de 5 caracteres", vbInformation, "Error"

    ValiCodigo = False

    Exit Function

  End If

 

  Zona = UCase(Left(Codigo, 1))

 

  Select Case Zona

    Case "N", "C", "S"

       MsgBox "LA ES zona CORRECTA!", vbInformation, "OK"

    Case Else

      MsgBox "Primer caracter debe ser N, C ó S", vbInformation, "Error"

      ValiCodigo = False

      Exit Function

  End Select

 

 

  CalendarioE = UCase(Mid(Codigo, 2, 1))

  Select Case CalendarioE

    Case "A", "B"

       MsgBox "Estudiante de calendario A Ó B", vbInformation, "OK"

    Case Else

      MsgBox "EL segundo caracter debe ser A ó B", vbInformation, "Error"

      ValiCodigo = False

      Exit Function

  End Select

 

  If IsNumeric(Right(Codigo, 3)) Then

    ValiCodigo = True

  Else

    MsgBox "Los 3 ultimos caracteres deben ser nros", vbInformation, "Error"

    ValiCodigo = False

    Exit Function

  End If

End Function

 

Private Sub CommandButton1_Click()

  TextBox3 = Porcentaje(Val(TextBox1), Val(TextBox2))

  If ValiCodigo(TextBox4) Then

    MsgBox "Código Correcto!!", vbExclamation, "OK"

  Else

    MsgBox "Error en el Código !!", vbCritical, "ERROR"

  End If

End Sub

Funciones de Visual Basic - Taller

Click en la imagen para ver el tema y el taller

Código del Botón Aceptar

Private Sub CommandButton1_Click()

  Dim Zona As String, CalendarioE As String, NroMatricula As Integer

  Dim Descuento As Currency, VlrMatricula As Currency, NetoP As Currency

  

  If Not Len(TextBox1) = 5 Then

    MsgBox "El código debe ser de 5 caracteres", vbInformation, "Error"

    Exit Sub

  End If

  

  Zona = UCase(Left(TextBox1, 1))

  

  Select Case Zona

    Case "N"

       MsgBox "Estudiante de zona Norte!", vbInformation, "OK"

    Case "C"

       MsgBox "Estudiante de Centro Norte!", vbInformation, "OK"

    Case "S"

       MsgBox "Estudiante de Sur Norte!", vbInformation, "OK"

    Case Else

      MsgBox "Primer caracter debe ser N, C ó S", vbInformation, "Error"

      Exit Sub

  End Select

  

  CalendarioE = UCase(Mid(TextBox1, 2, 1))

  

  Select Case CalendarioE

    Case "A"

       MsgBox "Estudiante de calendario A!", vbInformation, "OK"

    Case "B"

       MsgBox "Estudiante de Calendario B!", vbInformation, "OK"

    Case Else

      MsgBox "EL segundo caracter debe ser A ó B", vbInformation, "Error"

      Exit Sub

  End Select

  

  If IsNumeric(Right(TextBox1, 3)) Then

    NroMatricula = Right(TextBox1, 3)

  Else

    MsgBox "Los 3 ultimos caracteres deben ser nros", vbInformation, "Error"

    Exit Sub

  End If

  

  If Not IsNumeric(TextBox3) Then

    MsgBox "El valor matricula debe ser un numero", vbExclamation, "ERROR"

    Exit Sub

  End If

  

  '==================================================

  'programar descuento y el neto a pagar

 '==================================================

  

  

  

End Sub

Plan de trabajo III Periiodo

Funciones de Visual Basic

Click en la imagen para ver el tema

Ciclos o Bucles

Click en la imagen para ver el tema

Trabajar con Vídeo

Click en la imagen para ver el tema

Trabajo 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

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

Segunda entrega Software didáctico

Para la segunda entrega debe funcionar: 
1.  MouseMove(movimientos del mouse) .
2.  Click()(clic sobre un objeto).
3.  UserForm_Initialize()(Al iniciar el formulario).
4.  UserForm_QueryClose(Al cerrar el formulario).
5.  UserForm_Activate (Cuando se activa el formulario).

Diseño de Software Didáctico.

Inicia primera fase de diseño de software didáctico.

Lista de grupos de estudiantes y temática a desarrollar:

GRUPO	NOMBRES	TEMÁTICA
1	MARIA DEL ROSARIO ZAMORA Y MICHELLE CERRO	VOCAL A
2	MARIA EUGENIA BAENA Y VALERIA QUINTERO	VOCAL E
3	BRISA DE LOS ANGELES ZAMORA Y ORIANA GOMEZ	VOCAL I
4	MARIA CAMILA ARREDONDO Y SOFIA COGOLLO	VOCAL O
5	MARIA CAMILA GOMEZ Y ISABELLA GIRALDO	VOCAL U
6	ISABELLA DORIA Y MARIA CAMILA MARTELO	LETRAS M-P
7	DIANA MEDINA Y ISABELLA OSORIO	LETRAS S-L
8	LAURA PALACIO GIL Y SHERYL MACAIZA	LETRAS N-D
9	VALENTINA REYES Y LUISA PAREJA	LETRAS T-K
10	ISABELLA TABORDA Y GABRIELA GUARDO	LETRAS F-C
11	MARIA CRISTINA JIMENEZ Y KATLYN MENCO	LETRAS H-B
12	MONICA BERNAL	LETRAS V-X
13	BRIANA MENDOZA Y MARIA ALEJANDRA MONTENEGRO	LETRAS J-Q
14	GABRIELA GUERRERO Y MARIA VIRGINIA ORTA	LETRAS Z-W
15	ISABEL RAMIREZ Y LUISA ARCILA	COMBINACION PL-PR
16	ANA GABRIELA RUIZ Y ADRIANA BORELLI	COMBINACION CR-CL
17	ISABELLA GUTIERREZ Y ISABEL FERNANDEZ	COMBINACION BL-BR
18	ALEXANDRA RAMOS Y VALERIA JACOME	COMBINACION GR-GL
19	CLAUDIA JARAMILLO Y MARIA FERNANDA RICO	LETRA G-L
20	NICOLE TIRADO Y PAULA MARRUGO	COMBINACION TR-TL

Tenga en cuenta:
El software debe tener:
1. Inicio con la información del tema a tratar y el nombre de las programadoras.
2. Menú que indique los temas a tratar.
3. Manejo de imágenes.
4. Audio.
5. Vídeos.
6.  Actividad lúdica (Juego u otra actividad)
7.  Debe tener mínimo 5 formularios.

Entorno del lenguaje de programación

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 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