Ir al contenido principal

Destacados

Descubre cómo crear un juego educativo en Ren'Py en menos de 30 minutos 🎮💡

  En este video, te muestro paso a paso cómo desarrollé un juego educativo de sumas aleatorias utilizando Ren'Py, una herramienta perfecta para crear novelas visuales y juegos interactivos. Desde la recopilación de imágenes y la configuración inicial del proyecto hasta la personalización de la interfaz, la implementación de números aleatorios y el uso de etiquetas para que todo funcione a la perfección, este tutorial cubre todo el proceso de manera práctica y directa. Si eres un apasionado de la creación de juegos o estás buscando una manera accesible de aprender sobre desarrollo, este video es para ti. En cuestión de minutos, dominarás las bases para crear proyectos educativos y divertidos en Ren'Py. No olvides apoyar el canal dando like, suscribiéndote y compartiendo este contenido con otros interesados. ¡La creatividad está a tu alcance! 🚀✨ Ver video:
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