Sistema APA (Online)

Otras opciones:

https://www.refme.com/i/

ROL PARA CREAR PÁGINAS WEB (BLOG)

Momindum Studio

Momindum Studio, de aspecto similar a un editor de vídeos, sirve para crear presentaciones con las que divulgar tus ponencias o tutoriales.  Su funcionamiento es muy simple: importas el vídeo de tu presentación y añades diapositivas, imágenes o enlaces web en los momentos que indiques.

Momindum Studio creará una página web que puede ser presentada de forma esquemática y con palabras clave.    Las opciones de exportación de Momindum Studio te permitirán desde diseñar un CD-ROM con los contenidos hasta preparar un podcast por episodios, para que tus conocimientos lleguen al mayor público posible.

Momindum Studio soporta los siguientes formatos

AVI, WMV, WMA, MP3, PPT, PDF, JPG

Nota sobre Momindum Studio

El programa requiere registrarse en su página web

CREATIVIDAD + IDEAS + INNOVACIÓN

VIDEO #1





VIDEO #2



VIDEO #3

El Genio de la Creatividad

Video #1






Video #2

El Rap de la Educación

Estructura de Decisión - 1° Parte

Estucturas de Decisión en Excel

1° PARTE

Ejemplo Nota: 

Desplegar la palabra "APROBADO" o "NO APROBADO".   
El estudiante gana el curso con 60 pts.
 

Excel en español      SI
 

=SI(A2>=60, "APROBADO", "NO APROBADO")

Excel en inglés         IF

=IF(A2>=60, "APROBADO", "NO APROBADO")

Código Número a Letra

Código Número a Letra >>>  VB + Excel

Function CONVIERTENUMLETRA(NUMERO)
Dim TEXTO
Dim MILLONES
Dim MILES
Dim CIENTOS
Dim DECIMALES
Dim CADENA
Dim CADMILLONES
Dim CADMILES
Dim CADCIENTOS
TEXTO = NUMERO
If TEXTO = "0" Then

 CONVIERTENUMLETRA = Trim("CERO")
 Else

    
    
TEXTO = FormatNumber(TEXTO, 2)
TEXTO = Right(Space(14) & TEXTO, 14)
MILLONES = Mid(TEXTO, 1, 3)
MILES = Mid(TEXTO, 5, 3)
CIENTOS = Mid(TEXTO, 9, 3)
' no voy a utilizar  DECIMALES = Mid(TEXTO, 13, 2)



CADMILLONES = CONVIERTECIFRA(MILLONES, 1)
CADMILES = CONVIERTECIFRA(MILES, 1)
CADCIENTOS = CONVIERTECIFRA(CIENTOS, 0)

If Trim(CADMILLONES) > "" Then
If Trim(CADMILLONES) = "UN" Then
CADENA = CADMILLONES & " MILLON"
Else
CADENA = CADMILLONES & " MILLONES"
End If
End If
If Trim(CADMILES) > "" Then
CADENA = CADENA & " " & CADMILES & " MIL"
End If


If Trim(CADMILES & CADCIENTOS) = "UN" Then
CADENA = CADENA & "UNO PESOS"
Else
If MILES & CIENTOS = "000000" Then
CADENA = CADENA & " " & Trim(CADCIENTOS)
Else
CADENA = CADENA & " " & Trim(CADCIENTOS)
End If
End If

CONVIERTENUMLETRA = Trim(CADENA)
End If   '* FINAL DE LA DECISION SINO ERA 0



End Function

Function CONVIERTECIFRA(TEXTO, SW)
Dim CENTENA
Dim DECENA
Dim UNIDAD
Dim TXTCENTENA
Dim TXTDECENA
Dim TXTUNIDAD
CENTENA = Mid(TEXTO, 1, 1)
DECENA = Mid(TEXTO, 2, 1)
UNIDAD = Mid(TEXTO, 3, 1)

