Imports System

Public Module Module1

        Function InputConsole(msg as String) as string

            console.writeline(msg)

            Return console.readline()

        End Function

    Public Sub Main()

        Dim Nom, date_op as string

        dim alesage_moyen as double 

        dim nb_rebus as byte 

        dim taux_rebus as double

        dim nbpieceA, nbpieceC, nb_rebusA, nb_rebusC as integer

        Nom= inputconsole("nom utilisateur ?")

        Date_op = inputconsole ("date ? JJ/MM/AAAA")

        Dim nb_piece as integer

        nbpieceA = inputconsole("nb de piece A?")

        nbpieceC = inputconsole("nb de piece C?")

        nb_piece= nbpieceA+nbpieceC

        dim alesageA() as double

        redim alesageA(nbpieceA)

        Dim a as integer

        For a=1 to nbpieceA

                alesageA(a)=inputconsole("taille alesage A ?")

        Next a

        Dim alesageC() as double

        redim alesageC(nbpieceC)

        dim c as integer

        For c=1 to nbpieceC

            alesageC(c)=inputconsole("taille alesage C ?")

        Next c

        dim alesagesomme as double      

        alesagesomme = alesageA(a) + alesageC(c)

​

        alesage_moyen = alesagesomme/nb_piece

​

        For a = 1 to nbpieceA 

            If 39.976 < alesageA(a) and alesageA(a) < 40.024 then 

                console.WriteLine("piece" & a & "conforme")

            Else 

                console.WriteLine("piece" & a & "non conforme")

                nb_rebusa= nb_rebusa + 1

            End If

        Next a

        For c = 1 to nbpiecec 

            If 39.976 < alesagec(c) and alesagec(c) < 40.024 then 

                console.WriteLine("piece" & a & "conforme")

            Else 

                console.WriteLine("piece" & a & "non conforme")

                nb_rebusc= nb_rebusc + 1

            End If

        Next c

        dim tauxrebusa, tauxrebusc as double

        tauxrebusa = nb_rebusa/nbpiecea

        tauxrebusc = nb_rebusc/nbpiecec

        nb_rebus= nb_rebusa + nb_rebusc

        taux_rebus = nb_rebus/nb_piece

        console.WriteLine("rapport" & "nom utilisateur : " & nom & "date : " & date_op & "nb piece : " & nb_piece & "alesage moyen : " & alesage_moyen & "nb piece non conforme : " & nb_rebus & "taux rebus constaté : " & taux_rebus)

        console.WriteLine("nb piece A" & nbpiecea & "nb piece c" & nbpiecec & "taux rebus A" & tauxrebusa & "taux rebus C" &  tauxrebusC )

        If taux_rebus > 0.2 then

            console.WriteLine("carton refusé")

        Else 

            console.WriteLine("carton accepté")

        end if

​

    End Sub

End Module