- Commencez
un nouveau projet. Donnez le titre à la feuille: Traitement de chaînes de
caractères
et le
nom F_chaîne.
- Créez
une zone de texte
ZT_mots.
ZONE
DE TEXTE: ZT_Mots
| NAME |
ZT_Mots |
| TEXT |
Il
faut avoir une parfaite conscience de ses limites,
surtout si on veut les élargir. |
| MULTILINE |
True |
-
Créez
une étiquette ET_result
pour afficher les résultats, assez grande.
ÉTIQUETTE:
ET_Result
| NAME |
ET_Result |
| CAPTION |
(effacer) |
- Créez
une étiquette ET_mess.
Elle doit être assez grande pour afficher des
messages à l’utilisateur. Gardez un caractère
assez petit.
ÉTIQUETTE:
ET_Mess
| NAME |
ET_Mess |
| CAPTION |
vide |
- Créez
un bouton Quitter en lui attribuant les
caractéristiques que vous désirez. N'oubliez pas de
lui attribuer le code permettant de quitter
avec confirmation.
BOUTON:
BO_Quitte
| NAME |
BO_Quitte |
| CAPTION |
Quitter |
Voici un
exemple de ce que pourrait avoir l'air votre interface.
-
Déclarez
les variables suivantes dans le général de la
feuille: V_phr,
V_mot, V_mot1, V_mot2, V_msg, V_titre, v_defval
comme STRING
et V_nbr,
V_nbr1 de
type INTEGER.
Étape
1: calcul de la longueur d'une chaîne
-
Créez
un bouton BO_long.
BOUTON:
BO_Long
| NAME |
BO_Long |
| CAPTION |
Nombre
de caractères |
-
Ajoutez
le code suivant à ce bouton (flèche -->
= même ligne).
|
Sub
BO_long_Click ()
ET_mess.Caption
= "La fonction LEN calcule le nombre de -->
caractères dans la phrase, espaces et ponctuation
compris."
Let
v_phr = ZT_mots.Text
V_nbr
= Len(v_phr)
ET_result.Caption
= v_nbr & " caractères"
End Sub
|
- Testez
votre bouton.
Remarquez que l’ordinateur considère un
espace comme un caractère et le calcule dans le
nombre.
- Sauvegardez
cette première partie du programme dans VB_module2
sous les noms E11F1xx.FRM
et EX11xx.VBP.
Cliquez ici pour la SUITE...
|
