Gracias por visitarme

viernes, 24 de julio de 2015

función SI en excel con "Y" , "O" y concatenar para hacer un crucigrama.

Un trabajo más en excel que espero darme a entender desde el punto de vista didáctico y la riqueza de su uso, en esta actividad hago una combinación de un programa de lenguaje-escritura con funciones de excel,  aquí el video y la explicación más abajo:



Aquí puedes bajar el archivo, tienes que habilitar las macros.

jueves, 23 de julio de 2015

Presentación explicativa de la evaluación del desempeño docente

Informemonos de lo que viene para el magisterio, es parte de la evaluación, nos lo facilita los compañeros de tamaulipas a traves del maestro Jesús Camarena :


sábado, 24 de enero de 2015

Escribir con letra un número en excel

Primero los libros de primero, lecturas y ejercicios del 2014.

Después de tanto tiempo, presento este programita hecho en Excel 2013 pero funciona para varias versiones anteriores, tiene tres macros, el de reconcerlos números escritos, el de generar números aleatoriamente y el de borrar, y varias formulas, sencillas que se que ustedes reconocen o pueden construir.
Pero si tienen alguna duda, el archivo no esta protegido, y si todavia tienen duda o dudas, pueden mandarme un correo, pero sobre el archivo, o lo expuesto en este blog, de otro asunto, lo veo difícil, para que puede consutar las formulas y macros (simpre hay gente que le gusta ir más allá) no esta protegido, ya me conocen, todo lo encamino a lo didáctico.
Aquí les dejo el Archivo para que lo bajen, solo les encargo el crédito, y un gracias.

https://drive.google.com/file/d/0B4sAetxPoVa_R2REOV83WVc4NzQ/view?usp=sharing

Si les gusta pasen la información.

macros de números a letras:

Function CONVERTIRNUM(numero As Double, Optional CentimosEnLetra As Boolean) As String

Dim Moneda As String
Dim Monedas As String
Dim Centimo As String
Dim Centimos As String
Dim Preposicion As String
Dim NumCentimos As Double
Dim Letra As String
Const Maximo = 1999999999.99

'************************************************************
' Parámetros
'************************************************************
Moneda = "Peso"         'Nombre de Moneda (Singular)
Monedas = "Pesos"       'Nombre de Moneda (Plural)
Centimo = "Centavo"     'Nombre de Céntimos (Singular)
Centimos = "Centavos"   'Nombre de Céntimos (Plural)
Preposicion = "Con"     'Preposición entre Moneda y Céntimos
'************************************************************

'Validar que el Numero está dentro de los límites
If (numero >= 0) And (numero <= Maximo) Then

   
    Letra = NUMERORECURSIVO((Fix(numero)))              'Convertir el Numero en letras
   
    'Si Numero = 1 agregar leyenda Moneda (Singular)
    If (numero = 1) Then
        Letra = Letra
    'De lo contrario agregar leyenda Monedas (Plural)
    Else
        Letra = Letra
    End If
   
     NumCentimos = Round((numero - Fix(numero)) * 100)   'Obtener los centimos del Numero
   
    'Si NumCentimos es mayor a cero inicar la conversión
    If NumCentimos >= 0 Then
        'Si el parámetro CentimosEnLetra es VERDADERO obtener letras para los céntimos
        If CentimosEnLetra Then
            Letra = Letra & " " & Preposicion & " " & NUMERORECURSIVO(Fix(NumCentimos)) 'Convertir los céntimos en letra
               
            'Si NumCentimos = 1 agregar leyenda Centimos (Singular)
            If (NumCentimos = 1) Then
                Letra = Letra & " " & Centimo
            'De lo contrario agregar leyenda Centimos (Plural)
            Else
                Letra = Letra & " " & Centimos
            End If
         'De lo contrario mostrar los céntimos como número
         Else
            If NumCentimos < 10 Then
                Letra = Letra
            Else
                Letra = Letra
            End If
         End If
    End If

    'Regresar el resultado final de la conversión
    CONVERTIRNUM = Letra

Else
    'Si el Numero no está dentro de los límites, entivar un mensaje de error
    CONVERTIRNUM = "ERROR: El número excede los límites."
End If

End Function

Function NUMERORECURSIVO(numero As Long) As String

Dim Unidades, Decenas, Centenas
Dim Resultado As String

'**************************************************
' Nombre de los números
'**************************************************
Unidades = Array("", "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve", "Diez", "Once", "Doce", "Trece", "Catorce", "Quince", "Dieciséis", "Diecisiete", "Dieciocho", "Diecinueve", "Veinte", "Veintiuno", "Veintidos", "Veintitres", "Veinticuatro", "Veinticinco", "Veintiseis", "Veintisiete", "Veintiocho", "Veintinueve")
Decenas = Array("", "Diez", "Veinte", "Treinta", "Cuarenta", "Cincuenta", "Sesenta", "Setenta", "Ochenta", "Noventa", "Cien")
Centenas = Array("", "Ciento", "Doscientos", "Trescientos", "Cuatrocientos", "Quinientos", "Seiscientos", "Setecientos", "Ochocientos", "Novecientos")
'**************************************************

