Visual Basic 2010 Express (código de programa)


letras

Las letras caen una por una (animación) hasta formar la frase: Hello Word 

Código Visual Basic migrado (graduado) de Small Basic

Module UntitledModule

Dim displayText, i, letter, letterShape, j As Primitive

Sub Main()

GraphicsWindow.Show()

GraphicsWindow.BackgroundColor = ” Yellow ”

displayText = “Hello World”

For i = 1 To 11

letter = Text.GetSubText(displayText, i, 1)

letterShape = Shapes.AddText(letter)

For j = 1 To 100

Shapes.Move(letterShape, 20 * i, j)

Program.Delay(10)

Next

Program.Delay(100)

Next

End Sub

End Module

Código Small Basic original:

GraphicsWindow.Show() GraphicsWindow.BackgroundColor = ” Yellow ”

displayText = “Hello World”

For i = 1 To 11

letter = Text.GetSubText(displayText,i,1)

letterShape = Shapes.AddText(letter)

For j = 1 To 100

Shapes.Move(letterShape,20*i,j)

Program.Delay(10)

EndFor

Program.Delay(100)

EndFor

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