[Desafio/Reto/Tiempo al Pedo] Konami Code

[Elemental Code]

Hola
Al pedo se me ocurrio ver como seria la forma mas sencilla de hacer que un form reaccionase al konami code
(Mas info del Konami Code aca: http://es.wikipedia.org/wiki/C%C3%B3digo_Konami)


La onda seria que cuando la persona aprieta el codigo (↑ ↑ ↓ ↓ ← → ← → B A) abra un msgbox o cualquiercosa.

Lo lindo es que tiene que ser en ese orden, que sea detectado por las pulsaciones del teclado (Pueden usar hooks, GetAsyncState o Form_Press) y que si te tardas la vida en poner el comando que sigue no funcione.

Si no entendieron... se joden (naaa mentira, pregunten)

Saludos y suerte a todos.

[agus0]

Jaja que buena idea ahora me pongo a ver esto... ¿El Tuyo donde esta? jaja nadie le dio bola a este Reto

[ignorantev1.1]

Código (vb) [Seleccionar] Expandir


Dim konami As Byte

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If ((konami = 0 Or konami = 1) And KeyCode = 38) Or _
    ((konami = 2 Or konami = 3) And KeyCode = 40) Or _
    ((konami = 4 Or konami = 6) And KeyCode = 37) Or _
    ((konami = 5 Or konami = 7) And KeyCode = 39) Or _
    (konami = 8 And KeyCode = 66) Or (konami = 9 And KeyCode = 65) Then
        konami = konami + 1
        If konami = 10 Then MsgBox "Has activado el konami code!": konami = 0
    Else
        konami = 0
    End If
End Sub


[agus0]

Código (vb) [Seleccionar] Expandir


Dim konami As Byte

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If ((konami = 0 Or konami = 1) And KeyCode = 38) Or _
    ((konami = 2 Or konami = 3) And KeyCode = 40) Or _
    ((konami = 4 Or konami = 6) And KeyCode = 37) Or _
    ((konami = 5 Or konami = 7) And KeyCode = 39) Or _
    (konami = 8 And KeyCode = 66) Or (konami = 9 And KeyCode = 65) Then
        konami = konami + 1
        If konami = 10 Then MsgBox "Has activado el konami code!": konami = 0
    Else
        konami = 0
    End If
End Sub


esta bien le faltaría que se anule si tardas mucho en apretar las teclas

[Elemental Code]

yo lo intente, pero tube el problema de que no lograba encontrar en el formpress cuales eran las teclas.

[Elemental Code]

AHAHA TEMANME!!!

Lo logre

Código (vb) [Seleccionar] Expandir

Dim Cur As Byte
'arriba 38
'abajo 40
'izq 37
'derech 39
'B 66
'A 65

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    tmrPulso.Enabled = False
    Select Case Cur
    Case 0
        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
    Case 1
        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
    Case 2
        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
    Case 3
        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
    Case 4
        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
    Case 5
        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
    Case 6
        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
    Case 7
        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
    Case 8
        If KeyCode = 66 Then Cur = Cur + 1 Else Cur = 0
    Case 9
        If KeyCode = 65 Then
            MsgBox "KABIO EL KONAMI KODE"
            Cur = 0
        End If
    End Select
    tmrPulso.Enabled = True
End Sub


Private Sub tmrPulso_Timer()
Cur = 0
End Sub

Ponganle al timer el interval que quieran, yo probe con 2000 ms (2 segundos) y quedo pulenta ^.^

[BlackZeroX]

mmm

para que no se maten con los valores de las teclas escriban

Código (Vb) [Seleccionar] Expandir



KeyCodeConstants.



De esta manera les dara el IDE una lista de las constantes de las teclas.

Temibles Lunas!¡.