Selamat datang di BLOGchanif.com

Program Menghitung Luas dan Keliling Lingkaran

Friday, September 27, 20130 komentar

Program Menghitung  Luas dan Keliling Lingkaran adalah pelajaran sederhana dalam pemogroman, karena disini lah awal dari kesempurnaan progam. Kami berharap Semoga Program Menghitung Luas dan Keliling Lingkaran ini dapat bermanfaat bagi para programer dasar.





Berikut adalah Listing Program Menghitung luas dan  Keliling 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

Demikian dari Program Menghitung Luas dan Keliling Lingkaran
Share this article :

Post a Comment

 
Support : Cara Gampang | Resep Masakan Kampung | Johny Template | Mas Templatea | Mesran[dot]Net
Copyright © 2011. BLOGchanif.com - All Rights Reserved
Template Created by Creating Website Modify by CaraGampang.Com
Proudly powered by Blogger