Logiciel d'anglais pour étudiant.

Bonjour,

Après avoir testé une fonction forte intéressante du langage Small Basic : Dictionary.GetDefinition() qui permet d'interroger une base de donnée distante afin de récupérer la définition d'un mot anglais en anglais, j'ai créer une interface graphique afin de rendre son utilisation plus simple. Pour une fois que je fais un programme utile pour l'humanité :D

Ce programme est à destination des étudiants en langue mais aussi pour ceux qui maîtrise bien l'anglais. En cette rentrée sous le signe de la crise ce sera surement bienvenue !

Si la programmation rebute certains, je tiens à les rassurer, le Small Basic a été créé pour initier les enfants au développement, c'est un langage très simple.

le code du programme

GraphicsWindow.Title="Dictionnaire anglais"

GraphicsWindow.Height=600

GraphicsWindow.Width=800

GraphicsWindow.top=10

GraphicsWindow.DrawText(152,10,"Entrez un mot en Anglais")

defEN=Controls.AddButton("Définition en Anglais ",500,10)

motEN=Controls.AddTextBox(320,10)

textbox=Controls.AddMultiLineTextBox(5,60)

Controls.SetSize(textbox,780,520)

Controls.ButtonClicked=BoutonClick

sub BoutonClick

Bouton=Controls.GetButtonCaption(Controls.LastClickedButton)

If Bouton="Définition en Anglais " Then

En()

EndIf

EndSub

Sub En

motEN2=Controls.GetTextBoxText(motEN)

If motEN2="" then

GraphicsWindow.ShowMessage("Veuillez entrer un mot avant de cliquer merci !","Attention !")

Else

Controls.SetTextBoxText(textbox,"")

DéfinitionEN=Dictionary.GetDefinition(motEN2)

Controls.SetTextBoxText(textbox,DéfinitionEN)

EndIf

EndSub

Pour pouvoir l'utiliser il faut télécharger le Small Basic à cette adresse :

http://msdn.microsof...r/dd882547.aspx

Comme j'ai souvent remarqué que le logiciel de programmation supportait mal le copier coller il vaut mieux retaper le code en respectant les majuscules et les minuscules.

Pour transformer le code source en programme exécutable autonome enregistrer le programme dans le dossier C:\Program Files\Microsoft\Small Basic puis faites un glisser déplacer de votre fichier vers le programme SmallBasicCompiler.exe, c'est le compilateur qui le transformera en exécutable.

Description du code :

Premier bloc de code : création de la fenêtre

GraphicsWindow.Title="Dictionnaire anglais" : titre de la fenêtre

GraphicsWindow.Height=600 : la hauteur de la fenêtre

GraphicsWindow.Width=800 : la largeur de la fenêtre

GraphicsWindow.top=10 : la position de la fenêtre sur l'écran lors du lancement du programme

Second bloc de code placement d'éléments : texte, textbox, textbox multilignes et bouton.

GraphicsWindow.DrawText(152,10,"Entrez un mot en Anglais") : ajout du texte "Entrez un mot en Anglais"

defEN=Controls.AddButton("Définition en Anglais ",500,10) : ajout du bouton "Définition en Anglais "

motEN=Controls.AddTextBox(320,10) : ajout du textbox

textbox=Controls.AddMultiLineTextBox(5,60) : ajout du textbox multi lignes

Controls.SetSize(textbox,780,520) : taille du textbox multiligne

Nota : les nombres entre parenthèses sont des coordonnées qui permettent de placer ces éléments à des endroits précis de la fenêtre.

Troisième bloc de code : déclenchement de l'action en cliquant sur le bouton.

Controls.ButtonClicked=BoutonClick : si un bouton a été cliqué on va à la sub BoutonClick

sub BoutonClick

Bouton=Controls.GetButtonCaption(Controls.LastClickedButton) : Bouton récupère le texte du bouton qui a été cliqué

If Bouton="Définition en Anglais " Then

En()

EndIf

EndSub : si le texte du bouton cliqué est "Définition en Anglais ", on va à le sub En()

Quatrième bloc de code : interrogation de la base de donnée.

Sub En

motEN2=Controls.GetTextBoxText(motEN) : récupération du contenu du textbox !

If motEN2="" then

GraphicsWindow.ShowMessage("Veuillez entrer un mot avant de cliquer merci !","Attention !") : si le textbox est vide un message apparaît

Else : sinon

Controls.SetTextBoxText(textbox,"") : efface le contenu du texbox multi lignes

DéfinitionEN=Dictionary.GetDefinition(motEN2) : interrogation de la base de données avec le contenu du textbox contenu dans motEN2

Controls.SetTextBoxText(textbox,DéfinitionEN) : affichage de la définition dans le textbox muliti-lignes

EndIf

EndSub

Utilisation :

(1) entrer un mot dans le textbox

(2) cliquer sur le bouton pour obtenir la définition

(3) la définition s'affiche ensuite dans le textbox milti lignes