TUGAS PERTEMUAN 4 : Program Sederhana Menghitung Luas Lingkaran, Diameter Lingkaran, Kelilng Lingkaran

 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 Lingkaran

Tabel Properties

                                 Gambar 3.2 Tabel Properties Form Aplikasi Program Lingkaran

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

                                                           Gambar 3.3 Koding Aplikasi Program Lingkaran

Public Class FormAplikasiLingkaran

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

        Dim jarijari As Double

        Dim tinggi As Double

        Dim luas As Double

        Dim diameter As Double

        Dim keliling As Integer

        jarijari = Val(Txtjari.Text)

        tinggi = Val(TxtTinggi.Text)

        luas = 22 / 7 * (jarijari ^ 2)

        TxtLuasLingkaran.Text = luas

        diameter = 2 * (jarijari)

        TxtDiameterLingkaran.Text = diameter

        keliling = 22 / 7 * (diameter)

        TxtKelilingLingkaran.Text = keliling

    End Sub

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

        Txtjari.Clear()

        TxtLuasLingkaran.Clear()

        TxtTinggi.Clear()

        TxtDiameterLingkaran.Clear()

        TxtKelilingLingkaran.Clear()

        Txtjari.Focus()

    End Sub

5. Selanjutnya kita akan melakukan koding untuk langkah ketiga 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

Output :

6. Ketika menginputkan Nilai Jari-Jari Lingkaran dan Nilai Tinggi, kemudian klik Proses maka secara otomatis terhitung Luas Lingkaran, Diameter Lingkaran & Keliling Lingkaran:

Gambar 3.4 Desain Aplikasi Program Lingkaran Dijalankan