Les fichiers

1. Les fichiers • Tout d'abord je précise que l'espace de noms concerné est System.IO, il faudra donc l'importer pour utiliser ses différentes classes. Pour cela il faut ajouter cette ligne de code : Imports System.IO • La classe File est utilisée pour travailler sur un ensemble de fichier ou un fichier (sans instanciation préalable: ce sont des méthodes statiques), la Classe FileInfo donne des renseignements sur un fichier particulier (Il faut instancier au préalable un objet FileInfo).

2. LES FICHIERS EN VB • Pour ouvrir un fichier on utilise FileOpen. FileOpen (FileNumber, FileName, Mode) • Paramètres de FileOpen • FileNumber :A tout fichier est affecté un numéro unique, c'est ce numéro que l'on utilisera pour indiquer sur quel fichier pratiquer une opération.. • FileName :Obligatoire. Expression de type String spécifiant un nom de fichier. • Mode :Obligatoire. Énumération OpenMode spécifiant le mode d'accès au fichier :, Input (séquentiel en lecture), Output (séquentiel en écriture)

3. Pour écrire dans un fichier on utilise: • Print , Write, WriteLine Pour lire dans un fichier on utilise: • Input, LineInput Pour fermer le fichier on utilise FileClose().

4. FONCTIONS Une fonction ou une procédure peut être déclarée soit Privée (Private), soit Publique (Public). Le sens de Privé ou Public se comprend par rapport au formulaire ou au module dans lesquelles elles sont déclarées.

5. Lors de la déclaration d'une fonction, la valeur qui doit être retournée par celle-ci doit être affectée au nom de la fonction. La déclaration de la fonction se termine par les mots réservés ”End function”. Private function NomFonction( Argument As Type, … ) As Type Instruction1 Instruction2 … Nom Fonction = Résultat De La Fonction End function

6. Exemple Private function Somme( valeur1 As Integer, valeur2 As Integer ) As integer Somme = Valeur1 + valeur2 End function • L’appel suivant retourne la somme de X et Y et affecte le résultat à la variable Z.

7. ByVal et ByRef • Quant un argument variable est passé à un paramètre par ByVal,seulement la valeur de l’argument est passé. • Après l’exécution de la procédure, la variable garde sa valeur d’origine. • Et quant l’argument passe ByRef,le paramètre occupe alors le même emplacement mémoire de l’argument.

8. Une fonction retourne une valeur précise contrairement à la procédure qui n’en retourne pas.

9. Les 'Structures' Permettent de regrouper des données de type différent: Les structures sont intéressantes quand vous voulez utiliser des variables contenant plusieurs informations de différent types.

10. Exemple : Vous voulez définir une variable contenant une adresse composée d'un numéro, de la rue, de la ville. Il faut d'abord définir la structure Public Structure Adresse Dim Numero As Integer Dim Rue As String Dim Ville As String  End Structure

11. Puis dans une procédure il faut déclarer la variable : Dim MonAdresse As Adresse La variable MonAdresse est déclarée comme une adresse, elle contient donc: un numéro qui est dans 'MonAdresse.Numero' un nom de rue qui est dans 'MonAdresse.Rue' un nom de ville qui est dans 'MonAdresse.Ville' On pourra enfin l'utiliser : MonAdresse.Numero=2 MonAdresse.Rue= "Grande rue" MonAdresse.Ville= "Lyon"

12. TABLEAU DE STRUCTURES: Il est possible de travailler sur un tableau de structures: Dim Adresses(99) as Adresse 'Permet de travailler sur un tableau d’adresses Adresses(33).Rue="Place de la mairie"

13. Les contrôles ListBox Les contrôles ListBox possèdent une collection 'Items' dans laquelle sont placés tous les éléments contenus dans la liste. Pour ajouter un élément on utilise la méthode Add de la collection Items: ListBox.Items.Add( ). Vider la ListBox ListBox1.Items.Clear()

14. LES TEXTBOX Sont des emplacement pour accueillir du texte. Elles sont très utiles pour récupérer du texte . Le contenu est toujours une chaine de caractère. Elles peuvent être utilisé pour les Entrés/Sorties. ALIMENTS

15. Les Entrés/Sorties • Exemple D’entré: Dim Var as string Var=textBox.Text • Exemple de sortie: textBox.Text=Var

16. Conversion de données • Parce que le contenu d’une zone de texte est toujours une chaine, parfois vous devez convertir l’entrée ou de sortie. • EXEMPLE: Dim Var As Double Var=CDbl(textBox.Text) textBox.Text=CStr(Var)

