'Compte rendu TP Informatique

'Professeur : Mr ARANDA

'application K2 : logiciel de suivi de production 

'Thibaut BAILET

'Hugo ALTOUVAS

'GROUPE : A1 DELTA

'08/12/2020

Imports System

Public Module Module1

    Public Sub Main()

        Dim opp, som, som2 as double

        Dim tps() as double

        dim nbpiece(), i as integer

        Dim tpsbas, tpsav, tpscomp, tpsmoy as double

        console.WriteLine("le type d'opérations prévus (1 pour basique, 2 pour avancée, 3 pour complexe)")

            opp=console.ReadLine()

            Console.WriteLine("temps d'utilisation réel (en min)")

            redim tps(opp)

            redim nbpiece(opp)

            For i=1 to opp

                tps(i)=console.ReadLine()

                console.WriteLine("Nombre de pièces produites")

                nbpiece(i)=console.ReadLine()

                som = som + tps(i)

                console.WriteLine("le temps totale d'utilisation est de : " & som)

                som2 = som2 + nbpiece(i)

                Console.WriteLine("le nombre totale de pièces produites est de : " & som2)

                If opp = "basique" then

                    tpsbas = tpsbas + tps(i)

                Else If opp = "avance" then

                    tpsav = tpsav + tps(i) 

                Else If opp = "complexe" then

                    tpscomp = tpscomp + tps(i) 

                End If

            Next i

        Dim tauxutilbas, tauxutilav, tauxutilcomp as double

            tauxutilbas = tpsbas / som

            console.WriteLine("le taux d'utilisation pour basique serait de : " & tauxutilbas)

            tauxutilav = tpsav / som

            console.WriteLine("le taux d'utilisation pour avancées serait de : " & tauxutilav)

            tauxutilcomp = tpscomp / som

            console.WriteLine("le taux d'utilisation pour complexe serait de : " & tauxutilcomp)

            tpsmoy = som / som2

            console.WriteLine("le temps de travail moyen est de : " & tpsmoy & " min/piece")

    End Sub

End Module