MENGHITUNG SIMPANGAN DAN PERCEPATAN PDA GELOMBANG

CODINGAN y (simpangan)

Private Sub yBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesyBtn.Click

        frek = Double.Parse(fText.Text)

        lamda = Double.Parse(lamdaText.Text)

        amplitude = Double.Parse(amplitudeText.Text)

        waktu = Double.Parse(tText.Text)

        jarak = Double.Parse(xText.Text)

        outText.Text = proses(frek, lamda, amplitude, waktu, jarak, "y")

    End Sub

CODINGAN a ( PERCEPATAN)

Sub aBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aBtn.Click

        frek = Double.Parse(fText.Text)

        lamda = Double.Parse(lamdaText.Text)

        amplitude = Double.Parse(amplitudeText.Text)

        waktu = Double.Parse(tText.Text)

        jarak = Double.Parse(xText.Text)

        outText.Text = proses(frek, lamda, amplitude, waktu, jarak, "a")