Codigo para un juego de gato, porfavor ayuda! : /

Tema en 'Programación' comenzado por Esteban123, 23/11/06.

Estado del tema:
No está abierto para más respuestas.
  1. Esteban123

    Esteban123 Nuevo Miembro Miembro

    Hola, mi nombre es Esteban soy de Mexico, quisiera que porfavor alguien me ayude, mi problema es el siguiente:

    *Esto es en Visual Basic 6

    necesito un codigo para pogramar un juego de Gato con un solo boton que diga "Juega"

    de modo que yo ponga ya sea "X" o "O " en la primera casilla y cuando le de click al boton , la maquína ponga lo contrario en la casilla que le sigue, y así sucesivamente

    por ejemplo:

    If Text1.text = "O" or Text1.text = "X" Then

    Text2.text = "X"

    masomenos es así la idea, alguien me puede ayudar?

    porfavor es urgente de esto depende mi calificacion del semestre, gracias de antemano
     
  2. rob1104

    rob1104 Super Moderador Super Moderador

    Hola Esteban, creo entender lo que necesitas, si solo necesitas que ponga lo contrario en la casilla que sigue, y suponiendo que son textbox y se llaman text1,text2....textN entonces tu algoritmo esta mal, mira:

    Código:
    if  text1="O" then
    
        text2="X"
    
    else if text1="X" then
    
        text2="O"
    
    end if
    Y así iria con todas las demas :oops:

    Saludos
     
  3. Esteban123

    Esteban123 Nuevo Miembro Miembro

    Hola de nuevo, gracias por la idea, he estado trabajando en ello y diseñe este codigo con un patron especifico haber si me entiendes, y si me puedes decir si esta bien te lo agradecería mucho

    Código:
     IF text1.text = “O” then
    
    Text2.text = “X”
    
    Elseif text1.text = “X” then
    
    Text2.text = “O”
    
    End if
    
    If text4.text = “O” then
    
    Text3.text = “X”
    
    Elseif Text4.text = “X” then
    
    Text3.text = “O”
    
    End if
    
    If text5.text = “O” then
    
    Text6.text = “X”
    
    Else if text5.text= “X” then
    
    Text6.text = “O”
    
    End if
    
    If text9.text = “O” then
    
    Text8.text = “X”
    
    Else if text9.text “X” then
    
    Text8.text = “O”
    
    End if
    
    If text7.text = “O” then
    
    Text10.text = “O Wins”
    
    Else if text7.text = “X” then
    
    Text10.text = “X Wins”
    
    End if
    
    End Sub
    
    
     
  4. RadicalEd

    RadicalEd Nuevo Miembro Miembro

    Tienes un problema según mi punto de vista, digamos que en algún momento quieras implementar tu código del juego del gato en otro programa que tenga 100, 200, 500 o incluso 1000 campos (eh yo tan exagerado :confused: ), te imaginas colocar tantos If....

    Lo mejor que puedes hacer es crear un Array de controles.

    Sino entiendes se te explica, o más bien robbie110487 te explica por que por algúna razón no puedo entrar por Linux :) :( al foro y últimamente he estado muy ocupado y no he podido aclarar dudas
     
Estado del tema:
No está abierto para más respuestas.

Comparte esta página