Tugas Pemograman Visual Menghitung Luas

Program yang saya buat adalah Program Sederhana Untuk Menghitung Luas Segitiga Dan Persegi Panjang   

.

Cara Menggunakannya adalah :

Cara Menggunakan Program untuk Menghitung Luas SEGITIGA pada Program tersebut .

• ·         Kita tinggal mengisi Nilai Alas Dan Tinggi Pada TextBox yang Sudah Di Siapkan

• ·         Setelah itu kita tinggal mengklik Button HASIL pada Samping Rumus Segitiga Tersebut dan anda akan mengetahui hasil dari perhitungan luas Segitiga

 Contoh :

Cara Menggunakan Program menghitung Luas Persegi Panjang pada Program tersebut .

• ·         Sama halnya dengan menghitung luas segitiga , kita tinggal memasukkan nilai Alas dan tinggi Pada Text Box Yang sudah disediakan

• ·         Setelah itu kita tinggal meng-klik button HASIL Pada Samping perhitungan persegi panjang dan kita akan mengetahui hasilnya

 Contoh : 

Berikut Listing Program tersebut.

  Listing Program :

Public Class Form1
    Dim a, b, c, d As Double
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = txtalas.Text()
        b = txttinggi.Text()
        c = (a * b) / 2
        MsgBox("Luas Segitiga = " & c)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        a = txtpanjang.Text()
        b = txtlebar.Text()
        c = a * b
        MsgBox("luas Persegi Panjang = " & c)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        txttinggi().Clear()
        txtpanjang.ResetText()
        txtlebar.Text = ""
        txtalas.Clear()
        txtalas.Focus()
    End Sub

  
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("Anda yakin", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
            Me.Close()

        End If

    End Sub
End Class

Program ini di buat untuk memenuhi Tugas Pemograman Visual .