Aplikasi Perhitungan Luas dan Keliling Lingkaran VB 2010

Aplikasi Perhitungan Luas dan Keliling Lingkaran

Alpikasi sederhana untuk permulaan.

Assalamu'alaikum, wr.wb
Menghitung Keliling dan Luas Lingkaran dengan vb 2010 - Pada tutorial VB (visual basic) 2010 kali ini saya akan membuat sebuah program untuk menghitung keliling dan luas lingkaran. Sebelum membuat program yang paling awal dipahami adalah mengetahui rumus-rumus yang digunakan untuk menghitung keliling dan luas lingkaran tersebut. Karena tanpa mengetahui rumus lingkaran, saya tidak pernah bisa membuat program ini. 

Untuk mencari luas lingkaran menggunakan rumus Phi x (jari.jari x jari.jari) sedangkan rumus untuk menghitung keliling lingkaran 2 x phi x jari jari.

Untuk Toolbox yg digunakan
1). 3 buah Textbox,
2). 4 buah Tabel, dan
3). 2 buah Button.

Silahkan desain program untuk menghitung luas dan keliling lingkaran seperti gambar dibawah ini :

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim phi As Integer
        Dim luas As Integer
        Dim keliling As Integer
        phi = 22 / 7
        luas = phi * (TextBox1.Text * TextBox1.Text)
        Keliling = 2 * phi * TextBox1.Text
        TextBox2.Text = luas
        TextBox3.Text = Keliling
        MsgBox("luas lingkaran : " & luas & vbCrLf & "Keliling : " & Keliling, vbInformation, "hasil")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
    End Sub

Jika di Klik tombol "Hitung" maka tampilan akan muncul seperti ini :

Ok...!!! terima kasih telah berkunjung di blog saya, semoga bermanfaat .