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

CARA MENAMPILKAN HURUF ABJAD

Dibawah ini adalah desain FORMnya

 

Disain di atas menggunakan TEXT BOX

Berikut ini adalah LISTING PROGRAM Form di atas

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For X = 65 To 90

            TextBox1.Text = TextBox1.Text & " " & Chr(X)

        Next

        For X = 90 To 65 Step -1

            TextBox2.Text = TextBox2.Text & " " & Chr(X)

        Next

    End Sub

End Class

KETIKA DI PROSES ATAU F5