MENGHITUNG LUAS SEGITIGA VB.NET

Hitung Luas Segitiga VB.Net 2005

 

Ket : Form Name : HitungLuasSegitiga

      Button Hitung Name: cmd_hitung, Button Ulang Name: cmd_ulang

      Button Keluar Name: cmd_keluar

      Alas -> Name: TxtAlas, Tinggi-> Name: TxtTinggi, Luas -> Name: TxtLuas

Public Class HitungLuasSegitiga

    'Deklarasi field dgn jangkauan nilai public

    Public Alas As Single

    Public Tinggi As Single

    'Method

    'Menggunakan fungsi tanpa parameter

    Public Function LuasSegitiga() As Single

        Return 0.5 * Alas * Tinggi

    End Function

    Public Function HanyaAngka(ByVal kode As String) As Boolean

        If (kode >= 48 And kode <= 57) Or kode = 8 Then

            HanyaAngka = False

        Else

            HanyaAngka = True

        End If

    End Function

    Private Sub cmd_hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_hitung.Click

        'Ciptakan objek dari class HitungLuasSegitiga

        Dim objSegitiga As New HitungLuasSegitiga

        With objSegitiga

            .Alas = txtAlas.Text

            .Tinggi = txtTinggi.Text

            TxtLuas.Text = .LuasSegitiga()

        End With

    End Sub

    Private Sub cmd_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_keluar.Click

        Me.Close()

    End Sub

    Private Sub cmd_ulang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_ulang.Click

        Dim ctl As Control

        For Each ctl In Me.Controls

            If TypeOf ctl Is TextBox Then ctl.Text = ""

        Next

        TxtAlas.Focus()

    End Sub

    Private Sub TxtAlas_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtAlas.KeyPress

        e.Handled = HanyaAngka(Asc(e.KeyChar))

    End Sub

    Private Sub TxtTinggi_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtTinggi.KeyPress

        e.Handled = HanyaAngka(Asc(e.KeyChar))

    End Sub

End Class

BY WILLH NOBIS   AMIK HASS BANDUNG