Tugas VB4

1.

ren1

Private Sub Cmdpros_Click()

Dim S As String

Txtthn.Text = “20” & Right(Txtkbuk.Text, 2)

S = Left(Txtkbuk.Text, 1)

If S = “A” Then

Pnb = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pnb = “Indah Surabaya”

ElseIf S = “S” Then

Pnb = “Salemba Empat”

ElseIf S = “E” Then

Pnb = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnb = “Maxicom”

End If

P = Mid(Txtkbuk.Text, 3, 3)

If P = “SIM” Then

Jdlb = “Sisitem Informasi Manajemen”

Peng = “Andra Setiawan”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlb = “Elektronik Data Processing”

Peng = “Desi Istiqomah”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlb = “Manajemen”

Peng = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlb = “Corel draw”

Peng = “Tri Indah Sari”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlb = “Rekayasa Perangkat Lunak”

Peng = “Ernita”

Hrg = “83000”

End If

Txtpnb.Text = Pnb

Txtjdb.Text = Jdlb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub.

 

Private Sub Cmdlagi_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdlb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

ren2

Private Sub Cmdpros_Click()

Dim S As String

Txtthn.Text = “20” & Mid(Txtkbuk.Text, 5, 2)

S = Right(Txtkbuk.Text, 1)

If S = “A” Then

Pnb = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pnb = “Indah Surabaya”

ElseIf S = “S” Then

Pnb = “Salemba Empat”

ElseIf S = “E” Then

Pnb = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnb = “Maxicom”

End If

P = Left(Txtkbuk.Text, 3)

If P = “SIM” Then

Jdlb = “Sisitem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlb = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlb = “Manajemen”

Peng = “Rian Hidayat”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlb = “Corel draw”

Peng = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlb = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hrg = “83000”

End If

Txtpnb.Text = Pnb

Txtjdb.Text = Jdlb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlagi_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkelwr_Click()

End

End Sub

3.

ren3

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

Private Sub Cmdprs_Click()

Dim Jb, Bg, Gl, Ks, St As String

Dim Gjp, Tun, Tgj As Currency

Txtthn.Text = Left(Txtnik.Text, 4)

Z = Mid(Txtnik.Text, 5, 1)

If Z = “A” Then

Gl = “A”

Jb = “Manajer”

Gjp = “4000000”

Tun = “1025000”

ElseIf Z = “B” Then

Gl = “B”

Jb = “Ka.seksi”

Gjp = “3500000”

Tun = “975000”

ElseIf Z = “C” Then

Gl = “C”

Jb = “Staff”

Gjp = “3000000”

Tun = “925000”

End If

 

K = Mid(Txtnik.Text, 7, 1)

If K = “S” Then

Ks = “S”

St = “Single”

ElseIf K = “M” Then

Ks = “M”

St = “Menikah”

ElseIf K = “J” Then

Ks = “J”

St = “Janda”

ElseIf K = “D” Then

Ks = “D”

St = “Duda”

End If

 

T = Right(Txtnik.Text, 3)

If T = “KEU” Then

Bg = “Accounting”

ElseIf T = “ADM” Then

Bg = “Administrasi”

ElseIf T = “SDM” Then

Bg = “General Affair”

ElseIf T = “EDP” Then

Bg = “IT Unit”

ElseIf T = “SPM” Then

Bg = “Security”

End If

Tgj = Val(Gjp) + Val(Tnj)

Txtgjp.Text = Gjp

Txtjbt.Text = Jb

Txttun.Text = Tun

Txtsta.Text = St

Txtbag.Text = Bg

Txtgol.Text = Gl

Txtkds.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlagi_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkds = “”

Txtsta = “”

Txtthn = “”

Txtjbt = “”

Txtbag = “”

Txtgjp = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkds = “”

Txtsta = “”

Txtthn = “”

Txtjbt = “”

Txtbag = “”

Txtgjp = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

ren4

Private Sub Cmdpros_Click()

Dim S As String

Txtthn.Text = “20” & Right(Txtkbuk.Text, 2)

S = Left(Txtkbuk.Text, 1)

If S = “A” Then

Pnb = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pnb = “Indah Surabaya”

ElseIf S = “S” Then

Pnb = “Salemba Empat”

ElseIf S = “E” Then

Pnb = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnb = “Maxicom”

End If

P = Mid(Txtkbuk.Text, 3, 3)

If P = “SIM” Then

Jdlb = “Sisitem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlb = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlb = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlb = “Corel draw”

Peng = “Riyan Suhadi”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlb = “Rekayasa Perangkat Lunak”

Peng = “Sinta Umpu Singa”

Hrg = “83000”

End If

Txtpnb.Text = Pnb

Txtjdbk.Text = Jdlb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlgi_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s