Escrito por carlosfmur1948 en Small Basicy etiquetada con ,
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

Deja un comentario