Atténuation du son

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 679 fois - Téléchargée 22 fois

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

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.