Membuat progam untuk menghitung luas trapsium menggunakan vb.net 2008

semua berhubung saya sedang belajar pemograman vb.net, saya mencoba untuk membuat progam  sederhana yaitu menghitung luas trapesium 

 Dan ini source kodenya :   

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtLuas.Text = (Val(txta.Text) + Val(txtb.Text)) * Val(txtTinggi.Text) / 2
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call Bersih()
    End Sub
    Sub Bersih()
        txta.Text = ""
        txtb.Text = ""
        txtTinggi.Text = ""
        txtLuas.Text = ""
        txta.Focus()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
    Sub tampil()
        txta.Focus()
    End Sub

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

Sekian dulu postingan saya , .

blog www.deafaroz.blogspot.com BEBAS DI COPY PASTE posting ini di buat untuk memberikan pengetahuan kepada yang belum mengetahuinya,jadi tidak ada larangan untuk tidak mengcopy di blog ini,trimakasih untuk yang udah mau mengcopy di blog ini,sebarkan ilmu semampu anda dengan ikhlas .