Ir al contenido principal

Destacados

Vamos a Sumar - Juego educativo Renpy

  La suma escondida: un juego educativo para aprender a sumar con ternura y lógica En el mundo de los videojuegos educativos, a veces las ideas más simples son las que generan mayor impacto. La suma escondida, desarrollado en Ren’Py, es un ejemplo perfecto: un juego visual, amable y dinámico que transforma la práctica de las sumas básicas en una experiencia entretenida, guiada y llena de refuerzos positivos. Este proyecto forma parte de la línea PER (Proyectos Educativos Ren’Py), una iniciativa que busca acercar las matemáticas a niños y niñas mediante juegos visuales, personajes amigables y mecánicas intuitivas. En esta ocasión, los protagonistas son dos elementos irresistibles: patitos numerados y un búho sabio que acompaña cada paso del aprendizaje.   🦆 ¿En qué consiste La suma escondida? El juego presenta, en cada ejercicio, dos patitos que representan números del 1 al 10. Cada patito aparece con su imagen correspondiente, lo que permite que el aprendizaje sea ...
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