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
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
Post a Comment