Escrito por carlosfmur1948 en Small Basic y etiquetada con ,

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

Deja un comentario