Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: marrison en 25 Abril 2013, 16:29 pm



Título: duda; if variable = par?
Publicado por: marrison en 25 Abril 2013, 16:29 pm
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
  1. 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...



Título: Re: duda; if variable = par?
Publicado por: 79137913 en 25 Abril 2013, 16:49 pm
HOLA!!!

Código
  1. If Variable Mod 2 = 0 then
  2. 'Aca es par
  3. Else
  4. 'Aca es impar
  5. End If
  6.  
  7. If Variable and 1 then
  8. 'aca es Impar
  9. Else
  10. 'Aca es par
  11. End If
  12.  
  13. If (Variable/2) = int (Variable/2) then 'este solo si la variable es single o double
  14. 'Aca es par
  15. Else
  16. 'Aca es impar
  17. End if
  18.  

Otra forma de cambiar de jugador a cada turno es asi:
Código
  1. Dim turno as boolean ' esto lo declaras afuera del procedimiento
  2.  
  3. If Turno then
  4. 'turno de jugador 1
  5. ' si turno es = true entonces
  6. else
  7. 'turno de jugador 2
  8. ' si turno es = false entonces
  9. end if
  10. turno = not (turno) 'Si turno es true lo hace false y si es false lo hace true

GRACIAS POR LEER!!!


Título: Re: duda; if variable = par?
Publicado por: marrison en 26 Abril 2013, 17:44 pm
gracias, ya lo consegui terminar! muchas gracias :D


Título: Re: duda; if variable = par?
Publicado por: 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!!!


Título: Re: duda; if variable = par?
Publicado por: marrison en 28 Abril 2013, 10:51 am
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