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


 

diccionario

 

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

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