Search This Blog
Showing posts with label código. Show all posts
Showing posts with label código. Show all posts

Monday, 10 June 2013

Ping Pong Small Basic para pequeños (código)

Escrito por carlosfmur1948 en Small Basic y etiquetada con ,
 
  
pong


Small Basic   The Official Blog of Small Basic
http://blogs.msdn.com/b/smallbasic/archive/2013/06/10/small-basic-for-little-kids-series-pong.aspx


Versión 2
‘ v2
‘ bounces well, left to right
‘ make background
GraphicsWindow.Width = “700″
GraphicsWindow.Height = “500″
‘set pen
GraphicsWindow.PenColor = “gray”
GraphicsWindow.PenWidth = “50″
‘draw border
GraphicsWindow.DrawRectangle(0,0,700,500)
‘ set brush
GraphicsWindow.BrushColor = “white”
‘ make left goal, size 100, from (0,200) to (0,300)
GraphicsWindow.FillRectangle(0,200,26,100)
‘ make right goal, size 100, from (674,200) to (674,300)
GraphicsWindow.FillRectangle(674,200,26,100)
‘ set brush
GraphicsWindow.BrushColor = “black”
‘ make paddles
GraphicsWindow.FillRectangle(30,220,10,60)
GraphicsWindow.FillRectangle(664,220,10,60)
‘ draw ball
Sub DrawBall
GraphicsWindow.BrushColor = “black”
GraphicsWindow.FillEllipse(BallX,BallY,10,10)
EndSub
‘ erase ball
Sub EraseBall
GraphicsWindow.PenWidth = “2″
GraphicsWindow.BrushColor = “white”
GraphicsWindow.FillEllipse(BallX,BallY,10,10)
GraphicsWindow.PenColor = “white”
GraphicsWindow.DrawEllipse(BallX,BallY,10,10)
EndSub
‘ sleep
Timer.Interval = 1
Timer.Tick = RunGame
StepSize = 2
StepX = StepSize
StepY = 0
BallX=345
‘ BallY=245
BallY=100
LeftWallX = 27
RightWallX = 660
DrawBall()
Sub RunGame
EraseBall()
BallX = BallX + StepX
BallY = BallY + StepY
‘ Hit right wall
If BallX >= RightWallX Then
StepX = -StepSize
EndIf
‘ Hit left wall
If BallX <= LeftWallX Then
StepX = StepSize
EndIf
DrawBall()
EndSub

Deja un comentario




Cancelar




    Posted by a la/s No comments:
    Labels: , ,

    Sunday, 19 May 2013

    Small Basic : operaciones del objeto Stack (código)


    Escrito por carlosfmur1948 en Small Basicy etiquetada con , ,
    stack

    El objeto Stack en Small Basic se usa para almacenar datos al igual que si apilara platos. Este objeto sigue el principio: primero en entrar, primero en salir.
    Por ejemplo, si mira hacia abajo una pila de platos, sólo se ve el plato superior. Para ver el siguiente plato, tendrá que quitar el plato superior. No se puede tomar un plato de la mitad de la pila hasta que se hayan quitado todos los platos que tiene encima.
    El objeto Stack tiene tres operaciones:
    • PushValue (empujar valor)
    • PopValue (quitar valor)
    • GetCount (obtener cuenta)
    La operación PushValue es igual que agregar un nuevo plato encima de la pila de platos. Con la ayuda de esta operación, puede agregar un valor en la pila especificada
    La operación PopValue es como recoger un plato de la parte superior de la pila. Use esta operación para obtener un valor de una pila especificada.
    La operación GetCount proporciona el número total de platos en una pila. Use esta operación para determinar la cantidad de elementos en una pila específica.
    La operación PushValue no devuelve nada.
    La operación PopValue devuelve el valor de la pila.
    La operación GetCount devuelve el número de elementos en una pila especificada.
    En este ejemplo, se usa la operación PushValue operation para empujar 50 platos dentro de un contenedor vacío. Después, usando la operación PopValue, se toman 8 platos de la pila. Ahora, usamos la operación GetCount para obtener el número total de platos en el contenedor. Además muestra el valor del plato superior.
    1. TextWindow.Title = “Platos”
    2. contenedor =”vacío”
    4. For i = 0 To 50
    5. Stack.PushValue(contenedor , ” plato número ” + i)
    6. EndFor
    7. TextWindow.WriteLine(“El número de platos en el contenedor es ” + Stack.GetCount(contenedor))
    9. For i = 0 To 8
    10. Stack.PopValue(contenedor)
    11. EndFor
    13. TextWindow.WriteLine(“Después de tomar 8 platos, el número total de platos es ” + Stack.GetCount(contenedor))
    14. TextWindow.WriteLine(“El plato superior en el contenedor es ” + Stack.PopValue(contenedor))

    Deja un comentario




    Cancelar




      Posted by a la/s No comments:
      Labels: , ,
      Subscribe to: Posts (Atom)