Atténuation du son

Commenter

Contenu du snippet 

Module Module1

    Sub Main()
        calcul()
        Console.WriteLine("Appuyer sur la touche <<Entrée>> pour sortir")
        Console.Read()
        End
    End Sub

    Private Sub calcul()
        Dim i, d, m As Integer
        Dim bruit, son As Integer
        son = TraitementSaisie("Tapez le son en Db et")
        d = TraitementSaisie("Tapez la distance")
        bruit = son - (20 * Math.Log10(d))
        Console.WriteLine("pour " & son & " Db reste = " & bruit & " Db à une distance de " & d & " metres")
    End Sub
    Private Sub Erreur()
        MsgBox("Erreur de saisie; pas valide")
    End Sub

    Private Function TraitementSaisie(ByVal texte As String) As Integer
        Dim a, nombre As String
        Dim n As Integer

        Do
            Console.Write(texte & " en nombre entier ---> ")
            nombre = Console.ReadLine
            For i As Integer = 1 To Len(nombre)
                a = Mid(nombre, i, 1)
                If a < "0" Or a > "9" Then nombre = "" : Exit For
            Next
            If nombre = "" Or Len(nombre) > 8 Then Erreur()
        Loop Until nombre <> "" And Len(nombre) < 9

        n = CInt(nombre)
        Return n
    End Function
End Module
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.