Select Case CENTENA
Case "1"
TXTCENTENA = "CIEN"
If DECENA & UNIDAD <> "00" Then
TXTCENTENA = "CIENTO"
End If
Case "2"
TXTCENTENA = "DOSCIENTOS"
Case "3"
TXTCENTENA = "TRESCIENTOS"
Case "4"
TXTCENTENA = "CUATROCIENTOS"
Case "5"
TXTCENTENA = "QUINIENTOS"
Case "6"
TXTCENTENA = "SEISCIENTOS"
Case "7"
TXTCENTENA = "SETECIENTOS"
Case "8"
TXTCENTENA = "OCHOCIENTOS"
Case "9"
TXTCENTENA = "NOVECIENTOS"
End Select

Select Case DECENA
Case "1"
TXTDECENA = "DIEZ"
Select Case UNIDAD
Case "1"
TXTDECENA = "ONCE"
Case "2"
TXTDECENA = "DOCE"
Case "3"
TXTDECENA = "TRECE"
Case "4"
TXTDECENA = "CATORCE"
Case "5"
TXTDECENA = "QUINCE"
Case "6"
TXTDECENA = "DIECISEIS"
Case "7"
TXTDECENA = "DIECISIETE"
Case "8"
TXTDECENA = "DIECIOCHO"
Case "9"
TXTDECENA = "DIECINUEVE"
End Select
Case "2"
TXTDECENA = "VEINTE"
If UNIDAD <> "0" Then
TXTDECENA = "VEINTI"
End If
Case "3"
TXTDECENA = "TREINTA"
If UNIDAD <> "0" Then
TXTDECENA = "TREINTA Y "
End If
Case "4"
TXTDECENA = "CUARENTA"
If UNIDAD <> "0" Then
TXTDECENA = "CUARENTA Y "
End If
Case "5"
TXTDECENA = "CINCUENTA"
If UNIDAD <> "0" Then
TXTDECENA = "CINCUENTA Y "
End If
Case "6"
TXTDECENA = "SESENTA"

If UNIDAD <> "0" Then
TXTDECENA = "SESENTA Y "
End If
Case "7"
TXTDECENA = "SETENTA"
If UNIDAD <> "0" Then
TXTDECENA = "SETENTA Y "
End If
Case "8"
TXTDECENA = "OCHENTA"
If UNIDAD <> "0" Then
TXTDECENA = "OCHENTA Y "
End If
Case "9"
TXTDECENA = "NOVENTA"
If UNIDAD <> "0" Then
TXTDECENA = "NOVENTA Y "
End If
End Select

If DECENA <> "1" Then
Select Case UNIDAD
Case "1"
If SW Then
TXTUNIDAD = "UN"
Else
TXTUNIDAD = "UNO"
End If
Case "2"
TXTUNIDAD = "DOS"
Case "3"
TXTUNIDAD = "TRES"
Case "4"
TXTUNIDAD = "CUATRO"
Case "5"
TXTUNIDAD = "CINCO"
Case "6"
TXTUNIDAD = "SEIS"
Case "7"
TXTUNIDAD = "SIETE"
Case "8"
TXTUNIDAD = "OCHO"
Case "9"
TXTUNIDAD = "NUEVE"
End Select
End If


CONVIERTECIFRA = TXTCENTENA & " " & TXTDECENA & TXTUNIDAD

End Function

Estimada Comunidad Educativa y Cibernautas:

 Es un gusto saludarles y expresarles que son BIENVENID@S a este blog educativo. 

En este blog educativo encontraras cursos, herramientas y datos interesantes sobre el avance de la tecnología educativa e innovación en la metodología pedagógica.

La modalidad que promuevo en este blog educativo es b-learning (aprendizaje semi-presencial), pero ¿Qué es B-learning?, >>déjame contarte>>, una de las necesidades que los estudiantes y docentes, evidenciaban en la modalidad e-learnig (Aprendizaje en línea ó educación electrónica), era que No socializaban físicamente en el aula.  La modalidad b-learning fortalece la socialización física en el aula (presencial 40 % ó 60 %) y el proceso de enseñanza-aprendizaje en línea (educación electrónica 40% ó 60%).

DIOS TE BENDIGA, HOY Y SIEMPRE!!

 Lic. Jorge Alejandro Cruz Hernández

 Catedrático

Inroducción a la Programación

Ejemplo:

Ejemplo de CPM - PERT