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 :
 
AbsValeur asolue
AtnArc tangente
CosCosinus
ExpExponentielle
FixPartie entière
IntPartie entière
LogLogarithme naturel
RndGénération d'un nombre aléatoire
SgnSigne : si il est >0 il retourne 1; = 0 il retourne 0: < 0 il retourne -1
SinSinus
SqrRacine carrée
TanTangente

 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érateurDescription
1^Elévation à une puissance
2 -Soustraction
3*Multiplication
4\Division entière
5ModReste de la division
6+Addition
7&Intégration de valeur avec le texte

Celui des comparateurs logiques :
 
ComparateursDescription
=égalité
<inférieur à
>supérieur à
<=inférieur ou égale à
>=supérieur ou égale à
<>différent de 
Like comparaison de chaînes de caractère
Iscomparaison de variables d'objet

Et enfin celui des comparateurs logiques :
 
PrioritéOpérateur Description
1Notnégation logique
2AndEt logique
3OrOU logique
4XOrOU exclusif
5Eqv équivalence logique
6Impimplication

 
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