Commande linux

[pic 1][pic 2]

Introduction à la Programmation événementielle :

32 heures de travaux pratiques sont prévues dans l’UE Introduction à la Programmation Evénementielle. Vous allez développer vos programmes en Visual Basic sous l’environnement Visual Studio 20XX.

Vous serez évalué en TP au moyen d’un rapport personnel que vous aurez à rendre à l’issue des séances de TP. Ce rapport sera à rendre sous forme informatique (pdf) à l’enseignant qui soumettra l’ensemble des rapports rendus au logiciel anti-plagiat de l’université, qui compare également avec ce qui existe sur le web. Vous serez également évalué au moyen d’un examen sur machine.

A noter que vous travaillerez en monômes pendant les TP, le nombre d’ordinateurs étant suffisant.

 C’est pendant ces TP que vous allez vraiment découvrir la programmation et acquérir les automatismes nécessaires à la réalisation de programmes.

Problème 1 :

[pic 3]

Le problème 1 c’est un programme qui tire de manière aléatoire 6 numéros principaux + 1 complémentaire Puis il va comparer ces numéros avec 6 autres numéros qui on va l’entrer manuellement dans une grille selon le format n1,n2,…,n6. Et on va comparer c’est numéros avec qui on a tiré aléatoirement avec Button Gain, si on trouvera :

3 numéros =10 €

 4 numéros = 100 €

5 numéros = 1000 €

6 numéros = 150000 €

3 numéros + complémentaire =50 €

4 numéros + complémentaires = 150 €

5 numéros + complémentaire = 10000 €

L’algorithme du programme :

[pic 4]

[pic 5]

[pic 6]

Les codes du programme :

Form.vb :

Public Class Form1

    Dim tab(0 To 6) As Integer 'On déclare un tableau de 7 éléments

    Dim temp, i, j, v, Gain As Integer 'On déclare les variables entier temp,v, i et j

    Dim retirage As Boolean 'On déclare le boolean retirage

    Dim str As String 'On déclare str chaine de caractère

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ListBox2.Items.Clear() 'la button2 permet de effacer listbox2 (la grille)

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Dim tabentier(0 To 5) As Integer ' on déclare un tableau tabentier de 6 éléments

        For k = 0 To ListBox2.Items.Count - 1 'la propriété Count de l’objet Collection pour spécifier le nombre d’itérations nécessaires pour supprimer tous les éléments de la listbox

            str = ListBox2.Items(k).ToString ' conversion les éléments du tableau au string

            tablotoString2entier(str, tabentier)

            v = 0

            For i = 0 To tab.Length - 2  'compares les numéros du tab(i) avec les numéros du tabentier

                For j = 0 To tabentier.Length - 1

                    If tab(i) = tabentier(j) Then

                        v += 1

                    End If

                Next

            Next

            For j = 0 To tabentier.Length - 1

                If tab(tab.Length - 1) = tabentier(j) Then

                    v = v + 10

                End If

            Next

            Select Case (v)

                Case 3 'si on trouve 3 numéros le gain sera 10€

                    Gain = Gain + 10

                Case 4 ' si on trouve 4 numéros le gain sera 100€

                    Gain = Gain + 100

                Case 5 'si on trouve 5 numéros le gain sera 1000€

                    Gain = Gain + 1000

                Case 6 'si on trouve 6 numéros le gain sera 150000€

                    Gain = Gain + 150000

...