Source Code VB.net menghitung Volume Pekerjaan persiapan atau Bouwplank

Open source cde Visual Basic.net membuat aplikasi Penghitung Volume Pekerjaan persiapan / Bouplank , sebagai bahan pembelajaran berikut print  Screennya;

Source Kode :

Public Class Bouwplank
    Public Panjang As Single
    Public Lebar As Single
    Public PanjangTiang As Single = 1
    Public jaraktiang As Single = 2
    Public Function luas() As Double
        Return Panjang * Lebar
    End Function
    Public Function banyaktiang() As Double
        Return Panjang * Lebar / jaraktiang
    End Function
    Public Function pt() As Double
        Return PanjangTiang = 1
    End Function
    Public Function jt() As Double
        Return jaraktiang = 2
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Hitung As New Bouwplank
        With Hitung
            .Panjang = TextBox1.Text
            .Lebar = TextBox2.Text
            Label12.Text = .luas()
            TextBox5.Text = .banyaktiang()
            TextBox3.Text = .PanjangTiang
            TextBox4.Text = .jaraktiang
            TextBox8.Text = .luas()
            TextBox13.Text = .PanjangTiang
        End With
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox10.Text = Val(TextBox6.Text) * Val(TextBox7.Text) * Val(TextBox9.Text) * Val(TextBox8.Text)
        TextBox14.Text = Val(TextBox11.Text) * Val(TextBox12.Text) * Val(TextBox13.Text) * Val(TextBox8.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label11.Text = TextBox10.Text + TextBox14.Text
    End Sub

End Class