FOTO SAMPUL

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, ...

Category name clash

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. ...

Test with enclosures

Here's an mp3 file that was uploaded as an attachment: Juan Manuel Fangio by Yue And here's a link to an external mp3 file: Acclimate by General Fuzz Both are CC licensed. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, ...

Block quotes

Some block quote tests: Here's a one line quote. This part isn't quoted. Here's a much longer quote: Lorem ipsum dolor sit amet, consectetuer adipiscing elit. In dapibus. In pretium pede. Donec molestie facilisis ante. Ut a turpis ut ipsum pellentesque tincidunt. Morbi blandit sapien in mauris. Nulla lectus lorem, varius aliquet, ...

Contributor post, approved

I'm just a lowly contributor. My posts must be approved by the editor.Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. Maecenas at ...

Latihan_13_46110021

Posted by Unknown - - 0 komentar

Deskripsi Form :
Form Latihan ini Terdapat hanya 1 object yaitu datagridview:
Object Datagridview
object ini akan menampilkan tabel sesuai dengan fungsi yang dimasukkan kedalamnya.
datagridview 1 berisi daftar rekening induk
datagridview 2 berisi daftar rekening sub tiap induk
datagridview 3 berisi daftar rekening subsub dari rekening sub tiap rekening induk
3
                  
Cara Membuat Form latihan13
     silahkan lihat video dibawah ini :

setelah itu ubah nama masing2 text box, klik kanan pada form lalu pilih view code, dan masukkan kode ini (jangan lupa," nama datagridview yang didesain harus sama dengan nama datagridview di vb).



Public Class Latihan_13_46110021

    Dim DTRI As New DataTable
    Dim DTRS As New DataTable
    Dim DTRSS As New DataTable

     Dim idham As New DataSet

     Dim bin1 As New BindingSource
    Dim bin2 As New BindingSource
    Dim bin3 As New BindingSource

     Private Sub Latihan_13_46110021_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DTRI.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

         DTRS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DTRS.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
        DTRS.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

         DTRSS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DTRSS.Columns.Add(New DataColumn("Kode Rekening sub", GetType(String)))
        DTRSS.Columns.Add(New DataColumn("Kode Rekening Sub-sub", GetType(String)))
        DTRSS.Columns.Add(New DataColumn("Nama Rekening Sub-sub", GetType(String)))
        Dim Acak As New Random

         For RI As Integer = 1 To Acak.Next(1, 5)
            DTRI.Rows.Add(RI, "Nama Rekening " & RI)
            For RS As Integer = 1 To Acak.Next(1, 5)
                DTRS.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To Acak.Next(1, 5)
                    DTRSS.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next
        idham.Tables.Add(DTRI)
        idham.Tables.Add(DTRS)
        idham.Tables.Add(DTRSS)
        DTRI.TableName = "ICA"
        DTRS.TableName = "DIS"
        DTRSS.TableName = "OCA"
        idham.Relations.Add(New DataRelation("TA", idham.Tables("ICA").Columns("kode rekening induk"), idham.Tables("dis").Columns("kode rekening induk")))
        idham.Relations.Add(New DataRelation("HI", idham.Tables("DIS").Columns("kode rekening sub"), idham.Tables("oca").Columns("kode rekening sub")))
        bin1.DataSource = idham
        bin1.DataMember = "ica"
        bin2.DataSource = bin1
        bin2.DataMember = "TA"
        bin3.DataSource = bin2
        bin3.DataMember = "HI"
        DataGridView1_46110021.DataSource = bin1
        DataGridView2_46110021.DataSource = bin2
        DataGridView3_46110021.DataSource = bin3
    End Sub
End Class



SCRIPT unik

  1. Dim idham As New DataSet --> fungsi ini untuk mendeklarasaikan idham sebagai data set baru
  2. Dim bin1 As New BindingSource --> fungsinya ialah untuk mendeklarasaikan bin1 sebagai bindingsource.
  3. bin1.DataSource = idham  --> fungsinya ialah untuk mendaatkan data dari dataset
New Toolbox
  1. Datagridview

Langkah untuk menjalankan form ini :
1.    Klik start debugging.
2.   Data akan secxara otomatis muncul pada object datagridview
[ Read More ]

Latihan_12_46110021

Posted by Unknown - - 0 komentar

Deskripsi Form :
Form Latihan ini Terdapat 6 object yaitu label, textbox. button, datetimepicker, groupbox, dan datagridview :
1.    Object Label.
      Terdapat 11 label yang bertuliskan No. pembelian, Nama Barang, Harga perunit, tanggal, unit, jumlah, total unit, total, no. baris, no. pembelian, dan baris sekarang)
