Codigo Gato Itgs

Páginas: 5 (1181 palabras) Publicado: 19 de septiembre de 2011
Dim turno As String

Private Sub bedshaped_Click()
WindowsMediaPlayer1.URL = "C:\Playlists\keane - hopes and fears - bedshaped.mp3"
End Sub

Private Sub clearcmd_Click()
lbl1.Caption = ""
lbl2.Caption = ""
lbl3.Caption = ""
lbl4.Caption = ""
lbl5.Caption = ""
lbl6.Caption = ""
lbl7.Caption = ""
lbl8.Caption = ""
lbl9.Caption = ""
lbl1.Enabled = True
lbl2.Enabled = Truelbl3.Enabled = True
lbl4.Enabled = True
lbl5.Enabled = True
lbl6.Enabled = True
lbl7.Enabled = True
lbl8.Enabled = True
lbl9.Enabled = True

End Sub

Private Sub cmd0_Click()
turno = "0"
End Sub

Private Sub cmdx_Click()
turno = "X"
End Sub

Private Sub invierno_Click()
Image4.Visible = True
Image1.Visible = False
Image3.Visible = False
Image2.Visible = False
Image5.Visible = FalseEnd Sub

Private Sub lbl1_Click()
If (turno = "0") Then
lbl1.Caption = "0"
Else
If (turno = "X") Then
lbl1.Caption = "X"
End If
End If

Call win_123
Call win_159
Call win_147
Call empate
Call changeofturn
lbl1.Enabled = False

End Sub

Private Sub lbl2_Click()
If (turno = "0") Then
lbl2.Caption = "0"
Else
If (turno = "X") Then
lbl2.Caption = "X"
End If
End If

Callwin_123
Call win_258
Call empate
lbl2.Enabled = False
Call changeofturn
End Sub

Private Sub lbl3_Click()
If (turno = "0") Then
lbl3.Caption = "0"
Else
If (turno = "X") Then
lbl3.Caption = "X"

End If
End If

Call win_123
Call win_357
Call win_369
Call empate
lbl3.Enabled = False
Call changeofturn
End Sub

Private Sub lbl4_Click()
If (turno = "0") Then
lbl4.Caption = "0"Else
If (turno = "X") Then
lbl4.Caption = "X"
End If
End If
Call win_147
Call win_456
Call empate
Call changeofturn
lbl4.Enabled = False
End Sub

Private Sub lbl5_Click()
If (turno = "0") Then
lbl5.Caption = "0"
Else
If (turno = "X") Then
lbl5.Caption = "X"
End If
End If
Call empate
Call win_159
Call win_357
Call win_258
Call win_456
Call changeofturn
lbl5.Enabled = FalseEnd Sub

Private Sub lbl6_Click()
If (turno = "0") Then
lbl6.Caption = "0"
Else
If (turno = "X") Then
lbl6.Caption = "X"
End If
End If
Call win_369
Call empate
Call win_456
Call changeofturn
lbl6.Enabled = False
End Sub

Private Sub lbl7_Click()
If (turno = "0") Then
lbl7.Caption = "0"
Else
If (turno = "X") Then
lbl7.Caption = "X"
End If
End If
Call win_147
Call win_357Call empate
Call win_789
lbl7.Enabled = False
Call changeofturn
End Sub

Private Sub lbl8_Click()
If (turno = "0") Then
lbl8.Caption = "0"
Else
If (turno = "X") Then
lbl8.Caption = "X"
End If
End If
Call win_789
Call empate
Call win_258
Call changeofturn
lbl8.Enabled = False
End Sub

Private Sub lbl9_Click()
If (turno = "0") Then
lbl9.Caption = "0"
Else
If (turno = "X")Then
lbl9.Caption = "X"
End If
End If
Call changeofturn
Call win_159
Call win_369
Call empate
Call win_789

lbl9.Enabled = False
End Sub

Public Sub win_123()
If lbl1.Caption = "X" And lbl1.Caption = lbl2.Caption And lbl2.Caption = lbl3.Caption Then
ln1.Visible = True
Form2.Show
Unload Me
Else
If lbl1.Caption = "0" And lbl1.Caption = lbl2.Caption And lbl2.Caption = lbl3.CaptionThen
ln1.Visible = True
Form2.Show
Unload Me
End If
End If

End Sub

Public Sub win_147()
If lbl1.Caption = "X" And lbl1.Caption = lbl4.Caption And lbl4.Caption = lbl7.Caption Then
ln3.Visible = True
Form2.Show
Unload Me
Else
If lbl1.Caption = "0" And lbl1.Caption = lbl4.Caption And lbl4.Caption = lbl7.Caption Then
ln3.Visible = True
Form2.Show
Unload Me
End If
End If
End SubPublic Sub win_159()
If lbl1.Caption = "X" And lbl1.Caption = lbl5.Caption And lbl5.Caption = lbl9.Caption Then
ln2.Visible = True

