Bienvenue dans votre AOZ Studio Leçon 5
Voyons comment tu peux manipuler du texte dans ton programme, pour commencer nous allons apprendre quelques nouvelles fonctions. Nous travaillerons également avec deux types de boucles (DO..Loop et Repeat…Until) et utiliserons les boutons de la souris.
Dans l’éditeur, clique sur l’icône papier à l’extrême gauche pour créer un nouveau projet. Donne au nouveau projet le nom de Leçon 5 et enregistre-le comme décrit dans la Leçon 1.
Super, alors commence maintenant avec les nouvelles instructions de cette leçon :
Left$ and Right$ Instructions——————–
Utilisé pour trouver un nombre spécifié de lettres à partir des extrémités gauche et droite d’une chaîne.
Par exemple, disons que A$= « AOZ Studio ».
Imprimer Left$(A$,3) imprimera « AOZ ».
Instr Instructions———————–
Utilisé pour trouver la position d’une chaîne dans une autre chaîne.
Par exemple, disons que A$= « AOZ Studio ».
Print Instr(A$, « tud ») Imprime la réponse 6 car dans A$ « tud » commence à la 6ème lettre.
Upper$ Instruction————–
Utilisé pour convertir une chaîne de caractères en majuscules. Nous avons déjà vu cette instruction auparavant.
ex. aoz ou Aoz en AOZ
Lower$ Instruction————
Même chose dans l’autre sens, il est utilisé pour convertir une chaîne de caractères en minuscules.
Ex. AOZ ou Aoz en aoz
Repeat Until Instruction———-
C’est une nouvelle instruction pour faire des boucles
Mais voyons cela avec un exemple concret
Démarrer la boucle du programme principal Répéter…Jusqu’à ce que
Repeat
cls 1
home
Paper 1 : Pen 0 : locate 1, 1 : Print "Prénom et appuyer sur Entrée";
Paper 0 : Pen 1 : Input " ";F$
Paper 1 : Pen 0 : locate 1, 3 : Print "Appuyer sur Nom et Entrée";
Paper 0 : Pen 1 : Input " ";S$
Notez le point-virgule ‘;’ qui permet de placer la sortie suivante directement après ; dans ce cas, le point d’interrogation.
A$=F$+" "+S$
Print
Paper 1 : Pen 0 : print " -> Nom complet A$= " + A$
Paper 1 : Pen 0 : Print:Print
Effectue les manipulations de chaînes et affiche-les à l’écran
Print "Left$(A$,5):" + Left$(A$,5) + " Right$(A$,5):" + Right$(A$,5) + " Mid$(A$,3,5):" + Mid$(A$,3,5) : Print
Print "Instr(A$,''e''): "+ Str$(Instr(A$,"e")) : print
Print "Upper$(A$):" + Upper$(A$) + " Lower$(A$):"+Lower$(A$) : print
Print A$ - " " + " Sans espace"
Print A$ - S$ + " Sans nom de famille"
Print A$ - "a" - "e" - "i" - "o" - "u" + " Sans toutes les voyelles"
Paper 1 : Pen 0 : locate 1, 20 : Centre "Bouton gauche de la souris pour rejouer" + " - Bouton droit de la souris pour quitter"
Teste si le programme est rejoué ou s’il se termine
Do //Démarre la deuxième boucle, une Do..Loop
M=Mouse Key //récupère l'état d'un clic de souris et le stocke dans la variable M
Les valeurs possibles sont les suivantes :
0 = pas de clic de souris
1= bouton gauche de la souris enfoncé
2= bouton droit de la souris enfoncé
Exit If M>0 // Ne quitte la boucle que si une touche a été pressée(M=1 or 2)
Loop
Nous terminons la boucle Do..ici parce que M = 1 ou 2 (pas 0)
Until M=2 //nous ne terminons le Repeat..Until qu'avec le clic droit de la souris (M=2), sinon il retourne dans la boucle du programme principal
**Clique sur le bouton « Run in Browser » ou F1 pour lancer le programme dans le navigateur ou sur « Run in AOZ Viewer » (F2) pour le lancer dans l’éditeur.
Remarque : Une commande Exit dans une boucle n’est pas vraiment une manière super propre de programmer, tu peux réfléchir à d’autres possibilités pour obtenir le même résultat.
Nous avons fait de grands progrès, la leçon 6 suivante sera une introduction pour programmer un jeu. 🙂 Amusez-vous bien !
Mis à jour le 23.07.2023
Testé avec AOZ Studio™ version 1.0 mise à jour 44 le 23/07/2023