Exercice VB: Manipulation dans une ArrayListe

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

Imports System.Collections
Module Module1
    Dim lst As New ArrayList
    Dim i As Integer
    Sub menu()
        Console.WriteLine("1.ecriture")
        Console.WriteLine("2.lecture")
        Console.WriteLine("3.ajout")
        Console.WriteLine("4.suppression")
        Console.WriteLine("5.insertion")
        Console.WriteLine("6.tri")
        Console.WriteLine("7.clear")
        Console.WriteLine("8.removeat")
        Console.WriteLine("9.quiter")
    End Sub
    Sub Main()
        Dim choix As String
        Dim rep As String
        Do
            menu()
            Console.WriteLine(" tapez votre choix")
            choix = Console.ReadLine
            Select Case choix
                Case 1
                    ecriture()
                Case 2
                    lecture()
                Case 3
                    ajout()
                Case 4
                    'Console.WriteLine("saisir l'élément supprimer")
                    'Dim elem = Console.ReadLine
                    Dim ele As Integer
                    Console.WriteLine("entrez l'èlement à supprimer ")
                    ele = Console.ReadLine
                    If lst.Contains(ele) = True Then
                        suppression(ele)
                    Else
                        Console.WriteLine("l'element n'existe pas")
                    End If
                Case 5
                    insertion()
                Case 6
                    tri()
                Case 7
                    clear()
                Case 8
                    removeat(i)
                Case 9
                Case Else
                    Console.WriteLine("le choix que vous avez tapez est introuvable")
            End Select
            Console.WriteLine("voulez-vous contunier ?o/n")
            rep = Console.ReadLine
        Loop Until (rep = "n")
    End Sub
    Sub ecriture()
        lst.Add(10)
        lst.Add(20)
        lst.Add(88)
        lst.Add(86)
        lst.Add(1)
        lst.Add(60)
    End Sub
    Sub lecture()
        For i = 0 To lst.Count - 1
            Console.WriteLine(lst(i))
        Next
    End Sub
    Sub ajout()
        Dim i As Integer
        Dim rep As String
        Do
            Console.WriteLine("saisir l'élément", i + 1)
            lst.Add(Console.ReadLine)
            i += 1
            Console.WriteLine("voulez vous ajouter un autre O/N")
            rep = Console.ReadLine.ToUpper
        Loop Until rep = "N"
    End Sub
    Sub suppression(ByVal objet As Object)
        lst.Remove(objet)
    End Sub
    Sub removeat(ByVal i As Integer)
        Console.WriteLine("saisir la position de l'élément à supprimer")
        i = Console.ReadLine
        lst.RemoveAt(i)
        lst.RemoveAt(i)
    End Sub
    Sub insertion()
        Dim ele As Integer
        Dim i As Integer
        Console.WriteLine("saisir l'élément à inserer ")
        ele = Console.ReadLine
        Console.WriteLine("saisir le position ou vous voulez inserer cette ele")
        i = Console.ReadLine
        lst.Insert(i, ele)
    End Sub
    'Function recherche()
    '    Dim ele, i, k As Integer
    '    Console.WriteLine("saisir l'élément à rechercher")
    '    ele = Console.ReadLine
    '    If lst.Contains(ele) = True Then
    '        k = lst.IndexOf(ele)
    '        Return k
    '    Else
    '    End If
    '    Return -1
    'End Function
    Sub clear()
        lst.Clear()
    End Sub
    Sub tri()
        lst.Sort()
    End Sub
End Module