2.  Object button
    Terdapat 7 object button (Simpan, Tampilkan(3) dan Hapus(3)). Tombol simpan digunakan untuk menyimpan hasil penginputan data. Tombol tampilkan digunakan untuk menampilkan data yang diinginkan. Tombol hapus digunakan untuk menghapus data yang diinginkan.
3. Object DateTimePicker
Pada latihan 12 terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

4. Object GroupBox
Terdapat 5 object groupbox pada latihan 12 (Formulir, Data, Berdasarkan No. Baris, Berdasarkan No. Pembelian dan Berdasarkan Baris Sekarang)

5. Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data yang telah disimpan sebelumnya.

6.  Object Text Box.
          Terdapat 9 textbox(6 status input,3 berstatus read only). Status input digunakan untuk memasukkan data.                          Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan. fungsi yang akan berjalan dan menghasilkan nilai di text box yang read only:
3
                  
Cara Membuat Form latihan12
     silahkan lihat video dibawah ini :


setelah itu ubah nama masing2 text box, klik kanan pada form lalu pilih view code, dan masukkan kode ini (jangan lupa," nama teks box yang didesain harus sama dengan nama text box di vb).

Public Class Latihan_12_46110021

     Dim tabel As New DataTable

     Private Sub Tamp_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tamp_46110021.Click
        Dim baris As DataRow
        If Val(nobar_46110021.Text) <= tabel.Rows.Count Then

             baris = tabel.Rows(Val(nobar_46110021.Text) - 1)

             Np_46110021.Text = baris("no. pembelian")
            Nb_46110021.Text = baris("nama barang")
            HPu_46110021.Text = baris("harga per unit")
            Tanggal_46110021.Value = baris("tanggal pembelian")
            Unit_46110021.Text = baris("unit")
            Jmlh_46110021.Text = baris("jumlah")

         Else
            MsgBox("baris terlalu besar")

         End If
        nobar_46110021.Text = ""
    End Sub

     Private Sub Hapus_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus_46110021.Click
        Dim baris As DataRow
        If Val(nobar_46110021.Text) <= tabel.Rows.Count Then

             baris = tabel.Rows(Val(nobar_46110021.Text) - 1)
            baris.Delete()

         Else
            MsgBox("no. baris yang dimasukkan tidak ada")

         End If
        nobar_46110021.Text = ""

         zz()
    End Sub

     Private Sub Tamp2_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tamp2_46110021.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nopem_46110021.Text)

         If Not baris Is Nothing Then
            Np_46110021.Text = baris("no. pembelian")
            Nb_46110021.Text = baris("nama barang")
            HPu_46110021.Text = baris("harga per unit")
            Tanggal_46110021.Value = baris("tanggal pembelian")
            Unit_46110021.Text = baris("unit")
            Jmlh_46110021.Text = baris("jumlah")

         Else
            MsgBox("no. pembelian tidak ada")

         End If
        nopem_46110021.Text = ""
    End Sub

     Private Sub Hapus2_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus2_46110021.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nopem_46110021.Text)

         If Not baris Is Nothing Then
            baris.Delete()
            nopem_46110021.Text = ""
        Else
            MsgBox("no. pembelian yang dimasukkan tidak ada")
            nopem_46110021.Text = ""
        End If
        zz()

     End Sub

     Private Sub Tamp3_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tamp3_46110021.Click
        Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

         Np_46110021.Text = baris("no. pembelian")
        Nb_46110021.Text = baris("nama barang")
        HPu_46110021.Text = baris("harga per unit")
        Tanggal_46110021.Value = baris("tanggal pembelian")
        Unit_46110021.Text = baris("unit")
        Jmlh_46110021.Text = baris("jumlah")

     End Sub

     Private Sub Hapus3_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus3_46110021.Click
        Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row
        baris.Delete()

         zz()
    End Sub

     Private Sub simpan_46110021_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles simpan_46110021.Click

         Dim baris As DataRow
        baris = tabel.Rows.Find(Np_46110021.Text)

         If baris Is Nothing Then
            baris = tabel.NewRow

             baris("no. pembelian") = Np_46110021.Text
            baris("nama barang") = Nb_46110021.Text
            baris("harga per unit") = Val(HPu_46110021.Text)
            baris("tanggal pembelian") = Tanggal_46110021.Value.Date
            baris("unit") = Val(Unit_46110021.Text)
            baris("jumlah") = Val(Jmlh_46110021.Text)

             tabel.Rows.Add(baris)

             Np_46110021.Text = ""
            Nb_46110021.Text = ""
            HPu_46110021.Text = ""
            Unit_46110021.Text = ""
            Jmlh_46110021.Text = ""

         Else : MsgBox("baris sudah ada")
            Jmlh_46110021.Text = ""
        End If
        zz()
    End Sub

     Private Sub zz()

         Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        Totunit_46110021.Text = tu
        Total_46110021.Text = total
    End Sub

     Private Sub HPu_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPu_46110021.TextChanged
        Jmlh_46110021.Text = Val(HPu_46110021.Text) * Val(Unit_46110021.Text)
    End Sub

     Private Sub Unit_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110021.TextChanged
        Jmlh_46110021.Text = Val(HPu_46110021.Text) * Val(Unit_46110021.Text)
    End Sub

     Private Sub Latihan_12_46110021_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))
        tabel.Columns.Add(New DataColumn("nama barang", GetType(String)))
        tabel.Columns.Add(New DataColumn("harga per unit", GetType(Double)))
        tabel.Columns.Add(New DataColumn("tanggal pembelian", GetType(Date)))
        tabel.Columns.Add(New DataColumn("unit", GetType(Integer)))
        tabel.Columns.Add(New DataColumn("jumlah", GetType(Double)))

         DataGridView1_46110021.DataSource = tabel

         Dim kolom(1) As DataColumn
        kolom(0) = tabel.Columns("no. pembelian")
        tabel.PrimaryKey = kolom
    End Sub
