Visual Basic 3ème partie
Voici la suite de l'apprentissage Visual Basic. Juste un petit rappel : les commentaires dans le code source sont précédés d'un " ' ".
Bonne lecture......
Gestion des chaînes de caractères:
Vous savez maintenant déclarez
une variable en chaîne de caractère :
Dim variable as string
SI vous voulez définir un nombre d'espace pour les caractères il suffit d'écrire :
Dim variable as string*nb de caractères
Si le nombre de caractères est inférieur au nb indiqué le
reste est rempli d'espace et si il est plus grand le surplus n'est pas pris en compte.
Pour compter le nombre de caractères ds une chaîne il faut utiliser l'instruction len:
Len ( " Phrase " )
Pour comparer les différences de 2 chaînes
de caractères on doit utiliser l'instruction Strcomp
Phrase 1 = " Pipi "
Phrase 2 = " Pipi "
Phrase 3 = " Papa "
Phrase 4 = " Caca "
Strcomp ( phrase 1,phrase 2 ) 'renvoie la valeur 0
Strcomp (
phrase 1,phrase 3 ) 'renvoie la valeur 2
Strcomp ( phrase 1,phrase 4 ) 'renvoie la valeur 4
Strcomp ( phrase 3,phrase 4 ) 'renvoie la valeur 2
Pour rechercher une chaîne de caractère il suffit de se servir de la commande "instr"
instr ( chaine de depart, chaine contenant le mot a rechercher )
Si le mot existe il vous donnera la position du caractère sinon il renverra une valeur per défaut.Cette fonction est reès utile.
Le reste des fonction en bref :
right
("chaine",nb de lettre a compter) : affiche le texte de droite
left ("chaine", nb de lettre a compter): affiche le texte de gauche
mid ("chaine de caractere",position ou se placer, nb de caracteres a extraire) :
extraire une nombre défini de caractères à partir d'une position définie
Pour résumer ces fonctions de base je vous propose un programme afin de trouver le nombre d'espace ds une phrase :
Dim Phrase, Caractère As String
Dim Compteur, Longueur, i
As Integer
Phrase = InputBox("Tapez votre phrase")
Longueur = Len (Phrase)
For i = 1 To Longueur
Caractère = Mid(Phrase, i, 1)
If Caractère = " " Then
Compteur = Compteur + 1
End if
Next i
MsgBox("Cette
phrase contient " & Compteur & " espaces.")
Voici un index des fonctions qui sont moins utilisées ou bien plus compliquée :
LTrim$, RTrim$, Trim$ : Supprime les espaces d'une chaîne de carctère à gauche, à droite ou
partout.
Lcase et Ucase : Ca sert à convertir le texte en majuscule ( Ucase ) ou en minuscule ( Lcase )
Val : Conventit une chaîne de caractère composée de nombres en valeur numérique
Str$ : Convertit une valeur numérique en chaîne de
caractère
Voilà en gros pour les chaînes de caractères.
Les opérateurs et fonctions mathématiques
Alors la il n'y a aucune surprise : les termes se rapprochent de la réalité.
Voici un tableau des fonctions
mathématiques :
Abs | Valeur asolue |
Atn | Arc tangente |
Cos | Cosinus |
Exp | Exponentielle |
Fix | Partie entière |
Int | Partie entière |
Log | Logarithme naturel |
Rnd | Génération d'un nombre aléatoire |
Sgn | Signe : si il est >0 il retourne 1; = 0 il retourne 0: < 0 il retourne -1 |
Sin | Sinus |
Sqr | Racine carrée |
Tan | Tangente |
Quelques exemples :
valeur1=Sqr ( 4 ) ' valeur est donc égale à 2
Valeur2=Rnd*100 'valeur
2 est donc <100 >0
Et voici le tableau des opérateurs :
Priorité | Opérateur | Description |
1 | ^ | Elévation à une puissance |
2 | - | Soustraction |
3 | * | Multiplication |
4 | \ | Division entière |
5 | Mod | Reste de la division |
6 | + | Addition |
7 | & | Intégration de valeur avec le texte |
Celui des comparateurs logiques :
Comparateurs | Description |
= | égalité |
< | inférieur à |
> | supérieur à |
<= | inférieur ou égale à |
>= | supérieur ou égale à |
<> | différent de |
Like | comparaison de chaînes de caractère |
Is | comparaison de variables d'objet |
Et enfin celui des comparateurs logiques :
Priorité | Opérateur | Description |
1 | Not | négation logique |
2 | And | Et logique |
3 | Or | OU logique |
4 | XOr | OU exclusif |
5 | Eqv | équivalence logique |
6 | Imp | implication |
Ouah bon bah voila pour las fonctions mathématiques et c'est déja po mal !!!
Les instructions GOTO et GOSUB
Bon pour finir cet
article je vais vous rappelez le fonctionnement des deux bonnes commandes Goto et Gosub. On les utilisaient déjà dans le Basic mais elles ne sont pas indispensables en VB.
Pour goto :
Cette commande vous renvoie à la fonction définie après suivant
la syntaxe suivante :
Conditions ou lancement
goto fonction
fonction:
ce que vous voulez faire
Exemple :
Question=inputbox("Est tu beau ?")
If question = "Oui" then
goto Fonction1
Else
Goto fonction2
End if
Fonction1 :
msgbox"Ah bon >?! "
Fonction2:
msgbox"mouarf !!!!"
On utilise Goto souvent que pour un renvoie d'erreur :
On error goto ...
Si vous ne voulez pas faire intervenir goto :
On error resume next
Pour gosub :
En fait c'est comme pour Goto sauf qu'on met return à la fin
. ....
Gosub x
x :
....
Return
J'en parle paske c'est un mythe mais bon c'est pas bien utile !
Je croyais finir la-dessus mais je viens
de me rendre compte que j'ai oublié de parler des boucle avec incrementation ! Alala PIgnon t'assure pas !!!!
les boucles avec incrementation
Bon y a For next mais j'en ai déja parlé alors je m'attarde pas dessus.
Je voous rappelle
juste que c'est pour répéter des actions x fois, x étant une intervalle :
For x% = 1 to 4
inputbox " Bah rentre la valeur" & x%
next x%
Facile, non ????
Ensuite y a While wend
ça pernet d'éxécuter une opération quand la
condition est vraie :
A%=inputbox("Entre un nombre")
While A% = 200
Msgbox " trouve"
Wend
Y a aussi Do Loop mais celle la vous la connaissez deja grace au superbe article de Bigood !
Bon je m'y recolle. Elle sert à
forcer la répétition d'une opération.
Do
.....
Exit do
Loop while ....
On l'imbrique souvent avec while.
Bon exemple :
Do
X = InputBox("Un nombre")
Loop While X <> 100
Bon je décris que ça comme boucles paske c'est les seules qui servent et aussi paske je suis fatigué d'écrire des bigs articles comme ça ! ;c)
PIG NON