Select Case numero
    Case 0
        Resultado = "Cero"
    Case 1 To 29
        Resultado = Unidades(numero)
    Case 30 To 100
        Resultado = Decenas(numero \ 10) + IIf(numero Mod 10 <> 0, " y " + NUMERORECURSIVO(numero Mod 10), "")
    Case 101 To 999
        Resultado = Centenas(numero \ 100) + IIf(numero Mod 100 <> 0, " " + NUMERORECURSIVO(numero Mod 100), "")
    Case 1000 To 1999
        Resultado = "Mil" + IIf(numero Mod 1000 <> 0, " " + NUMERORECURSIVO(numero Mod 1000), "")
    Case 2000 To 999999
        Resultado = NUMERORECURSIVO(numero \ 1000) + " Mil" + IIf(numero Mod 1000 <> 0, " " + NUMERORECURSIVO(numero Mod 1000), "")
    Case 1000000 To 1999999
        Resultado = "Un Millón" + IIf(numero Mod 1000000 <> 0, " " + NUMERORECURSIVO(numero Mod 1000000), "")
    Case 2000000 To 1999999999
        Resultado = NUMERORECURSIVO(numero \ 1000000) + " Millones" + IIf(numero Mod 1000000 <> 0, " " + NUMERORECURSIVO(numero Mod 1000000), "")
End Select

NUMERORECURSIVO = Resultado

End Function

macros de borrar

Sub borrar2()
'
' borrar Macro
'
Range("e6").Select
Selection.ClearContents
Range("e8").Select
Selection.ClearContents
Range("e10").Select
Selection.ClearContents
Range("e12").Select
Selection.ClearContents
Range("e14").Select
Selection.ClearContents
Range("e16").Select
Selection.ClearContents
Range("e18").Select
Selection.ClearContents
Range("e20").Select
Selection.ClearContents
Range("e22").Select
Selection.ClearContents
Range("e24").Select
Selection.ClearContents

End Sub

Tiene oculta la columna "F"  y  el la celda "G " tiene la formula : =SI(E6="","",SI(E6=F6,"a","r"))y el contador de aciertos: =CONTAR.SI(G6:G24,"a")


También tiene una macos para generar un número aleatorio en este caso de 5 cifras:

Sub numero()
n = Int(Rnd() * 1000)
Range("c6") = n
n = Int(Rnd() * 1000)
Range("c8") = n

End Sub

Tiene oculta la columna "F"  y  el la celda "G " tiene la formula : =SI(E6="","",SI(E6=F6,"a","r"))y el contador de aciertos: =CONTAR.SI(G6:G24,"a")

Eso es todo, espero que les sirva y les guste, es mucho el esfuerzo y un gracias sería buena recompensa.............gracias a ustedes por la visita.
 


jueves, 6 de noviembre de 2014

Ruleta en power point

Aquí explico dentro de las diapositivas, cómo hacer este ejercicio, donde la rueda gira, puede bajar el ejemplo y lo va a comprobar, espero que les sirva y si tiene dudas, puede realizar su pregunta en esta misma publicación. en slideshare no funcinan las animaciones, por eso no se mueve la rueda.

sábado, 11 de octubre de 2014

colocar un PREZI en tu blog

Lo primero es que tienes que estar en la página de PREZI.COM, si intentas hacerlo desde tu computadora No parecen los códigos de insertar o embed




 copias el código. te vas a tu blog y lo pegas ...pero en la pestaña de HTML, no en la pestaña de redactar





 y listo, aquí un ejemplo

jueves, 2 de octubre de 2014

Estudia en tu tablet

Sitio del gobierno federal donde algunos estados toman recursos para llevar sus clases, ponte a la vanguardia, dále clic a la imagan y te llevará al sitio, dile a tu maestro, suerte, estudia

http://red.ilce.edu.mx/sitios/tabletas/mx/

libros de texto de 1°

viernes, 12 de septiembre de 2014

de JCLIC a DROPBOX a BLOG



Aquí presento un repertorio de activiades para el taller de computación.........., el código que me funciona lo puedes tener dándole clic aquí:, denle permiso a JAVA de desarrollar la activiadad y tengan paciencia, vale la pena
para realizar esta actividad lo primero es

  1. sacar una cuenta de DROPBOX es gratuita y es el único que me permite hacer un enlace donde se presente una activiadad JCLIC. 
  2. subir el archivo Zip que genera el JCLIC.
  3. compartirlo.
  4. copiar el enlace:


....."https://www.dropbox.com/s/mngrw4mcu0iqp1i/abue.jclic.zip?dl=0", sin las comillas, copio el siguiente codigo que me genró DROPBOX, lo modifico agregando mi enlace:

........."
 
 


y listo , intentenlo, vale la pena compartir, espero que les haya servido, un saludo


viernes, 8 de agosto de 2014

la LECTURA con html

