Program Menghitung Luas Keliling & Luas Lingkaran

 Pertama-tama yang harus anda lakukan adalah',,,,, Mendesain program visual basic anda seperti :

Gambar.1.

Dengan menggunakan 3 buah Label, 3 buah Textbox, serta 2 buah Button,,,,

Dengan merubah Text pada Label seperti yang di tunjuk pada gambar 2,,,

Gambar.2.

Merubah Text pada Label1 menjadi Jari-jari, Label2 menjadi Keliling, serta Label3 menjadi Luas,
Serta merubah Name pada TextBox seperti yang di tunjuk pada gambar 3,,,

Gambar.3.

Merubah Name pada TextBox1 menjadi jari, TextBox2 menjadikeliling, serta TextBox3 menjadi luas, serta Name pada Button1 dengan BtnProses, Button2 menjadi BtnKeluar,,,,

Catatan : Merubah Name tidak boleh menggunakan Spasi


Lalu Masukkan Kodding Berikut :

Public Class Form1

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Dim vi As String = "3,14"
        luas.Text = jari.Text * jari.Text * vi
        keliling.Text = 2 * vi * 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
End Class

Semoga Bermanfaat',,,,,,,, :)