PROGRAM LATIHAN CARA MENCARI LUAS PERSEGI PANJANG

Di bawah ini adalah desain Formnya

 

Di bawah ini adalah LISTING program Formm di atas

Public Class Form1

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        Luas.Text = Val(Panjang.Text * Lebar.Text)

        Call bersih()

    End Sub

    Sub bersih()

        Panjang.Text = ""

        Lebar.Text = ""

        Panjang.Focus()

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            Luas.Text = Val(Panjang.Text * Lebar.Text)

            Call bersih()

        End If

    End Sub

End Class

CARA PROSESNYA

*Jika panjang di input sesuai yang kita inginkan, ada Lebar juga di inputkan

 

*Maka ketika di klik TOMBOLL PROSES Luas akan terisi