Skulle behöva hjälp att i VB beräkna medelvärde på decibel. Jag behöver då använda formel nr2 på http://sv.wikipedia.org/wiki/Decibel. Hur skriver jag den i VB?

Hittade lite till.
För att få fram ljudtryck i Pascal från deceibel kan följande formel i javascript användas:
Math.round(1000000000*0.00002*Math.pow(10,SPLin/20))/1000000000
Denna ger svaret 0.039905246 vid SPLin = 66 Db.
Jag klippte in den rakt av i VB och får ett helt annat svar 1,7025E-05.

För att räkna baklänges används formeln:
Math.round(1000000000*20*(Math.log(pin/0.00002)/Math.log(10)))/1000000000

Hur får man till detta i VB.

Please help.....

Jag hade redan utfört en beräkning på mitt decibel tal. Nu fungerar det enligt ovan.

Får se om jag fattat dig någerlunda rätt , en hjälp på vägen. VB exempel.

Nr 1 dB är ett sätt att jämföra mot en reference eller 2 olika tryck/spänningar
I ditt fall är referensen ljudtrycket 20 microPascal.

Detta är så lågt tryck att det normalt inte går att uppfatta (ett höstlöv faller mot marken.)

När man mäter mot ljudtryck eller elektrisk spänning gäller att en fördubbling/minskning motsv 6 dB.
För att föra detta i bevis kan du köra detta i VB.

Det är viktigt att komma ihåg att decibel är en logaritmisk skala.
Addition av två decibeltal innebär alltså multiplikation av motsvarande tal i en linjär skala.

<code>
Option Explicit
Private Sub Command1_Click()
Dim dB As Long
'Log(2) här är då en fördubbling
'Log(10) för att få tillgång till Bas 10Log som dB beräkningar utgår från. (Brigg:s log)
dB = 20 * Log(2) / Log(10) 'Svaret blir 6 dB VSB.
MsgBox dB
End Sub

Private Sub Command2_Click()
Dim dB As Long
dB = 20 * Log(8000) / Log(10) 'Ljudtrycket har ändrats 8000 ggr.
MsgBox dB ' Svaret blir 78 dB
End Sub
</code>
<b>Bevaka Forum Matte/Fysik..... Ang Antilogaritmen Briggs</b>

Återkom gärna för vidare utveckling
Citat: <b> Professor R J Urick USA
Obs det är bara idioter som sätter decimalkomma på decibeltal.</b>

Från min gamla lärobok när Vi skulle lära oss decibel
"Ett lejons rytande på 2 m avstånd är 90 dB"

Vi garvade för Vi såg honom som uppmätt detta.

Ahhhhhhhhhhhh äntligen fick jag till mina tankebanor
Så här blev det. Vb6 kod
<code>
'Problem :det står att ljudtrycket är 66 dB
'Ok hur många gångers ökning är detta vs 20 microPascal

Dim ggr As Long
ggr = 10 ^ (66 / 20) ' ger svar 1995 dvs ~ 2000 som jag visste det skulle bli.
MsgBox ggr
</code>

Nyfiken blev det svar på ditt problem ?

Se Programarkivet
Programarkivet:Decibelkonvertering