Software Educativo Practiquemos las tablas PowerPoint

Una forma muy sencilla de practicar las tablas para los mas pequeños es mediante juegos.
Realice un sencillo juego en PowerPoint que va a ayudar a los pequeños a practicar o repasar las tablas.
Si vas a la ficha programador vas a ver la siguientes lineas de código:
Botón Jugar:

Private Sub CommandButton1_Click()
Slide2.TextBox1.Text = ""
Slide2.TextBox2.Text = ""
Slide2.TextBox3.Text = ""
Slide2.Label1.Caption = "0"
Slide2.Label2.Caption = "0"
Slide2.Label3.Caption = "0"


SlideShowWindows(Index:=1).View.Next

Botón nuevo numero:

Dim total As Integer // variable global

Private Sub CommandButton1_Click()

Dim n1, n2 As Integer

Randomize

n1 = (Str(Int(Rnd() * 12 + 1)))

n2 = (Str(Int(Rnd() * 10 + 1)))

TextBox1.Text = n1

TextBox2.Text = n2

total = n1 * n2

Label1.Caption = Label1.Caption + 1

      

End Sub

Botón Comprobar:

Private Sub CommandButton2_Click()

If TextBox3.Text = "" Then

MsgBox "Debes ingresar el resulatado "

ElseIf TextBox3.Text = total Then

Label2.Caption = Label2.Caption + 1

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

ElseIf IsNumeric(TextBox1.Text <> total) Then

MsgBox "Mal! El resultado es " & total

Label3.Caption = Label3.Caption + 1

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

End If

Es muy sencillo de hacer y con solo unas lineas de código.

Si gustas puedes descargarlo desde el siguiente link

Recuerda si lo modificas o adaptas no olvides contar donde lo obtuviste, ademas fue totalmente gratis así que puedes compartirlo con otros.

Link

https://www.mediafire.com/file/dyn4wpu0gjawu1i/Practiquemos_las_tablas_MR.7z/file