• Lunes 29 de Abril de 2024, 04:29
« anterior próximo »
Páginas: [1]

Autor Tema:  Memorama  (Leído 13013 veces)

blacho

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Memorama
« en: Jueves 31 de Julio de 2008, 22:26 »
0
Cordial saludo a todos.

Antes que nada, les comento que me gusta la programación pero no estudio ingenieria de sistemas, más bien soy ingeniero civil. Me encuentro programando un memorama, ya tengo listo el asunto de cuadrar las imagnenes pares por medio de una rutina ramdomize, pero en el momento que quiero comparar las imagnes para que oculte los pares correctos el codigo no me funciona y la verdad no se por que. Solo requiero un consejo para lograrlo. a continuacion muestro el codigo

Public Sub comparar()

        Dim puntaje As Double
        puntaje = 0

        If PictureBox1.Visible = True And PictureBox2.Visible = True Then
            puntaje += 100
            Label1.Text = Str(puntaje)
            Button1.Hide()
            Button2.Hide()
        End If

el problema es que el else deberia ser que al no ser la pareja correcta oculte las imagenes, pero nunca se ocultan....no se que hacer

gracias por su colaboracion

ahhh y tengo un manual de visual express para el que lo necesite.

blacho

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Memorama
« Respuesta #1 en: Martes 5 de Agosto de 2008, 01:22 »
0
Bueno, me puedo percatar que el foro esta quieto y nadie responde, por lo pronto ya publicaré una solucion para este problema.
Ahora si alguin sabe como comprimir este mundo de instrucciones en un ciclo for o while me cuentan, haber si puedo hacer mas eficiente y elegante el codigo.

       If PictureBox3.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox3.Visible = False
            Button3.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If

        If PictureBox4.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox4.Visible = False
            Button4.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If

        If PictureBox5.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox5.Visible = False
            Button5.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox6.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox6.Visible = False
            Button6.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox7.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox7.Visible = False
            Button7.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox8.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox8.Visible = False
            Button8.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox9.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox9.Visible = False
            Button9.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox10.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox10.Visible = False
            Button10.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If

        If PictureBox11.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox11.Visible = False
            Button11.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If

        If PictureBox12.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox12.Visible = False
            Button12.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If

        If PictureBox13.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox13.Visible = False
            Button13.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox14.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox14.Visible = False
            Button14.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox15.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox15.Visible = False
            Button15.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox16.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox16.Visible = False
            Button16.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox17.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox17.Visible = False
            Button17.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox18.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox18.Visible = False
            Button18.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox19.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox19.Visible = False
            Button19.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox20.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox20.Visible = False
            Button20.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox21.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox21.Visible = False
            Button21.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox22.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox22.Visible = False
            Button22.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox23.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox23.Visible = False
            Button23.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox24.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox24.Visible = False
            Button24.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If

        If PictureBox25.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox25.Visible = False
            Button25.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox26.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox26.Visible = False
            Button26.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If
        If PictureBox27.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox27.Visible = False
            Button27.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If

        If PictureBox28.Visible Then
            PictureBox30.Visible = True
            MessageBox.Show("Sigue Intentando")
            PictureBox2.Visible = False
            Button2.Visible = True
            PictureBox28.Visible = False
            Button28.Visible = True
            TextBox1.Text = Val(TextBox1.Text) - 72
        End If

ultRizXz

  • Visitante
Re: Memorama
« Respuesta #2 en: Viernes 24 de Abril de 2009, 19:12 »
0
Tienes que hacer picturebox y button como matriz de control, pero solo en donde dice (i).
Ademas me quedo duda, ya que en tu código, para entrar en el If (*), no pones si cuando es visible entra al ciclo o si cuando es falso entra al ciclo.

dim i
for i=0 to i=28

*if PictureBox1(i).Visible = true Then
PictureBox30.Visible = True
MessageBox.Show("Sigue Intentando")
PictureBox2.Visible = False
Button2.Visible = True
PictureBox1(i).Visible = False
Button1(i).Visible = True
TextBox1.Text = Val(TextBox1.Text) - 72
End If

next i

 Espero te sirva  :alien:
Páginas: [1]
« anterior próximo »