CodeS-SourceS
Rechercher un code, un tuto, une réponse

Atténuation du son

Soyez le premier à donner votre avis sur cette source.

Snippet vu 675 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
Ajouter un commentaire

Commentaires

Donnez votre avis

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.