SoloCodigo
CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: blacho en Jueves 31 de Julio de 2008, 22:26
-
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.
-
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
-
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: