Menghitung Luas Dan keliling Lingkaran dengan VB.net

Berikut adalah menghitung  luas dan keliling lingkaran 
ne saya postingkan program menghitung luas dan keliling lingkaran,,mudah- mudahan bermanfaat bagi yang membacanya,,
gk usah malu,,,sedot za listing programnya Vb.net

Berikut adalah Listing Program Menghitung Luas Dan keliling Lingkaran dengan VB.net Program:

Public Class LUAS_VOLUME_DAN_JARI_JARI_LINGKARAN

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        luas.Text = 2 * 22 / 7 * jari_jari.Text * jari_jari.Text
        keliling.Text = 2 * 22 / 7 * jari_jari.Text
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        jari_jari.Text = ""
        luas.Text = ""
        keliling.Text = ""
        jari_jari.Focus()
    End Sub

    Private Sub jari_jari_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jari_jari.KeyPress
        If Asc(e.KeyChar) = 13 Then
            luas.Text = 2 * 22 / 7 * jari_jari.Text * jari_jari.Text
            keliling.Text = 2 * 22 / 7 * jari_jari.Text
        End If
    End Sub

    Private Sub jari_jari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jari_jari.TextChanged

    End Sub
End Class

Tweet