Types de variables en VB

Le tableau suivant présente les types de données reconnues en précisant la taille des enregistrements et la plage des valeurs.

 

Déclaration des variables

Dim X As Integer

Dim Y As Integer

Dim A As single, B As single

Dim Nom As String*10, Adresse as string

Dim Trouve As Boolean.

Remarques :

Une variable peut être déclarée :

-          A l’intérieure d’une procédure (Niveau procédure)

-          A l’extérieure d’une procédure (Niveau Module ou général)

L’instruction Option Explicit permet de forcer la déclaration des variables

I- Entrée et Sortie des données.

1-Entrée des données

a- Fonction Inputbox ()

La fonction Inputbox permet la lecture des données à partir du clavier.

Ex :

Dim Nom As String, Age As Byte

Nom = InputBox ("Donner le Nom")

Age = InputBox ("Quel est votre Age ?")

b- Zone de saisie

Les données peuvent être entrées à partir des zones de texte insérées dans une feuille.

Ex :

 On peut alors écrire :

Nom = Text1.Text

Age = Text1.Text

 

Remarque:

Les étiquettes (Labels)  servent de légende, l’utilisateur ne peut pas modifier leurs contenus.

 

2-Sortie des données

a- Méthode Print

Ex :

Form1.Print "Visual Basic"    'Affiche Visual Basic sur la feuille Form1.

Print Date                    'Affiche la date système sur la feuille.

Printer.Print "Bonjour"       'Imprimer Bonjour par l’imprimante

b- Boîte de message Msgbox

Syntaxe :

Message :      est une chaine qui représente le message à afficher dans la boîte

Nombre :       est la somme de deux nombre (Bouton+Paneau)

Titre       :       est une chaine qui représente le titre de la boîte

           

 

 

Exercice :

Ecrire une procédure qui permet de lire deux entier à partir du clavier et affiche leur somme dans une boite de message.

Remarque :

Msgbox peut être utilisée comme une fonction (retourne un résultat):

Exemple

Dim R As Byte

R = Msgbox («Voulez vous quitter le programme", 36, "Terminer")

 

Dans cet exemple le résultat de la fonction Msgbox est stocké dans R.

Si l’utilisateur clique sur Oui alors R reçoit 6, s’il clique sur Non R reçoit 7.

 

 

c- Etiquettes ou zones de texte

Ex :

Ecrire un programme Vb qui permet de calculer le carré d’un nombre Saisi dans une zone de texte, le résultat sera affiché dans une zone de texte.

 

Private Sub Calcul_Click()    Dim C As Double    C = Text1.Text    Label3.Caption = C ^ 2 End Sub

ou

Private Sub Calcul_Click()          Label3 = Text1 ^ 2     End Sub

 

III -  Structures de Base

1-      Traitement Conditionnel

a- Instruction If….Then….

If condition Then action

Format 1 :

Ex : If X>0 Then Msgbox  x & " est Positif"

If condition Then action1 Else Action2

Format 2 :

Ex : If X>=Y Then Max=X Else Max=y

If condition Then instructions End If

If condition Then instructions Else instructions End If

Format 3 :

	ou

 

 

 

 

If condition1 Then instructions ElseIf condition2 Then instructions ElseIf condition3 Then instructions End If

Format 4 :

 

 

 

 

 

Exercice :

Ecrire une procédure événementielle (clique sur la feuille) VB qui permet de déterminer le max et le min de 3 nombres entiers lus par clavier.

Private Sub Form_Click() Dim A As Integer, B As Integer, C As Integer Dim Max As Integer, Min As Integer If A>=B Then Max=A Min=B Else Max=B Min=A Endif If Max<C Then Max=C If Min>C Then Min=C Msgbox "Max = " & Max & " Min = " & Min End Sub

 

 

 

 

 

 

 

 

 

 

 

 

b- Fonction IIF

IIf (condition, valeurSivrai, valeurSifaux)

Permet de retourner une des deux valeurs selon une condition

Syntaxe :

Ex :

1) Dim Max as Interger

Max = IIf(A > B, A, B)

2) Dim Age As Byte, jeune  As Boolean

jeune = IIf(Age < 40, True, False)

3) Dim Décision As String, Moy As single

Décision = IIf(Moy>10,"Admis", "Refusé")

C - Instruction Select case

Select case Variable Case condition 1 Actions 1 Case condition 2 Actions 2 Case condition 3 Action3 . . . Case Else Action n End Select

Syntaxe :