|
Barlemont Jennifer |
|
Informatique 2006/2007 |
|
Programmes Macros |
|
-Présentation de 5 programmes Macros Vous êtes ici sur la page de présentation des Programmes Macros. Vous y trouverez 5 programmes avec leurs descriptions, leurs codes et un aperçu de ceux-ci. Programmes crées avec OpenOffice Basic. |
|
-Programme numéro 1: MsgBox Ce programme utilise tout simplement la fonction « MsgBox ». Il affiche une boite de message dans laquelle il est écrit « Bienvenue sur mon site ! » Avec la fonction MsgBox, je peux entrer le texte de mon choix, et les numéros indiquent la fonction de mon choix également. (2=interrompre, 32=réessayer, 128=ignorer) Code: Sub Main MsgBox(« Bienvenue sur mon site! »,2+32+128, »mon message ») End Sub |
|
-Programme numéro 2: Devinette Ce programme demande de deviner un chiffre. L’utilisateur doit donc inscrire le chiffre de son choix.. En cas d’erreur, il a le droit de retenter sa chance, jusqu'à ce qu’il trouve le bon chiffre. Si il trouve le bon chiffre, alors un message s’affiche le félicitant. Avec la fonction Inputbox, une boite de dialogue va s’afficher, et l’on peut y entrer le chiffre de notre choix. Ce qui nous permet de retenter notre chance, c’est la fonction Do Loop. Pour finir, c’est la fonction If Then qui crée le message de félicitation. Code: Sub Main a$ = InputBox ("Entrez un nombre.", "Devinette","6") do while a$ <> "10" MsgBox ("Retente ta chance !",0,"Perdu !") a$ =InputBox$ ("Courage !","Encore une fois") Loop If a$ = "10" then MsgBox ("Félicitation, vous avez trouvé le bon !",0) End If End Sub |
|
-Programme numéro 3: Filtre Ce programme demande de rentrer un mot, puis il va le chercher dans le texte choisit. Puis, une fois que le programme a trouvé le mot, il donne a l’utilisateur, le nombre de fois qu’il a trouvé le mot dans le texte. Compteur permet au programme de rechercher le mot ligne par ligne dans le texte choisit. While (EOF(1) = 0) défini la fin du fichier. Puis, la fonction input permet d’ouvrir un fichier en lecture, et la fonction output ouvre un fichier en écriture. Code: Sub main Open "D:\LicenceTAL\L2i01\toto.txt " For Input As 1 Open "D:\LicenceTAL\L2i01\resultat txt " For Output as 2 Mot$=InputBox$( "entrez un mot ", "Filtrage ", "homme ") Compteur=0 While (EOF(1)=0) Line Input#1,ligne$ Position=InStr(ligne$,mot$) If position>0 Then Compteur=compteur+1 Print#2, "ligne n°", compteur, Chr$(13)+ligne$+Chr$(13)+Chr$(13) End If Wend Close #1 Close #2 If compteur =0 Then MsgBox("Le mot n’apparaît pas dans le texte") Else MsgBox ("le mot" + mot$+ "a été trouvé"+ Str (compteur) + "fois") End if End Sub |
