Menghitung Luas dan Keliling Lingkaran dengan VB.net 2005

Membuat program menghitung luas dan keliling lingkaran dengan VB.net - Pada artikel sebelumnya saya telah membuat program menghitung luas kubus. Sekarang sebagai lanjutanya saya akan membuat program untuk menghitung luas dan keliling lingkaran.

• Lanjutkan program sebelumnya.
• Buatlah form baru dengan cara pilih Project - Add Windos Form... pada menu. Kemudian beri nama lingkaran.vb

• Sekarang desainlah form seperti ini. Untuk membuat kotak gunakanlah Group pada ToolBox. Kemudian cut (Ctrl+X) label dan textbox ke dalam Group tersebut.
• Untuk luas dan keliling gunakanlah RadioButton.

• TextBox1 ganti namanya dengan TxtJari
• RadioButton1 ganti dengan RadLuas
• RadioButton2 ganti dengan RadKeliling
• TextBox2 ganti dengan TxtHasil
• Buatlah label tanpa nama diatas TxtHasil, kemudian pada Name di properties ketikan LblHasil
   

Silahkan copy kode dibawah jika Anda tidak mau mengetik, tapi alangkah baikknya Anda ketik kode di bawah ini agar lebih memahami (:


Public Class Lingkaran

    Private Sub RadLuas_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadLuas.Click
        If Me.RadLuas.Checked = True Then
            Me.LblHasil.Text = "LUAS :"
            Me.TxtHasil.Text = 3.14 * Val(Me.TxtJari.Text) ^ 2
        End If
    End Sub

    Private Sub RadKeliling_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadKeliling.Click
        If Me.RadKeliling.Checked = True Then
            Me.LblHasil.Text = "KELILING :"
            Me.TxtHasil.Text = 2 * 3.14 * Val(Me.TxtJari.Text)
        End If
    End Sub

    Private Sub RadLuas_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadLuas.CheckedChanged

    End Sub
End Class


Sekarang eksekusi programnya apakah berjalan tanpa hambatan? Jika yang berjalan adalah Form Kubus, maka silahkan baca Cara Memilih Form Yang Akan Dijalankan. :D Semoga bermanfaat.
Untuk selanjutnya saya akan membuat program Menghitung Persegi Panjang.