domingo, 18 de agosto de 2013

Programas/juegos: Simon

Descripción del programa: 
Intenta recordar la serie de números aleatorios que van apareciendo en la pantalla hasta llegar a 10!

Programa:
(VERSION:001)

Sub Main
  Rem SIMON
  Randomize
  For a = 1 To 10
    matrix(a,1) = Rnd(1,4)
  Next
  For a = 1 To 10
    For b = 1 To a
      Print " " & matrix(b,1)
      Pause(250)
      Cls
    Next
    Buttons On
    For b = 1 To a
      Do
      Loop Until but > 0
      If matrix(b,1) <> but Then 
        a = a - 1 
        Print "Fallaste! Total numeros recordados " & a
        Stop
      End If
      but = 0
    Next
    Buttons Off
  Next
  Print "Muy bien! Recordaste los 10 numeros"
End Sub

No hay comentarios:

Publicar un comentario