End Class

 SCRIPT unik

  1. Dim tabel As New DataTable --> fungsi ini untuk mendeklarasaikan tabel sebagai nama table baru
  2. tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String))) --> fungsinya ialahuntuk menambahkan kolom baru 
  3. Private Sub zz()

            Dim tu, total As Integer
            For Each x As DataRow In tabel.Rows
                tu = tu + x("unit")
                total = total + x("jumlah")
            Next
            Totunit_46110021.Text = tu
            Total_46110021.Text = total
        End Sub
    fungsinya ialah untuk merefresh data total unit dan total yang berada dibawah datagridview
New Toolbox
  1. Datagridview
  2. groupbox

Langkah untuk menjalankan form ini :
1.    Klik start debugging.
2.    Isi text box yang berstatus input
3.    Hasil akan muncul sendri ketika text box yang berstatus input telah diisi.




[ Read More ]

Latihan_11_46110021

Posted by Unknown - - 0 komentar

Deskripsi Form :
Form Latihan ini Terdapat dua object yaitu label, dan textbox:
1.    Object Label.
      Terdapat 14 label (yang bertuliskan Indeks Prestasi Komulatif, Stambuk, Nama, Mata Kuliah, Nilai Mutu (N), SKS (S), NxS, Pengantar Akuntansi, Akuntansi intermediate, Akuntansi Advance, Akuntansi Biaya, Sistem Akuntansi, Total, IPK)

2.   Object Text Box.
          Terdapat 20 textbox(12 status input, 8 berstatus read only). Status input digunakan untuk memasukkan data.                          Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan. fungsi yang akan berjalan dan menghasilkan nilai di text box yang read only:
            a. N x S = Nilai Mutu (N) x SKS (S)
            b. Total = Penjumlahan semua SKS, Pejumlahan semua nilai N x S
            c. IPK= Total NxS / Total SKS

      
Cara Membuat Form latihan11
     silahkan lihat video dibawah ini :


