Código Small Basic convertido automáticamente (Graduar) en Visual Basic 2010


a1

Small Basic

GraphicsWindow.Title = “Explorando las formas”

Forma1 =Shapes.AddRectangle(100, 100)

Fpelota = Shapes.AddEllipse(100, 100)

Shapes.Move(Fpelota, 0, 340)

x = 450

GraphicsWindow.DrawRectangle(550, 0, 80, 450)

GraphicsWindow.BrushColor = “Purple”

GraphicsWindow.FillRectangle(550, 0, 80, 450)

Shapes.Animate(Fpelota, x, 40, 450)

Program.Delay(500)

If (Shapes.GetLeft(Fpelota) = x) Then

Shapes.Animate(Fpelota, 0, 340, 500)

EndIf

 Visual Basic 

Module animateModule

Dim Forma1, Fpelota, x As Primitive

Sub Main()

GraphicsWindow.Title = “Explorando las formas”

Forma1 = Shapes.AddRectangle(100, 100)

Fpelota = Shapes.AddEllipse(100, 100)

Shapes.Move(Fpelota, 0, 340)

x = 450

GraphicsWindow.DrawRectangle(550, 0, 80, 450)

GraphicsWindow.BrushColor = “Purple”

GraphicsWindow.FillRectangle(550, 0, 80, 450)

Shapes.Animate(Fpelota, x, 40, 450)

Program.Delay(500)

If Shapes.GetLeft(Fpelota) = x Then

Shapes.Animate(Fpelota, 0, 340, 500)

End If

End Sub

End Module

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s