Ir al contenido principal

Destacados

Juego interactivo las tablas de Multiplicar - Renpy

  Un juego educativo para practicar las tablas Donky, el simpático mono del aprendizaje llega con un nuevo desafío para los niños y niñas que están reforzando sus multiplicaciones. Este juego fue creado en Ren’Py , un motor de narrativa interactiva que permite combinar imágenes, sonidos y lógica para ofrecer una experiencia divertida y pedagógica. En este juego, los jugadores practican las tablas del 2 al 9 mediante ejercicios aleatorios y retroalimentación inmediata. Donky celebra cada acierto con una animación alegre y motiva a seguir aprendiendo cuando hay errores. El sistema de puntos y los bloques de 12 ejercicios ayudan a mantener la atención y el progreso. Características principales Tablas aleatorias sin repetición para mantener el interés. Botones interactivos con todas las respuestas posibles de la tabla. Animaciones y sonidos que refuerzan el aprendizaje positivo. Evaluación final con mensajes personalizados según el desempeño. ...
Publicar un comentario
Leer más
Etiquetas

Ingreso Egreso en Excel con macros

Nueva planilla para el ingreso e egreso de gastos.
Puedes modificar esta planilla tanto para un negocio o gastos personales.
Mediante una macro(programación)  se efectúa en forma automática el ingreso de  la información.
A continuación el desarrollo paso a paso.
Primero insertamos un modulo para ello debemos tener habilitada la ficha programador excel 2010 o Desarrollador Excel 2013-2016. Puedes acceder a la ficha con las teclas alt+F11
Archivo creado para el curso Excel Programando.
Al final del articulo encontraras un link para descargar el archivo.

MODULO 

Sub MOVIMIENTOS()
Dim concepto As String
Dim valor As Double
Dim movimiento As String
Dim ultfila As Long

 concepto = Cells(7, 6)

 valor = Cells(8, 6)

 movimiento = Cells(9, 6)

 ultfila = Sheets("MOVIMIENTOS").Range("D" & Rows.Count).End(xlUp).Row
 Sheets("MOVIMIENTOS").Cells(ultfila + 1, 4) = concepto
 If movimiento = "INGRESO" Then

 Sheets("MOVIMIENTOS").Cells(ultfila + 1, 5) = valor
 Else
 Sheets("MOVIMIENTOS").Cells(ultfila + 1, 6) = valor

 End If
 MsgBox "MOVIMIENTO INGRESADO EXITOSAMENTE"


End Sub




DESCARGAR ARCHIVO:


Etiquetas:

Comentarios

Publicar un comentario

Entradas populares