setelah itu ubah nama masing2 text box, klik kanan pada form lalu pilih view code, dan masukkan kode ini (jangan lupa," nama teks box yang didesain harus sama dengan nama text box di vb. contohnya tulisan yang bercap kuning dibawah ini, itu harus sesuai dengan nama text box yang anda buat.

Public Class Latihan_11_46110021

    Private Sub konfersi(ByVal nilai As TextBox, ByVal sks As TextBox, ByVal hasil As TextBox)
        If nilai.Text = "A" Then
            hasil.Text = 4 * Val(sks.Text)
        ElseIf nilai.Text = "B" Then
            hasil.Text = 3 * Val(sks.Text)
        ElseIf nilai.Text = "C" Then
            hasil.Text = 2 * Val(sks.Text)
        ElseIf nilai.Text = "D" Then
            hasil.Text = 1 * Val(sks.Text)
        Else
            hasil.Text = 0
        End If
    End Sub

    Private Sub pas_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pas_46110021.TextChanged
        konfersi(Pan_46110021, pas_46110021, pah_46110021)
        totsks()
        totha()
        ipk()
    End Sub

    Private Sub ais_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ais_46110021.TextChanged
        konfersi(ain_46110021, ais_46110021, aih_46110021)
        totsks()
        totha()
        ipk()
    End Sub

    Private Sub aas_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aas_46110021.TextChanged
        konfersi(aan_46110021, aas_46110021, aah_46110021)
        totsks()
        totha()
        ipk()
    End Sub

    Private Sub abs_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles abs_46110021.TextChanged
        konfersi(abn_46110021, abs_46110021, abh_46110021)
        totsks()
        totha()
        ipk()
    End Sub

    Private Sub sas_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sas_46110021.TextChanged
        konfersi(san_46110021, sas_46110021, sah_46110021)
        totsks()
        totha()
        ipk()
    End Sub
    Private Sub totsks()
        ts_46110021.Text = Val(pas_46110021.Text) + Val(ais_46110021.Text) + Val(aas_46110021.Text) + Val(abs_46110021.Text) + Val(sas_46110021.Text)
    End Sub
    Private Sub totha()
        th_46110021.Text = Val(pah_46110021.Text) + Val(aih_46110021.Text) + Val(aah_46110021.Text) + Val(abh_46110021.Text) + Val(sah_46110021.Text)
    End Sub
    Private Sub ipk()
        ipk_46110021.Text = Val(th_46110021.Text) / Val(ts_46110021.Text)
    End Sub

End Class
Langkah untuk menjalankan form ini :
1.    Klik start debugging.
2.    Isi text box yang berstatus input
3.    Hasil akan muncul sendri ketika text box yang berstatus input telah diisi.

Scipt unik
  Private Sub konfersi(ByVal nilai As TextBox, ByVal sks As TextBox, ByVal hasil As TextBox)
        If nilai.Text = "A" Then
            hasil.Text = 4 * Val(sks.Text)
        ElseIf nilai.Text = "B" Then
            hasil.Text = 3 * Val(sks.Text)
        ElseIf nilai.Text = "C" Then
            hasil.Text = 2 * Val(sks.Text)
        ElseIf nilai.Text = "D" Then
            hasil.Text = 1 * Val(sks.Text)
        Else
            hasil.Text = 0
        End If
    End Sub 
    script diatas digunakan sebagai Prosedur yang memiliki syarat seperti diatas.
Even
Text Change
[ Read More ]

Latihan_10_46110021

Posted by Unknown - - 0 komentar

Deskripsi Form :
Form Latihan 10 Terdapat dua object yaitu label, dan textbox:
1.    Object Label.
      Terdapat 9 label (yang bertuliskan Nama Perusahaan,Nama Pegawai, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5, PKP, dan PPh)

2.   Object Text Box.
          Terdapat 11 textbox(6status input, 5 berstatus read only). Status input digunakan untuk memasukkan data.                          Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan. fungsi yang akan berjalan dan menghasilkan nilai di text box yang read only ialah rumus perhitungan pph 21 terbaru.

      
Cara Membuat Form latihan10
     silahkan lihat video dibawah ini :

setelah itu ubah nama masing2 text box, klik kanan pada form lalu pilih view code, dan masukkan kode ini (jangan lupa," nama teks box yang didesain harus sama dengan nama text box di vb. contohnya tulisan yang bercap kuning dibawah ini, itu harus sesuai dengan nama text box yang anda buat.

Public Class Latihan_10_46110021

    Private Sub pph(ByVal pkp As TextBox, ByVal pph As TextBox)
        If pkp.Text >= 500000000 Then
            pph.Text = (0.5 * 50000000) + (0.15 * 200000000) + (0.25 * 250000000) + (0.3 * (Val(pkp.Text) - 500000000))
        ElseIf pkp.Text >= 250000000 Then
            pph.Text = (0.5 * 50000000) + (0.15 * 200000000) + (0.25 * (Val(pkp.Text) - 250000000))
        ElseIf pkp.Text >= 50000000 Then
            pph.Text = (0.5 * 50000000) + (0.15 * (Val(pkp.Text) - 50000000))
        ElseIf pkp.Text >= 0 Then
            pph.Text = 0.05 * Val(pkp.Text)
        End If
    End Sub

    Private Sub p1_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p1_46110021.TextChanged
        pph(p1_46110021, ph1_46110021)
    End Sub

    Private Sub p2__46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p2_46110021.TextChanged
        pph(p2_46110021, ph2_46110021)
    End Sub

    Private Sub p3_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p3_46110021.TextChanged
        pph(p3_46110021, ph3_46110021)
    End Sub

    Private Sub p4_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p4_46110021.TextChanged
        pph(p4_46110021, ph4_46110021)
    End Sub

    Private Sub p5_46110021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p5_46110021.TextChanged
        pph(p5_46110021, ph5_46110021)
    End Sub

End Class

Langkah untuk menjalankan form ini :
1.    Klik start debugging.
2.    Isi text box yang berstatus input
3.    Hasil akan muncul sendri ketika text box yang berstatus input telah diisi.

Scipt unik
    pph(p5_46110021, ph5_46110021) .,, script ini digunakan sebagai data dari fungsi prosedure yang tela di buat. urutan text box nya harus sama dengan urutan yang ada di prosedure. (Private Sub pph(ByVal pkp As TextBox, ByVal pph As TextBox)
Even
Text Changed
[ Read More ]