Atténuation du son
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 982 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.