Tugas 1
Private sub cmdbatal_click ()
Txtkodebuku.setfocus
Txtkodebuku.text = ””
Txtjudulbuku.text = ””
Txtpengarang.text = ””
Txttahunterbit.text = ””
Txtpenerbit.text = ””
Txtharga.text = ””
Private sub cmdkeluar_click()
unload me
end sub
Private sub cmdlagi_click()
Txtkodebuku.setfocus
Txtkodebuku.text = ””
Txtjudulbuku.text = ””
Txtpengarang.text = ””
Txttahunterbit.text = ””
Txtpenerbit.text = ””
Txtharga.text = ””
end sub
Private sub cmdproses_click()
Dim JB, PGR, PNRB As String
Dim TT, HRG AS Curency
Txtkodebuku.text = left (txtkodebuku.text, 3)
IF M = ”SIM” Then
M = ”SIM”
JB = ”Sistem Informasi Manajemen”
PGR = ”Fadiya Ulfa”
HRG =”75900”
Else IF M= ”EDP” Then
M = ”EDP”
JB = ”Elektronik Data Processing”
PGR = ”Nurul Agustina”
HRG = ”62000”
Else IF M =”MNJ” Then
M = ”M”
JB = ”Manajemen”
PGR = ”Rian Hidayat”
HRG = ”42000”
Else IF M = ”CDR” Then
M = ”CDR”
JB = ”Corel Draw”
PGR = ”Siti Nur Khotimah”
HRG = ”53000”
Else IF M = ”RPL” Then
M = ”RPL”
JB = ”Rekayasa Perangkat Lunak”
PGR = ”Winda Erlianti”
HRG = ”83000”
End IF
Txtmerkbuku.text = M
Txtjudulbuku.text = JB
Txtpengarang.tet = PGR
Txtharga.text = HRG
Txttahunterbit.text = ”20” & mid (txtkodebuku.text, 5, 2)
KB = Right (txtkodebuku.text, 1)
IF KB = ” A” Then
KB = ”A”
PNRB = ”Andi Offset Yogyakarta”
Else IF KB = ”I” Then
KB = ”I”
PNRB = ”Indah Surabaya”
Else IF KB = ”S” Then
KB = ”S”
PNRB = ”Salemba Empat”
Else IF KB = ”E” Then
KB = ”E”
PNRB = ”Elek Media Komputindo”
Else IF KB = ”M” Ten
KB = ”M”
PNRB = ”Maxicom”
End IF
Txtkodebuku.text = KB
Txtpenerbit.text = PNRB
Private sub cmdkeluar_click()
end
end sub
Tugas 2
Private sub cmdbatal_click ()
Txtkodebuku.setfocus
Txtkodebuku.text = ””
Txtjudulbuku.text = ””
Txtpengarang.text = ””
Txttahunterbit.text = ””
Txtpenerbit.text = ””
Txtharga.text = ””
Private sub cmdkeluar_click()
unload me
end sub
Private sub cmdlagi_click()
Txtkodebuku.setfocus
Txtkodebuku.text = ””
Txtjudulbuku.text = ””
Txtpengarang.text = ””
Txttahunterbit.text = ””
Txtpenerbit.text = ””
Txtharga.text = ””
end sub
Private sub cmdproses_click()
Dim JB, PGR, PNRB As String
Dim TT, HRG AS Curency
Txtkodebuku.text = left (txtkodebuku.text, 1)
IF KB = ” A” Then
KB = ”A”
PNRB = ”Andi Offset Yogyakarta”
Else IF KB = ”I” Then
KB = ”I”
PNRB = ”Indah Surabaya”
Else IF KB = ”S” Then
KB = ”S”
PNRB = ”Salemba Empat”
Else IF KB = ”E” Then
KB = ”E”
PNRB = ”Elek Media Komputindo”
Else IF KB = ”M” Then
KB = ”M”
PNRB = ”Maxicom”
End IF
Txtkodebuku.text = KB
Txtpenerbit.text = PNRB
Txtkodebuku.text = mid (txtkodebuku.text, 3, 3)
IF M = ”SIM” Then
M = ”SIM”
JB = ”Sistem Informasi Manajemen”
PGR = ”Andra Setiawan”
HRG =”75900”
Else IF M= ”EDP” Then
M = ”EDP”
JB = ”Elektronik Data Processing”
PGR = ”Desi Istiqomah”
HRG = ”62000”
Else IF M =”MNJ” Then
M = ”M”
JB = ”Manajemen”
PGR = ”Sandy Fitrajaya”
Hrg = ”42000”
Else IF M = ”CDR” Then
M = ”CDR”
JB = ”Corel Draw”
PGR = ”Tri Indah Sari”
HRG = ”53000”
Else IF M = ”RPL” Then
M = ”RPL”
JB = ”Rekayasa Perangkat Lunak”
PGR = ”Ernita”
HRG = ”83000”
End IF
Txtmerkbuku.text = M
Txtjudulbuku.text = JB
Txtpengarang.tet = PGR
Txtharga.text = HRG
Txttahunterbit.text = ”20” & Right (txtkodebuku.text, 2)
Private sub cmdkeluar_click()
end
end sub
Tugas 3
Private sub txtnama_keypress (keyascii as integer)
If key Ascii = 13 Then
Txtnik.setfocus
end if
end sub
Private sub cmdproses_click()
Dim JBT, BG As String
Dim GP, TJ, TG As Curency
Txttahun.text = left (txtnik.text, 4)
G = mid (txtnik.tet, 5, 1)
If G = ”A” Then
G = ”A”
JBT = ”Manager”
GP = ”4000000”
TJ = ”1025000”
Else IF G = ”B” Then
G = ”G”
JBT = ”Kep. Seksi”
GP = ”3500000”
TJ = ”975000”
Else IF G = ”C” Then
G = ”C”
JBT = ”Staff”
GP = ”3000000”
TJ = ”925000”
End If
Txtgol.text = G
Txtjabatan.text = JBT
Txtgapok.text = GP
Txttunjangan.text = TJ
KS = mid (txtnik.text, 7, 1)
If KS = ”S” Then
KS = ”S”
K.Status = ”Single”
If KS = ”M” Then
KS = ”M”
K.Status = ”Married”
If KS = ”S” Then
KS = ”S”
K.Status = ”Married”
If KS = ”J” Then
KS = ”J”
K.Status = ”Janda”
If KS = ”D”’ Then
KS = ”D”
K.Status = ”Duda”
End If
Txtkode.text = KS
TxtStatus.text = K. Status
TG = Val (Txtgapok.text)+val(Txttunjangan.text)
TxttotalG.text = TG
B = Right (txtnik.text, 3)
If B = ”KEU” Then
Txtbag.text = ” Acounting”
Else If B = ”ADM” Then
Txtbag.text = ”Administrasi”
Else If B = ”SDM” Then
Txtbag.tet = ”General Affair”
Else If B = ”EDP” Then
Txtbag.text = ”IT Unit”
Else If B = ”SPM” Then
Txtbag.text = ”Security”
End If
Private sub cmdkeluar_click()
end
end sub
Tugas 4
Private sub cmdbatal_click ()
Txtkodebuku.setfocus
Txtkodebuku.text = ””
Txtjudulbuku.text = ””
Txtpengarang.text = ””
Txttahunterbit.text = ””
Txtpenerbit.text = ””
Txtharga.text = ””
Private sub cmdkeluar_click()
unload me
end sub
Private sub cmdlagi_click()
Txtkodebuku.setfocus
Txtkodebuku.text = ””
Txtjudulbuku.text = ””
Txtpengarang.text = ””
Txttahunterbit.text = ””
Txtpenerbit.text = ””
Txtharga.text = ””
end sub
Private sub cboproses_click()
Dim JB, PGR, PNRB As String
Dim TT, HRG AS Curency
Select Case cbokodebuku.text = left (cbokodebuku.text, 1)
Case = ” A”
PNRB = ”Andi Offset Yogyakarta”
Case = ”I”
PNRB = ”Indah Surabaya”
Case = ”S”
PNRB = ”Salemba Empat”
Case = ”E”
PNRB = ”Elek Media Komputindo”
Case = ”M”
PNRB = ”Maxicom”
End Select
Txtpenerbit.text = PNRB
Select Case cbokodebuku.text =mid (cbokodebuku.text, 3, 3)
Case = ”SIM”
JB = ”Sistem Informasi Manajemen”
PGR = ”Yati Nur Oktavia”
HRG =”75900”
Case = ”EDP”
JB = ”Elektronik Data Processing”
PGR = ”Imam Tarmizi”
HRG = ”62000”
Case =”MNJ”
JB = ”Manajemen”
PGR = ”Valentiana Mariana Adiwianti”
HRG = ”42000”
Case = ”CDR”
JB = ”Corel Draw”
PGR = ”Riyan Suhandi”
HRG = ”53000”
Case = ”RPL”
JB = ”Rekayasa Perangkat Lunak”
PGR = ”Sinta Umpu Singa”
HRG = ”83000”
End Select
Txtjudulbuku.text = JB
Txtpengarang.text= PGR
Txtharga.text = HRG
Txttahunterbit.text = ”20” & Right (cbokodebuku.text, 2)
Private sub cmdkeluar_click()
end
end sub
hidayatiyanistmikpringsewu 