crislinux
08 de Marzo del 2009

pasa lo siguiente..stoy creando un juego de cartas en gambas2 el juego es simple uno tiene que adiviar si la carta que esta dada vuelta es menor o mayor---..por ahora lo stoy probando con cuatro cartas pero al momento de llegar a la segundo se vuel ve a la primera y deberia segir a la tercera y despues a la cuerta..veo mis if ..y no veo que haya un error logico los veo correctos..no se en que me stoy equivocando ayuda porfavor..de antemano gracias


' Gambas class file
PUBLIC sum AS Float = 0
PUBLIC sum1 AS Float = 0
PUBLIC pas2 AS Float
PUBLIC pas1 AS Float = 0
PUBLIC SUB sig_Click()
IF pas1 == 1 THEN
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/cara1.jpg")
f1.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/5.jpg")
pas1 = pas1 + 1
ty.Text = pas1
ELSE
IF pas1 == 2 THEN
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/cara1.jpg")
f1.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/8.jpg")
pas1 = pas1 + 1
ty.Text = pas1
ELSE
IF pas1 == 3 THEN
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/cara1.jpg")
f1.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/11.jpg")
pas1 = pas1 + 1
ELSE
IF pas1 == 4 THEN
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/cara1.jpg")
f1.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/1.jpg")
pas1 = pas1 + 1
ENDIF
ENDIF
ENDIF
ENDIF
END
PUBLIC SUB may_Click()
IF pas2 == 1 THEN
pas2 = pas2 + 1
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/3.jpg")
sum = sum + 1
pt2.Text = sum
ELSE
IF pas2 == 2 THEN
pas2 = pas2 + 1
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/10.jpg")
sum1 = sum1 + 1
pt1.Text = sum1
ELSE
IF pas2 == 3 THEN
pas2 = pas2 + 1
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/2.jpg")
sum1 = sum1 + 1
pt1.Text = sum1
ELSE
IF pas2 == 4 THEN
pas2 = pas2 + 1
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/12.jpg")
sum = sum + 1
pt2.Text = sum
ENDIF
ENDIF
ENDIF
ENDIF
END
PUBLIC SUB men_Click()
IF pas2 == 1 THEN
pas2 = pas2 + 1
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/3.jpg")
sum1 = sum1 + 1
pt1.Text = sum1
ELSE
IF pas2 == 2 THEN
pas2 = pas2 + 1
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/10.jpg")
sum = sum + 1
pt2.Text = sum
ELSE
IF pas2 == 3 THEN
pas2 = pas2 + 1
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/2.jpg")
sum = sum + 1
pt2.Text = sum
ELSE
IF pas2 == 4 THEN
pas2 = pas2 + 1
f2.Picture = Picture.Load("/home/cris/programas visual basic/juego/pictures/12.jpg")
sum1 = sum1 + 1
pt1.Text = sum1
ENDIF
ENDIF
ENDIF
ENDIF
END