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

Free Open Sorce VB.net Menghitung Volume Lingkaran dan Tabung

Source Kode Freeware Menghitung Volume Lingkaran dan Tabung menggunakan VB.net 2005 sebagai bahan pembelajaran berikut SccreenShoot dan source Code.

Public Class lingkaran
    Public jari_jari As Single
    Const phi = 3.14
    Public Class tabung
        Public tinggi As Single
        Public jari_jari As Single
        Const phi = 3.14
        Public Function volume_tabung() As Double
            Return phi * jari_jari * jari_jari * tinggi
        End Function
    End Class
    Public Function luas_lingkaran() As Double
        Return phi * jari_jari * jari_jari
    End Function
    Public Function keliling_lingkaran() As Double
        Return 2 * phi * jari_jari
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ojecklingkaran As New lingkaran
        With ojecklingkaran
            .jari_jari = TextBox1.Text
            Label4.Text = .luas_lingkaran()
            Label5.Text = .keliling_lingkaran()
        End With
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim tabung As New tabung
        With tabung
            .tinggi = TextBox2.Text
            .jari_jari = TextBox3.Text
            Label8.Text = .volume_tabung
        End With
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        Label4.Text = ""
        Label5.Text = ""
        Label8.Text = ""
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        hitungsegitiga.Show()
    End Sub

End Class

Aplikasi Perkantoran Kode Klasifikasi Arsip Surat KKSD

KKSD Merupakan aplikasi simple yang dibangun menggunkan VB.net 2005 aplikasi ini dapat dijalankan di PC win 32 Bit maupun 64 bit xp / win7/win 8. KKSD dirancang dengan sederhana atas dasar Pedoman Kode Uraian Nomenklatur tata kode arsip surat dinas, dengan KKSD  untuk mencari indek dan atau Kode Surat tertentu sangatlah simple hanya ketik / klik Button Cari maka kode yang di tuju akan tampil dengan hitungan detik di TextBox dan juga disediakan button Print bila hendah membackup / mencetak untuk arsip. KKSD dirilis untuk masa depan yang panjang , di sertakan Button fungsi Tambah, Simpan, Hapus, Ubah dll dengan tujan bilamana Terjadi Perubahan Kode dikemudian hari dapat dirubah dan tau diinput baru . berikut Secren Shoot Properti Aplikasi KKSD ( Kode Klasifikasi Surat Dinas ) .

 

Download 1

Dwonload 2

SKETSA RUMAH TIPE 45 DI DUSUN SUKASARI JAWA BARAT

1. Gambar Rencana Denah

2. Tampak Depan