PERTEMUAN 4 : Program Sederhana Menghitung Luas dan Keliling Persegi Panjang

   Langkah-langkah menggunakan Visual Studio 2008 : 

   Klik  pada menu Start 

     Pilih menu All program > Microsoft Visual Studio 2008 > Microsoft Visual Studio 2008→Klik dan pilih Menu File > New Project > Windows Form Application, lalu klik tombol OK.

   Mengatur bahasa yang digunakan, misalnya bahasa visual basic. Pilih Windows Form Application untuk menampilkan jendela form/desain pada program yang akan kita buat.

Kemudian pilih media penyimpanan, tulis name judul lembar kerja, OK

1. Tambahkan Form Baru Kedalam Project Pertemuan 3

2. Selanjutnya desain seperti gambar 3.1 dibawah ini:

Gambar 3.1 Desain Form Aplikasi Program Persegi Panjang

Tabel Properties 

Gambar 3.2 Tabel Properties Form Aplikasi Program Persegi Panjang

3. Selanjutnya kita akan melakukan koding untuk langkah ketiga adalah
Double Klik di Button Proses ketikkan kode dibawah ini :

Private Sub ButtonProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonProses.Click

        Dim panjang, lebar As Integer

        Dim luas As Integer

        Dim keliling As Integer

        panjang = Val(TxtPanjang.Text)

        lebar = Val(TxtLebar.Text)

        luas = Val(TxtLuas.Text)

        keliling = Val(TxtKeliling.Text)

        luas = (panjang * lebar)

        TxtLuas.Text = luas

        keliling = (2 * (panjang + lebar))

        TxtKeliling.Text = keliling

    End Sub

End Class

4. Selanjutnya kita akan melakukan koding untuk langkah kedua adalah
Double Klik di Button Bersih ketikkan kode dibawah ini :

Private Sub ButtonBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBersih.Click

        TxtPanjang.Clear()

        TxtLebar.Clear()

        TxtKeliling.Clear()

        TxtLuas.Clear() 

5. Selanjutnya kita akan melakukan koding untuk langkah keempat adalah
Double Klik di Button Tutup ketikkan kode dibawah ini :

Private Sub ButtonTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTutup.Click

        End

    End Sub

End Class

Gambar 3.3 Koding Aplikasi Program Persegi Panjang

Hasil :

6. Ketika menginputkan Nilai Panjang dan Nilai Lebar, kemudian klik Proses maka secara otomatis terhitung Luas & Keliling Persegi Panjang:

Gambar 3.3 Desain Aplikasi Program Persegi Panjang Dijalankan