aquí presento el código de "MARQUEE" que se usa par pasar publicidad u otra actividad, pero en mi caso lo usaré para desarrollar el gusto por la lectura mejorando la velocidad , aquí el código y luego un ejemplo:

CÓDIGO en blogger en la pestaña de HTML, aquí lo pongo como imagen porque no me permite el solo código,

https://drive.google.com/file/d/0B4sAetxPoVa_b3U5bzFKcDBtMVU/edit?usp=sharing
si quieren bajarlo, denle click a la imagen.

EJEMPLO:


LAS DOS GOTITAS Las dos gotitas de agua vivían en una gran nube. Comenzó a llover y la gotita pequeña no quería caer, le daba mucho miedo. Su mamá le contó que era muy divertido, que un día cayó en una flor, otro día en una casa y otro día en una calle muy bonita. La gotita pequeña, con mucho miedo, agarró de la mano a su mamá, cerró los ojos y se dejó caer. Las dos gotitas de agua cayeron junto con las demás, formando una gran lluvia plateada. La mamá mojó la hoja de un árbol, se resbaló y cayó al suelo produciendo un gran ruido: "plaf". Su hija, como era más delgadita, tardó más en caer, se posó sobre un paraguas rojo, haciendo un ruidito: "clic". Después resbaló y cayó en el gorro de una niña, "clic", se deslizó por su nariz para más tarde gotear en su impermeable azul. Al final acabó en unas botas de agua. Estuvo un buen rato en la bota hasta que la niña comenzó a andar y cayó a un gran charco que había en el suelo. Allí encontró a su mamá a quien le dio un gran abrazo. Después de contarse el largo viaje, quedaron fundidas en el gran charco de agua. Más tarde, salió el sol, se reflejó en el charco y apareció un bonito arco iris.



lunes, 4 de agosto de 2014

Hacia una convivencia escolar sana y pacífica

Como siempre la Secretaria de Educación, lejos de seguir una planeación, se saca de la manga una actividad como medida REMEDIAL éste tema de convivencia, que educadores de antaño lo trabajaban ..........preventivamente, como la famosa cartilla moral de Alfonso Reyes, peroooo bueno a cargar con la falta de visión por no estar en el sistema........ como quiera aquí les dejo los dos documentos....



 

sábado, 19 de julio de 2014

SWF en blogger Prueba tu lectura_

Flash elaborado para evaluar la velocidad y comprención lectora, esta es de una lectura de elnace de 6°, para comenzar dale clic al botón azul de la presentación y pon mucha atención :

Ahora swf wn blogger:
bueno, aqui esta mí codigo:

http://www.macromedia.com/go/getflashplayer" quality="high" src="https://0479d1d3-a-62cb3a1a-s-sites.googlegroups.com/site/mejorarlalectura/flash/lectura.swf?attachauth=ANoY7coi4VWw4Few8q6dq8uv1Y2oXzrpQ8UztcxkmVMGhA-p2n1iNcC0-SRQeHoQYR7yR-XIPX6sKV1mWdYc0k_2019OTOuSWxRGik2OppN4HJRJGiqAM6--gYAX0MsWXWXv-Kpll_Qj68ti6qUBxfWrbiQ33EgjmfqOppP_ldkdEsnErCHpS3XskSpinqUukJGOFRG2IXg9_4tiJYQBXCEdBs_W9HNEVWdyLDRoEV-p0I-2GmSvXyc%3D&attredirects=0
" type="application/x-shockwave-flash" width="550">


lo que esta en negrita subrayado es mi dirección donde tengo alojado mi archivo .swf , la cual saque de:

https://sites.google.com

Primero suben su archivo ejemplo: lectura.swf,  le dan ver
 y copian la dirección ,

 y la pegan donde pongo mi código en rojo y listo.

Si no les funciona, peguen mi código y asi se daran cuenta si funciona.

domingo, 15 de junio de 2014

¿Cómo elaborar preguntas abiertas?

Ahora que está de moda, y que el famoso EFANL nos lo va a requerir, pues como dice la dicho, " cuando veas las barabas de tu vecino cortar pon las tuyas a remojar".

Espero que les sea de utilidad

https://drive.google.com/file/d/0B4sAetxPoVa_N0tMUVdacElQZ0k/edit?usp=sharing

                                             Practica tus habilidades lectoras (velocidad y comprensión)
solo tienes dos portunidades de leer el texto, o recargala página para leerlo nuevamente.


El ser humano y el medio natural Los homínidos se adaptaron a diferentes ambientes. En África, su medio era seco, había pocos bosques lluviosos y gran parte del territorio estaba conformado por sabanas. Inicialmente eran herbívoros dedicados solo a la recolección, posteriormente incorporaron en su dieta el consumo de carne que conseguían, apropiándose de la carroña o cazando; esta última actividades es considerada uno de los motivos por los cuales los homínidos migraron de África, pues se piensa que recorrían grandes distancias al seguir a sus presas.
Si quieres el código para hace un ejercicio de estos, aquí te dejo un link para que bajes el código, porque el blog no me lo permite.

LinkWithin

Related Posts with Thumbnails