duda; if variable = par?

Iniciado por marrison, 25 Abril 2013, 16:29 PM

0 Miembros y 1 Visitante están viendo este tema.

marrison

Hola buenas, estoy desarrollando un programa en vb, y quiero poner un marcador del "juego" al final, y cada turno cambia de jugador, y tengo una duda:

Habia pensado llamar una variable (numjug) por llamarla de algun modo, que al principio fuese 0, y al final de cada turno aumente en 1, asi habria un bucle, si numjug es par le toca al jugador 1, si no lo es le toca al jugador 2, habia pensado en eso para ir cambiando de jugador, si eran dos habia pensado un bucle con los dos jugadores ya escritos y que se repitiese, pero si quiero añadir mas jugadores me parece mas facil mi idea, ya que asi es automatico el bucle, pero no se como hacerlo para poner la sentencia del if, es decir, como pongo
Código (vb) [Seleccionar]
If numjug = par Then..?? como puedo hacerlo?

O si hay otra forma mas sencilla de cambiar de jugador cada turno... pero esa es la primera que se me ha ocurrido.... alguna idea mejor?

Y luego como añadir al formulario del marcador un punto al jugador desde el otro formulario, que eso se me atasca...

Decir que tiene que ser en Visual Basic 3.0 porque es para clase, no puede ser en 6...

"Es genial trabajar con ordenadores. No discuten, lo recuerdan todo y no se beben tu cerveza" (Paul Leary)

"Controlar la complejidad es la esencia de la programación" (Brian Kernigan)

"Primero resuelve el problema. Entonces, escribe el código" (John Johnson)

"640K deberían ser suficientes para todo el mundo" (Bill Gates, 1981)

79137913

#1
HOLA!!!

Código (vb) [Seleccionar]
If Variable Mod 2 = 0 then
'Aca es par
Else
'Aca es impar
End If

If Variable and 1 then
'aca es Impar
Else
'Aca es par
End If

If (Variable/2) = int (Variable/2) then 'este solo si la variable es single o double
'Aca es par
Else
'Aca es impar
End if


Otra forma de cambiar de jugador a cada turno es asi:
Código (vb) [Seleccionar]

Dim turno as boolean ' esto lo declaras afuera del procedimiento

If Turno then
'turno de jugador 1
' si turno es = true entonces
else
'turno de jugador 2
' si turno es = false entonces
end if
turno = not (turno) 'Si turno es true lo hace false y si es false lo hace true


GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

marrison

gracias, ya lo consegui terminar! muchas gracias :D
"Es genial trabajar con ordenadores. No discuten, lo recuerdan todo y no se beben tu cerveza" (Paul Leary)

"Controlar la complejidad es la esencia de la programación" (Brian Kernigan)

"Primero resuelve el problema. Entonces, escribe el código" (John Johnson)

"640K deberían ser suficientes para todo el mundo" (Bill Gates, 1981)

79137913

HOLA!!!

Seria interesante que postearas el codigo en otro tema asi todos pueden ver lo que creaste!

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

marrison

Cita de: 79137913 en 26 Abril 2013, 19:26 PM
HOLA!!!

Seria interesante que postearas el codigo en otro tema asi todos pueden ver lo que creaste!

GRACIAS POR LEER!!!

claro, en que termine de arreglar bugs, añadir mejoras y eso lo pongo :) aunque en realidad es una chorrada.. jajaja
"Es genial trabajar con ordenadores. No discuten, lo recuerdan todo y no se beben tu cerveza" (Paul Leary)

"Controlar la complejidad es la esencia de la programación" (Brian Kernigan)

"Primero resuelve el problema. Entonces, escribe el código" (John Johnson)

"640K deberían ser suficientes para todo el mundo" (Bill Gates, 1981)