VB.Net: Correction des exercices tableaux et matrices 4

Énonce Exercice 4

Buts:

• Cet exercice a pour but de vérifier les points techniques suivants :
• Utilisation des blocs try cach et finally.
• Utilisation de Goto.

Rappel

Le bloc try catch

• Utiliser try catch pour gérer les erreurs qui surviennent lorsque quelque chose ne va pas lors de l’exécution.
• Lorsqu’une exception non gérée se produit, elle entraîne en général la fermeture du programme par votre OS (système d’exploitation).
• Lorsque vous voulez exécuter du code susceptible d’être source d’erreur, enfermez-le dans un bloc try.
• Vous pouvez intercepter l’exception avec un (ou plusieurs) bloc(s) catch.
• Vous pouvez utiliser un bloc finally pour effectuer systématiquement une opération après la tentative d’exécution.
• Le try bloc contient le code protégé qui peut provoquer l’exception. Le bloc est exécuté jusqu’à ce qu’une exception soit lancée ou qu’elle soit terminée avec succès.
• Exemple dans le cas d’une division par zéro :

Dim x As Integer = 0, y As Integer = 0
Try
	x = 10 / y
Catch generatedExceptionName As System.DivideByZeroException
	System.Console.WriteLine("Il est impossible de diviser un nombre par zéro.")
End Try

• Bloc finally
• Si vous souhaitez que du code soit exécuté qu’une exception ou non soit levée, il faut utiliser le bloc finally pour s’en assurer.
• Exemple d’utilisation du Bloc finally.

		' Ouverture de la connexion à la base de données
		' Exécution d’une instruction en base de données
Try
		' Gestion de l’exception
Catch ex As Exception
		' Fermeture de la base de données
Finally
End Try

Goto

• La goto déclaration transfère le contrôle du programme directement à une déclaration étiquetée.
• Une utilisation courante consiste à transférer goto le switch contrôle à une étiquette de cas de changement spécifique ou à l’ étiquette par défaut dans une déclaration.
• La goto déclaration est également utile pour sortir des boucles profondément imbriquées.

Correction Exercice 4

Module exercice4
    Dim tableau As Integer()
    Dim taille As Integer = 0
    Sub Main(args As String())
si_faux: Console.WriteLine("Saisir un entier de 1 à 9")
        Try
            taille = Convert.ToInt16(Console.ReadLine())
        Catch generatedExceptionName As Exception
            Console.WriteLine("Erreur de saisie dans l'entier")
            GoTo si_faux
        End Try

        tableau = New Integer(taille) {}
        For i As Integer = 0 To taille
si_faux_1:  System.Console.WriteLine("Saisir l'entier {0}", i + 1)
            Try
                tableau(i) = Convert.ToInt16(System.Console.ReadLine())
            Catch generatedExceptionName As Exception
                Console.WriteLine("Erreur de saisie dans l'entier")
                GoTo si_faux_1
            End Try

        Next
    End Sub


End Module