■

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim fc As Double = 9700
        Dim startF60, startF40, stopF40, stopF60 As Double
        Dim startF60dB, startF40dB, stopF40dB, stopF60dB As Double
        Dim t As Double = 22.994
        Dim tr As Double = 0.024

        'tr = Int(t / 10) * 10

        Dim db40width As Double = 7.6 / Math.Sqrt(t * 10 ^ -6 * tr * 10 ^ -6)

        Dim db60 As Double = -60

        Dim db60witdh As Double = db40width * 10 ^ (-(db60 + 40) / 10 / 3)

        startF60 = fc - (db60witdh*10 ^ -6) / 2
        stopF60 = fc + (db60witdh*10 ^ -6) / 2
        startF40 = fc - (db40width*10 ^ -6) / 2
        stopF40 = fc + (db40width*10 ^ -6) / 2

        startF60dB = -40 + -30*Math.Log10（（fc - 9677) / (db40width*10 ^ -6 / 2))
        startF40dB = -40
        stopF40dB = -40
        stopF60dB = -40 + -30*Math.Log10（（9723 - fc) / (db40width*10 ^ -6 / 2))

        MessageBox.Show("40dB帯域幅：" & db40width & vbCrLf &
            "60dB帯域幅：" & db60witdh & vbCrLf &
                        "startF60：" & startF60 & vbCrLf &
                        "startF40：" & startF40 & vbCrLf &
                        "stopF40：" & stopF40 & vbCrLf &
                        "stopF60：" & stopF60 & vbCrLf &
                        "startF60の振幅：" & startF60dB & vbCrLf &
                        "startF60の振幅：" & startF40dB & vbCrLf &
                        "startF60の振幅：" & stopF40dB & vbCrLf &
                        "startF60の振幅：" & stopF60dB & vbCrLf)
    End Sub