Deskripsi_Latihan_10_36110054

Cara Membuat Progam/Apliaksi Latihan 10

Dengan Software Microsoft Visual Basic 2008

Langkah 1 :
Buka Aplikasi Visual Basic 2008/Visual Studio 2008

     Langkah Kedua : Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

Langkah Ke 3 : Rancanglah From Seperti Gambar Berikut Berikut :

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan_10_36110054
Label	Text : Nama Perusahaan
Label	Text : Nama Pegawai
Label	Text : Pegawai 1
Label	Text : Pegawai 2
Label	Text : Pegawai 3
Label	Text : Pegawai 4
Label	Text : Pegawai 5
Label	Text : PKP
Label	Text : PPH 21
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)

  Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_10_36110054
    Private Sub CULLANK(ByVal PKP As TextBox, ByVal PPH As TextBox)
        If Val(PKP.Text) <= 50000000 Then
            PPH.Text = FormatCurrency((Val(PKP.Text) * 5 / 100), 2)
        ElseIf Val(PKP.Text) <= 250000000 Then
            PPH.Text = FormatCurrency(((Val(PKP.Text) - 50000000) * 15 / 100) + (50000000 * 5 / 100), 2)
        ElseIf Val(PKP.Text) <= 500000000 Then
            PPH.Text = FormatCurrency(((Val(PKP.Text) - 250000000) * 25 / 100) + (200000000 * (15 / 100)) + (50000000 * 5 / 100), 2)
        Else
            PPH.Text = FormatCurrency(((Val(PKP.Text) - 500000000) * 30 / 100) + (250000000 * (25 / 100)) + (200000000 * (15 / 100)) + (50000000 * 5 / 100), 2)
        End If
    End Sub


    Private Sub PKP1_36110054_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP1_36110054.TextChanged
        CULLANK(PKP1_36110054, PPH1_36110054)
    End Sub

    Private Sub PKP2_36110054_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PKP2_36110054.TextChanged
        CULLANK(PKP2_36110054, PPH2_36110054)
    End Sub

    Private Sub PKP3_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP3_36110054.TextChanged
        CULLANK(PKP3_36110054, PPH3_36110054)
    End Sub

   
    Private Sub PKP4_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP4_36110054.TextChanged
        CULLANK(PKP4_36110054, PPH4_36110054)
    End Sub

  
    Private Sub PKP5_36110054_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PKP5_36110054.TextChanged
        CULLANK(PKP5_36110054, PPH5_36110054)
    End Sub
End Class