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_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

Leave a Reply