Cara Menghitung Nilai Frekuensi Pada Oscilator Hartley

Struktur Pemrograman Untuk Menghitung Nilai Frekuensi pada Oscilator Hartley pada Visual Basic :

Private Sub Command1_Click()

    Dim i As Double

    i = 1 / ((2 * 3.14) * (((induktor1.Text + induktor2.Text) * kapasitor.Text) ^ (1 / 2)))

    fr.Text = i

    fr.Text = Replace$(fr.Text, "E", " x 10^")

    

End Sub