Codigo Del Triqui Para Visual Basic
Páginas: 2 (370 palabras)
Publicado: 17 de julio de 2012
Private Sub Command1_Click() Dim a, b, c, d, e, f, g, h, i As String a = Text1 b = Text2 c = Text3 d = Text4 e = Text5 f = Text6 g = Text7 h = Text8 i = Text9
If (a = "x" And b= "x" And c = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (d = "x" And e = "x" And f = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (g = "x" And h = "x" And i = "x") ThenMsgBox ("Has ganado el TRIQUI") Else If (a = "x" And d = "x" And g = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (b = "x" And e = "x" And h = "x") Then MsgBox ("Has ganado elTRIQUI") Else If (c = "x" And f = "x" And i = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (a = "x" And e = "x" And i = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (c ="x" And e = "x" And g = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (c = "x" And e = "x" And g = "x") Then MsgBox ("Has ganado el TRIQUI") Else: MsgBox ("Has perdido elTRIQUI") If (a = "o" And b = "o" And c = "o") Then
MsgBox ("Has ganado el TRIQUI") Else If (d = "o" And e = "o" And f = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (g = "o" Andh = "o" And i = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (a = "o" And d = "o" And g = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (b = "o" And e = "o" And h = "o")Then MsgBox ("Has ganado el TRIQUI") Else If (c = "o" And f = "o" And i = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (a = "o" And e = "o" And i = "o") Then MsgBox ("Has ganadoel TRIQUI") Else If (c = "o" And e = "o" And g = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (c = "o" And e = "o" And g = "o") Then MsgBox ("Has ganado el TRIQUI") Else:MsgBox ("Has perdido el TRIQUI") End If End If End If End If End If End If End If End If End If End If End If End If End If End If
End If End If End If End If
End Sub
If (a = "x" And b= "x" And c = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (d = "x" And e = "x" And f = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (g = "x" And h = "x" And i = "x") ThenMsgBox ("Has ganado el TRIQUI") Else If (a = "x" And d = "x" And g = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (b = "x" And e = "x" And h = "x") Then MsgBox ("Has ganado elTRIQUI") Else If (c = "x" And f = "x" And i = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (a = "x" And e = "x" And i = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (c ="x" And e = "x" And g = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (c = "x" And e = "x" And g = "x") Then MsgBox ("Has ganado el TRIQUI") Else: MsgBox ("Has perdido elTRIQUI") If (a = "o" And b = "o" And c = "o") Then
MsgBox ("Has ganado el TRIQUI") Else If (d = "o" And e = "o" And f = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (g = "o" Andh = "o" And i = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (a = "o" And d = "o" And g = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (b = "o" And e = "o" And h = "o")Then MsgBox ("Has ganado el TRIQUI") Else If (c = "o" And f = "o" And i = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (a = "o" And e = "o" And i = "o") Then MsgBox ("Has ganadoel TRIQUI") Else If (c = "o" And e = "o" And g = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (c = "o" And e = "o" And g = "o") Then MsgBox ("Has ganado el TRIQUI") Else:MsgBox ("Has perdido el TRIQUI") End If End If End If End If End If End If End If End If End If End If End If End If End If End If
End If End If End If End If
End Sub
Leer documento completo
Regístrate para leer el documento completo.