Form2.Show
Unload Me
Else
If lbl1.Caption = "0" And lbl1.Caption = lbl5.Caption And lbl5.Caption = lbl9.Caption Then
ln2.Visible = True

Form2.Show
Unload Me
End If
End If
End Sub

Public Sub win_456()
If lbl4.Caption = "X" And lbl4.Caption =...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Codigo del juego del gato

    ...Public Class form1 Private Sub win() If UNO.Text = "x" And DOS.Text = "x" And TRES.Text = "x" Then MessageBox.Show("FELICIDADES EL GANADOR ES EL JUGADOR = X") End If If CUATRO.Text = "x" And CINCO.Text = "x" And SEIS.Text = "x" Then MessageBox.Show("FELICIDADES EL GANADOR ES EL JUADOR = X") Else : End If If SIETE.Text = "x" And OCHO.Text = "x" And NUEVE.Text = "x" Then MessageBox.Show("FELICIDADES EL...

    Leer más
    989 Palabras 4 Páginas
  • codigo en c del juego del gato

    ...<time.h> int c[9]={0,0,0,0,0,0,0,0,0}, turno, jugador; char denuevo=' '; char tirada(int i); /*Necesaria en print_gato, retorna 'X', 'O' o ' '*/ int ganador(); /*Deduce si hay un ganador, regresa -1, 0 o 1*/ void print_gato(); /*Imprime el tablero de Gato*/ void turno_jugador(); void turno_computadora(); int main() { do { int h, menu; printf(" nMenu:n 1) Jugar. n 2) Leer instruccionesn 3) Ver creditosn 4) Salirnn"); scanf("%d", &menu); switch(menu)...

    Leer más
    560 Palabras 3 Páginas
  • Itgs

    ...a) I) Su tarea es la de aparejar los sistemas de información con los planes de la compañía Elaborar y administrar presupuestos y coordinar equipos técnicos. Debe considerar los pedidos de otros ejecutivos e informarles acerca de sus actividades. ii) Vigilancia, Sistema Operativo y Encargado de los arreglos. b) Si se van a desarrollar sistemas independientes entonces no habrá nadie que vigile si ocurre algún error en el sistema, aunque si se usan entonces ya no se necesitara tantos...

    Leer más
    501 Palabras 3 Páginas
  • Itgs

    ...This news article states that the Indian government wants to ban Blackberry, produced by RIM, because they fear the gadget might be used for terrorist purposes. The Indian government wants access to the messages and e-mails sent on blackberries, yet the messages are automatically encrypted and it is impossible to decode them. In addition, Blackberry has a policy that specifies their inability to do special deals with specific countries. These sorts of requests have happened before, so...

    Leer más
    502 Palabras 3 Páginas
  • Itgs

    ...------------------------------------------------- The effects of piracy on the Movie Industry Film piracy is the illegal copying and distribution of movies in print, videos, DVDs or electronic files. New developments in digital technology make server-based or peer-to-peer (P2P) file sharing on the Internet convenient and relatively fast. A negative consequence of this new technology, however, is online theft of copyrighted material. Consequences of Piracy Who is affected by...

    Leer más
    1171 Palabras 5 Páginas
  • ITGS

    ... Universidad Nacional Mayor de San Marcos Facultad de Ciencias Físicas “ Movimiento Pendular " (Práctica III) E.A.P. Ciencias Físicas Curso: Laboratorio de Física I Profesor: Integrantes del Grupo: Sevilla Paulinich, Diana Clarisa 14070115 Munayco Arias, Pamela Vanessa 14070086 Zamudio Valle, Diego Alexander 14070097 Gayoso Berrospi, Anthony Rodrigo 14200047 Investigando Un Fenómeno De La Naturaleza...

    Leer más
    885 Palabras 4 Páginas
  • gat gat gat

    ...1.1 Biografía: Autor: José Luis Rosasco Zagal Es un escritor chileno, y concejal de Ñuñoa conocido principalmente por sus novelas para adolescentes Dónde estás, Constanza y Francisca, Yo Te Amo, que han sido reeditadas decenas de veces. Hijo de un estadounidense de directa ascendencia italiana que llegó a Chile en 1932, contratado por el gobierno de Manuel Sandoval Madrid como ingeniero en bebidas, quien se casó con una chilena, estudió en el Saint George's College e ingresó en Derecho...

    Leer más
    883 Palabras 4 Páginas
  • Los Gatos

    ...Glutamato monosódico: un dulce veneno 21 MAR 2009, CATEGORÍA: GLUTAMATO MONOSÓDICO - SALUD - SOBREPESO [pic] Estoy seguro que más de una vez habéis leído en un producto alimenticio la referencia E-621. El E-621 o también llamado Glutamato monosódico (GMS), es un aditivo que se añade en muchos alimentos preparados. Es un potenciador de sabor, pero lo que muchos no sabemos es que varios estudios lo han relacionado con el sobrepeso o la obesidad. Varios estudios, demuestran que el GMS,...

    Leer más
    584 Palabras 3 Páginas

OTRAS TAREAS POPULARES

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS