PROGRAMMATION : VISUAL BASIC 6.0

Les Variables :

Dim <NomVariable> As <Type>

Exemples :
Dim/Private Taux As Single ‘var locales mourant à la fin de la fonction dans la quelle on se situe Dim/Private Taux As Double ‘ 300 chiffres significatifs au lieu de 39 (décimaux)
Public/Global Réponse As Integrer ‘var globales déclarées au début d’un programme et valables jusqu’à fin de la feuille, sauf cas des tableaux (toujours déclarés par dim)
Public/Global Réponse As Double ‘ de 2 Milliards à l’opposé, au lieu de 32 000
Dim saispas As Variant ‘ Prendra son type suivant l’affectation faite (nombre ou string)
• Structure de tableau:
Dim TabTemp(12) As Single ‘ le premier indice est le n°1 Dim TabMajuscules(65 to 90) As String ‘ indices de 65 à 90
• Chaines de caractères:
Dim Mot, Lettre As String * 10 ‘ Ici la variable ne contient qu’une lettre, par défaut des espaces
Len(Phrase) ‘ retourne la longueur totale (ici 10 même si les dernieres n’ont pas été renseignées
StrComp(Phrase1,Phrase2) ‘ compare les deux variables (booléen)
InStr(Chaîne1, Chaîne2) ‘ recherche la chaine 2 dans la chaine 1, retourne la position de la premiere lettre de chaine 2 dans chaine 1 ou 0 si elle ne s’y trouve pas
Ucase(chaine 1) met toute la chaine 1 en majuscule ‘ ces fonctions permettent des recherches plus Lcase(chaine 1) en minuscules ‘ efficaces
Left/Right (chaine 1,5) ‘ donne les 5 lettres de gauche/droite de chaine 1
Mid(chaine, 4, 2) ‘ donne les 2 lettres à partir de la 4eme (inclue) de chaine: la 4 et la 5eme donc
Si l’utilisateur fournit une donnée il faut la stocker dans une variable pour pouvoir la réutiliser autant de fois qu’on le veut.Le plus simple est d’utiliser la boîte de dialogue prédéfinie InputBox qui est aussi une fonction et qui retourne une valeur de type Variant. Cette fonction a pour effet d’affecter une valeur à une variable dûment déclarée.

Structures Conditionnelles:

• If <condition> Then <instruction1> [Else <instruction2>]End If Exemple :
If Moyenne >= 10 Then Décision = « Admis » Else Décision = « Refusé »
End If
• Select Case <Expression> Case ListeValeurs1 [Instructions] Case Else [Instructions] End Select

Exemple :
Select Case CodeASCIICaractère
Case 65, 69, 73, 79, 85
MsgBox( » C’est une voyelle « )
Case 66 To 90
MsgBox ( » C’est une consonne « )
Case Else
MsgBox ( » Ce n’est pas une lettre « )
End Select
• IIf (Condition, ValeurSiVrai, ValeurSiFaux)
Exemple :
Note = InputBox ( » Tapez votre note « )
Réponse = IIf (Note >= 10,  » Admis « ,  » Ajourné « )
MsgBox (Réponse)
• Boucles en nombre défini:
For Compteur = Début To Fin [Step Incrément]
Instructions
[ … Exit For]
[Instructions]
Next [Compteur]

Exemple :
For Compteur = 1 To 12
TabTemp(Compteur)=InputBox(« Température N°  » & Compteur)
Next Compteur

Exemple :
For Compteur = 1 To 6
TabTirageLoto (Compteur)=(Rnd * 48 + 1)/1
Next Compteur
• Boucles Tant que:
Do While Condition
Instructions
[… Exit Do]
[Instructions]
Loop ‘ Ici la condition est testée au début
Do
Instructions
[… Exit Do]
[Instructions]
Loop While Condition ‘ Ici la condition est testée à la fin de la boucle
• Boucles Jusqu’à:
Do Until Condition
Instructions
[… Exit Do]
[Instructions]
Loop ‘Condition initiale
Do
Instructions
[… Exit Do]
[Instructions]
Loop Until Condition ‘Condition finale
• Boucles Pour chacun des:
For Each Elément In Ensemble
Instructions
[ … Exit For]
[Instructions]
Next [Elément]
Ensemble est le plus souvent un tableau.

Exemples :
Dim TabHasard(100) As Integer
Dim Cellule As Integer
Dim Réponse As String
Randomize
For Each Cellule In TabHasard Cellule = Rnd * 100 + 1
Next
For Each Cellule In TabHasard
Réponse = Réponse & Cellule &  »  »
Next
MsgBox (Réponse)

Principaux objets et propriétés essentielles

APPEL DE FCTION : NOM_COMMANDE . EVENEMENT [ ( parametres, si y’a pas on met pas les parenthèses) ]
DECLARATION : NOM_COMMANDE . EVENEMENT ( )
• Message Box, Input Box
Valeur = InputBox(« Entrez votre donnée ? ») ‘ Valeur est déja déclaré (Integrer)
MsgBox(« Hello World, la variable est  » &var & »texte en plus » )
C’est un simple message affiché dans une boîte agrémentée d’un bouton OK.
Sysntaxe : MsgBox ( message , icones et boutons , titre )
vbCrLf : retouer a la ligne (ds le message entre valeurs et textes
• Options de la fenêtre :
vbOKCancel Affiche les boutons OK et Annuler.
vbAbortRetryIgnore Affiche le bouton Abandonner, Réessayer et Ignorer.
vbYesNoCancel Affiche les boutons Oui, Non et Annuler.
vbYesNo Affiche les boutons Oui et Non.
vbRetryCancel Affiche les boutons Réessayer et Annuler.
vbDefaultButton1 Le premier bouton est le bouton par défaut.
vbDefaultButton2 Le deuxième bouton est le bouton par défaut.
vbDefaultButton3 Le troisième bouton est le bouton par défaut.
vbDefaultButton4 Le quatrième bouton est le bouton par défaut.
vbApplicationModal Boîte de dialogue modale. L’utilisateur doit répondre au message affiché dans la zone de message avant de pouvoir continuer de travailler dans l’application en cours.
vbSystemModal 4096 Modal système. Toutes les applications sont interrompues jusqu’à ce que l’utilisateur réponde au message affiché dans la zone de message.
vbOK ou 1 OK
vbCancel ou 2 Annuler
vbAbort ou 3 Abandonner
vbRetry ou 4 Réessayer
vbIgnore ou 5 Ignorer
vbYes ou 6 Oui
vbNo ou 7 Non
vbCritical Affiche l’icône Message critique.

Les Procédures et fonctions
• Structure du programme
• Fonctions particulières
Les Variables
• Structure de tableau
• Chaines de caractères
Structures Conditionnelles
• If <condition> Then <instruction1> [Else <instruction2>]End If
• Select Case <Expression> Case ListeValeurs1 [Instructions] Case Else [Instructions] End Select
• IIf (Condition, ValeurSiVrai, ValeurSiFaux)
• Boucles en nombre défini
• Boucles Tant que
• Boucles Jusqu’à
• Boucles Pour chacun des..
Principaux objets et propriétés essentielles
• Message Box, Input Box
• Options de la fenêtre
• Form:frm (feuille : le conteneur graphique des contrôles de l’application)
• CommandButton: cmd (bouton de commande)
• Label: lbl (étiquette)
• Image: img (image)
• TextBox: txt (zone de texte)
• Options disponibles
• Exemple de code: textbox, bouton et liste