17. MessageBox Ouvre une fenêtre qui présente un message. C'est une fonction qui affiche un message dans une boîte de dialogue, attend que l'utilisateur clique sur un bouton (Ok ou Oui-Non..), puis retourne si on le désire, le nom du bouton cliqué par l'utilisateur. On utilise la méthode Show pour afficher la boite.

18. On doit fournir le texte à afficher, on peut aussi fournir le titre dans la barre, le type de bouton , le type d'icône et le bouton par défaut, une option. SYNTAXTE: Dim Reponse As DialogueResult Reponse= MessageBox.show(Texte,Titre, TypeBouton , Icone) Le bouton cliqué par l'utilisateur est retourné dans Reponse (de type DialogResult).

19. TITRE TEXTE A AFFICHER Exemple: ICONS TYPE BOUTON If MessageBox.Show(« voulez vous continuer?", "Attention", MessageBoxButtons.YesNoCancel) = DialogResult.Yes then ..... End If

20. TexteAAfficher Obligatoire. Expression String affichée comme message de la boîte de dialogue Titre Expression String affichée dans la barre de titre de la boîte de dialogue. TypeBouton Expression numérique qui représente la somme des valeurs spécifiant -le nombre et le type de boutons à afficher : MessageBoxButtons.OKOnly Un seul bouton 'Ok' MessageBoxButtons.YesNo Deux boutons 'Oui' 'Non' MessageBoxButtons.OkCancel 'Ok' et 'Annuler' MessageBoxButtons.YesNoCancel Icons-le style d'icône à utiliser: MessageBoxIcon.ErrorMessageBoxIcon.Exclamation…….

21. Retour de la fonction :Retourne une constante de type DialogResult qui indique quel bouton à été pressé. DialogResult.Yes DialogResult.No DialogResult.CancelDialogResult.Ok

22. InputBox • il s'agit là d'une fonction, dont les deux arguments de type String correspondent respectivement à l'invite et au titre de la boîte de saisie. • Une entrée permet au programme de demander une donnée à l’utilisateur • Cette fonction renverra toujours une valeur de type String.

23. Exemple • Dim Nom As String • Nom = InputBox("Bonjour","Tapez votre nom ?") • On pourrait rajouter un 3eme argument=la réponse par défaut. • Cela donne

24. Enfin la Function Arrondir arrondit à 2 décimales: pour cela on multiplie par 100, on arrondit à l'entier avec Round puis on divise par 100. Public Function Arrondir(ByVal Valeur As Double) As Double 'arrondi a 2 chiffres après la virgule Return (Math.Round(Valeur * 100)) / 100 End Function End Module A noter que l'on aurait pu utiliser une surcharge de Round qui arrondit directement à 2 décimales: Return (Math.Round(Valeur, 2))

25. Les tableaux de données • Les tableaux permettent de regrouper des données de même type. • Les tableaux vous permettent de faire référence à un ensemble de variables par le même nom et d'utiliser un numéro, appelé index ou indice, pour les distinguer. Sa déclaration est la suivante : • Dim Tableau(n) as type déclare un tableau de n+1 entiers • Dim Tableau(3) As Integer déclare un tableau de 4 entiers

26. On remarque que, dés la déclaration du tableau, le nombre d'éléments est bien défini et restera toujours le même. Après As on indique le type utilisé dans le tableau. • Dim Tableau(3) As Integer entraîne la création des variables 'Integer' suivante: Tableau (0) Tableau (1) Tableau (2) Tableau (3)

27. Le tableau commence toujours par l'indice 0. • Le nombre d'éléments dans le tableau est toujours égale à l'indice de dimension + 1 (ou l'indice du dernier élément+1) • Dim Tableau(3) comporte 4 éléments (éléments d'index 0 à 3).

28. Si j'exécute Tableau(4)=5, cela plante et me donne le message d'erreur suivant:L'exception System.IndexOutOfRangeException n'a pas été gérée"L'index se trouve en dehors des limites du tableau. • En effet l'élément Tableau (4) n'existe pas (Le tableau comporte 4 éléments, éléments d'index 0 à 3); l'index 4 est trop grand.

29. Tableau à 2 dimension • Un tableau peut avoir plusieurs dimensions : • Dim T(2,2) ' 3 X 3 éléments Pour un tableau à 2 dimensions le premier argument représente les lignes, le second les colonnes. Voyons pour chaque élément du tableau le numéro de ligne et celui de la colonne: (pas le contenu des éléments ici mais leurs index)

30. Il est possible de créer des tableaux avec tous les types de variable (y compris les structures). • Dim Mois(11) As String 'tableau de String de 12 éléments On peut initialiser un tableau (Donner une valeur aux éléments): • Dim Mois() As String ={Janvier,Février,Mars} ' Crée un tableau de type String().