Small Basic: El objeto Controls – Diccionario (código)

 

 

Vamos a escribir un simple programa usando el objeto Controls. Este programa puede usarse para saber las definiciones de una palabra dada.

1. GraphicsWindow.Title = «Diccionario»
2. GraphicsWindow.Height = 600
3. GraphicsWindow.Width = 600
4. GraphicsWindow.DrawText(50, 80, «Escriba una palabra en inglés o francés: «)
5. cuadroTexto = Controls.AddTextBox(50, 100)
6. Controls.SetSize(cuadroTexto, 100, 30)
7. Controls.SetTextBoxText(cuadroTexto, «»)
8. GraphicsWindow.DrawText(50, 140, «Significados según el diccionario: «)
9. multitxt = Controls.AddMultiLineTextBox(50, 160)
10. Controls.SetSize(multitxt, 500, 400)
11. obtenerDef = Controls.AddButton(«Buscar», 200, 100)
12. GraphicsWindow.DrawText(80, 80, «»)
13. significado = Dictionary.GetDefinition(Controls.GetTextBoxText(cuadroTexto))
14. Controls.SetTextBoxText(multitxt, significado)
15. Controls.ButtonClicked = MostrarSignificado
16. Sub MostrarSignificado
17. If Controls.GetButtonCaption(obtenerDef) = «Buscar» Then
18. significado = Dictionary.GetDefinition(Controls.GetTextBoxText(cuadroTexto))
19. Controls.SetTextBoxText(multitxt, significado)
20. EndIf
21. EndSub