game squaring the square vbnet

En este ejemplo de visual studio mostrare el juego llamado de magic square:

Juego que se me vino a la mente por una lectura la cual fue de la historia de una investigación matemática realizada por cuatro estudiantes de Trinity College, Cambridge, en los años 1936-1938.

Uno de ellos fue el autor de ese artículo, aunque el diseño del ejemplo y la ejecución del mismo no tienen que ver con el magic square de ese ejemplo se me ocurrió la idea.

El juego se basara en mostrar x resultado de que se encuentra en un listado de imágenes que mostraremos para que de ese modo de click en la imagen que tenga la respuesta del valor mostrado con el label

Aquí el diseño:

Se ocuparan 7 picturebox junto a 5 labels

Las acciones las efectuaremos por medio de las acciones en los picturebox con PictureBox_Click

Aquí el código

Public Class Form1
    'creando variables para llevar a cabo el juego
    Dim cont As Integer
    Dim buenas As Integer
    Dim malas As Integer

    'creando preguntas
    Public Sub preguntas()

        If cont = 0 Then
            Label1.Text = "5*5*4 + 5*20. X = ?"
        End If

        If cont = 1 Then
            Label1.Text = "X = 14"
        End If

        If cont = 2 Then
            Label1.Text = "X = 5"
        End If

        If cont = 3 Then
            Label1.Text = "5x/6 – 45 = 120. X = ? "
        End If

        If cont = 4 Then
            Label1.Text = "X = 6"
        End If

        If cont = 5 Then
            Label1.Text = "X = 17"
        End If

        If cont = 6 Then
            Label1.Text = "X = 12"
        End If
        'una vez repsonda las 7 preguntas el juego terminara
        If cont > 6 Then

            Dim msj As String

            If buenas > malas Then
                msj = " segun el resultado as triunfado"
            Else
                msj = " segun el resultado as perdido"
            End If
            Label1.Text = "Felicidades as terminado" + msj
            PictureBox1.Enabled = False
            PictureBox2.Enabled = False
            PictureBox3.Enabled = False
            PictureBox4.Enabled = False
            PictureBox5.Enabled = False
            PictureBox6.Enabled = False
            PictureBox7.Enabled = False

        End If


    End Sub
    'creando respuestas
    Public Sub respuestas(contt)
        If contt = 0 And Label1.Text = "5*5*4 + 5*20. X = ?" Then
            buenas = buenas + 1
            Label2.Text = buenas

        ElseIf contt = 1 And Label1.Text = "X = 14" Then
            buenas = buenas + 1
            Label2.Text = buenas

        ElseIf contt = 2 And Label1.Text = "X = 5" Then
            buenas = buenas + 1
            Label2.Text = buenas

        ElseIf contt = 3 And Label1.Text = "5x/6 – 45 = 120. X = ? " Then
            buenas = buenas + 1
            Label2.Text = buenas
        ElseIf contt = 4 And Label1.Text = "X = 6" Then
            buenas = buenas + 1
            Label2.Text = buenas

        ElseIf contt = 5 And Label1.Text = "X = 17" Then
            buenas = buenas + 1
            Label2.Text = buenas

        ElseIf contt = 6 And Label1.Text = "X = 12" Then
            buenas = buenas + 1
            Label2.Text = buenas

        Else
            malas = malas + 1
            Label3.Text = malas
        End If

        cont = cont + 1
        preguntas()
    End Sub
    'acciones a cargar en el load
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cont = 0
        preguntas()
        buenas = 0
        malas = 0

        Label2.Text = "0"
        Label3.Text = "0"

    End Sub




    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        respuestas(0)
    End Sub

    Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
        respuestas(4)
    End Sub

    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
        respuestas(3)
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        respuestas(5)
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        respuestas(6)
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        respuestas(1)
    End Sub

    Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
        respuestas(2)
    End Sub



End Class

Aquí una imagen del ejemplo con los ejercicios terminados:

Descargar ejemplo:

squaring thesquare vbnet