Program Menghitung Luas Trapesium Menggunakan Visual Basic 2010

Flowchart Luas Trapesium

Langkah-langkah Membuat Program

1. Buka Visual Basic 2010

2. Pilih New Project

3. Masukkan 5 Label, 4 Textbox, dan 2 Button

4. Ubah text pada Label sebagai berikut:

    Label 1 : Luas Trapesium

    Label 2 : Sisi pertama

    Label 3 : Sisi kedua

    Label 4 : Tinggi

    Label 5 : Luas Trapesium

5. Ubah name pada Textbox sebagai berikut:

   Textbox 1 : txtsisipertama

   Textbox 2 : txtsisikedua

   Textbox 3 : txttinggi

   Textbox 4 : txtluas

6. Ubah text pada Button sebagai berikut:

   Button 1 : Hitung

   Button 2 : Refresh

7. Ubah name pada Button sebagai berikut:

   Button 1 : btnhitung

   Button 2 : btnrefresh

8. Kemudian klik dua kali pada button Hitung dan ketikkan kode program berikut:

   Private Sub btnhitung_Click

        Dim sisipertama, sisikedua, tinggi, luas As Single

        sisipertama = Val(txtsisipertama.Text)

        sisikedua = Val(txtsisikedua.Text)

        tinggi = Val(txttinggi.Text)

        If txtsisipertama.Text = "" Or txtsisikedua.Text = "" Or txttinggi.Text = "" Then

            MsgBox("Tolong masukkan nilai sisi pertama, sisi kedua, dan tinggi terlebih dulu")

        ElseIf sisipertama > 0 And sisikedua > 0 And tinggi > 0 Then

            luas = 1 / 2 * (sisipertama + sisikedua) * tinggi

            txtluas.Text = luas

        End If

    End Sub

9. Selanjutnya, klik dua kali pada button Refresh dan ketikkan kode program berikut:

   Private Sub btnrefresh_Click

        txtsisipertama.Text = ""

        txtsisikedua.Text = ""

        txttinggi.Text = ""

        txtluas.Text = ""

    End Sub

End Class

10. Terakhir, simpan file dan export dengan format .exe

Tampilan program ketika dijalankan