Search

ayualfanistmik

tugas database semester 3

F

Private Sub cbokode_Click()
Dim merk, hs As String
Select Case cbokode.Text
Case “asus A43SA”
merk = “asus A43SA-VX090D”
hs = “5500000”
Case “AsusA43SD”
merk = “Asus A43SD-VX052D”
hs = “4500000”
Case “AsusA43SJ”
merk = “Asus A43SJ-VX792D”
hs = “4300000”
Case “AsusA43TA”
merk = “Asus A43TA-VX034D”
hs = “4900000”
Case “AsusN43SL”
merk = “Asus N43SL-VX264D”
hs = “4300000”
Case “Apple MD311”
merk = “Apple MacBook Pro MD311”
hs = “19300000”
Case “Apple MD313”
merk = “Apple MacBook Pro MD313”
hs = “24200000”
Case “Apple MD314”
merk = “Apple MacBook Pro MD314”
hs = “11900000”
Case “Apple MD322”
merk = “Apple MacBook Pro MD322”
hs = “14700000”
Case “Apple MC965”
merk = “Apple MacBook Pro MC965”
hs = “21300000”
End Select
txtmerk.Text = merk
txths.Text = hs
txtjj.SetFocus

End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txttb.Text = “”

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp) * 0.15
Case Is > 135000000
txtdis.Text = Val(txthp) * 0.1
Case Is > 130000000
txtdis.Text = Val(txthp) * 0.05
Case Is > 125000000
txtdis.Text = Val(txthp) * 0.02
End Select
txttb.Text = Val(txthp) – Val(txtdis)

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub Form_Load()
cbokode.AddItem “asus A43SA”
cbokode.AddItem “asus A43SD”
cbokode.AddItem “asus A43SJ”
cbokode.AddItem “asus A43TA”
cbokode.AddItem “asus A43SL”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
cbokode.AddItem “Apple MC965”
cbokode.AddItem “Apple MC314 MacBook Pro”
cbokode.AddItem “Apple MC318 MacBook Pro”
cbokode.AddItem “Apple MC322 MacBook Pro”
cbokode.AddItem “Apple MC965 MacBook Air”
cbokode.AddItem “Apple MC966 MacBook Air”
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.Text = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp) * 0.15
Case Is > 135000000
txtdis.Text = Val(txthp) * 0.1
Case Is > 130000000
txtdis.Text = Val(txthp) * 0.05
Case Is > 125000000
txtdis.Text = Val(txthp) * 0.02
End Select
txttb.Text = Val(txthp) – Val(txtdis)
End If

End Sub

tt

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

Advertisements

13 program database

ATIPE A

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkt.SetFocus

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt.Text
txtjk.Text
txtjb.Text
txttp.Text

End Sub

Private Sub cmdproses_Click()
Dim KT, JK, JB As String
Dim HT As Currency
KT = Left(txtkt.Text, 3)
If KT = “BIM” Then
HT = “50000”
JK = “BIMA”
JB = “16.00”
ElseIf KT = “EKO” Then
HT = “35000”
JK = “EKONOMI”
JB = “19.00”
ElseIf KT = “MUT” Then
HT = “23000”
JK = “MUTIARA”
JB = “17.00”
ElseIf KT = “SEN” Then
HT = “20000”
JK = “SENJA”
JB = “20.00”
End If
txtkt.Text = KT
txtht.Text = HT
txtjk.Text = JK
txtjb.Text = JB
txtjt.SetFocus
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttp.Text = Val(txtht.Text) * Val(txtjt.Text)
End If

End Sub

tt

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

tipe b

B

Private Sub cbokb_Click()
Dim jb, peng, TH, pen, hg As String
Select Case cbokb.Text
Case “A-SIM-01”
jb = “SISTEM INFOMASI MANAJEMEN”
peng = “Andra Setiawan”
TH = “2001”
pen = “Andi Offset Yogyakarta”
hg = “75900”
Case “I-EDP-02”
jb = “ELEKTRONIK DATA PROCESSING”
peng = “Desi Istiqomah”
TH = “2002”
pen = “Indah Surabaya”
hg = “62000”
Case “S-MNJ-03”
jb = “MANAJEMEN”
peng = “Sandy Fitrajaya”
TH = “2003”
pen = “Salemba Empat”
hg = “42000”
Case “E-CDR-04”
jb = “corel draw”
peng = “Tri Indah Sari”
TH = “2004”
pen = “Elek Media Komputindo”
hg = “53000”
Case “M-RPL-05”
jb = “REKAYASA PERANGKAT LUNAK”
peng = “Ernita Sari”
TH = “2005”
pen = “Maxicom”
hg = “83000”
End Select
txtjb.Text = jb
txtpeng.Text = peng
txttahun.Text = TH
txtpenerbit.Text = pen
txthg.Text = hg
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokb.SetFocus

End Sub

Private Sub cmdbatal_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
Dim jb, peng, pen, hg As String
Txttt.Text = “20” & Right(cbokode, 2)
S = Mid(cbokode, 3, 3)
If S = “SIM” Then
jb = “Sistem informasi manajemen”
pg = “Andra Setiawan”
hg = “75900”
ElseIf S = “EDP” Then
jb = “Elektronik Data Processing”
pg = “Desi Istiqomah”
hg = “62000”
ElseIf S = “MNJ” Then
jb = “Manajemen”
pg = “Sandy Fitrajaya”
hg = “42000”
ElseIf S = “CDR” Then
jb = “Corel Draw”
pg = “Tri Indah Sari”
hg = “53000”
ElseIf S = “RPL” Then
jb = “Rekayasa Perangkat Lunak”
pg = “Ernita Sari”
hg = “83000”
End If
txtjb.Text = jb
Txtpg.Text = pg
txthg.Text = hg
S = Mid(cbokode, 1, 1)
If S = “A” Then
pn = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
pn = “Indah Surabaya”
ElseIf S = “S” Then
pn = “SalembaEmpat”
ElseIf S = “E” Then
pn = “Elek Media Komputindo”
ElseIf S = “M” Then
pn = “Maxicom”
End If
Txtpn.Text = pn

End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub Form_Load()
cbokb.AddItem “A-SIM-01”
cbokb.AddItem “I-EDP-02”
cbokb.AddItem “S-MNJ-03”
cbokb.AddItem “E-CDR-04”
cbokb.AddItem “M-RPL-05”

End Sub

tt

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

tipe c

C

Private Sub cbokode_Click()
Dim JENISKOMPUTER, HARGASATUAN As String
Select Case cbokode.Text
Case “P205”
JENISKOMPUTER = “Pentium II 500 Mega Hz”
HARGASATUAN = “1500000”
Case “P308”
JENISKOMPUTER = “Pentium III 800 Mega Hz”
HARGASATUAN = “2100000”
Case “P310”
JENISKOMPUTER = “Pentium III 1.0 Giga Hz”
HARGASATUAN = “3500000”
Case “P415”
JENISKOMPUTER = “Pentium IV 1.5 Giga Hz”
HARGASATUAN = “4000000”
Case “P417”
JENISKOMPUTER = “Pentium IV 1.7 Giga Hz”
HARGASATUAN = “4200000”
Case “P419”
JENISKOMPUTER = “Pentium IV 1.9 Giga Hz”
HARGASATUAN = “5500000”
End Select
txtjk.Text = JENISKOMPUTER
txths.Text = HARGASATUAN
txtjj.SetFocus
End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txthb.Text = “”

End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 30000000 Then
txtdis.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 25000000 Then
txtdis.Text = Val(txthp.Text) * 0.1
ElseIf txthp > 20000000 Then
txtdis.Text = Val(txthp.Text) * 0.05
ElseIf txthp > 15000000 Then
txtdis.Text = Val(txthp.Text) * 0.2
End If
txthb.Text = Val(txthp.Text) – Val(txtdis.Text)

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub cmdsimpan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjj.SetFocus
End If

End Sub

Private Sub Form_Load()
cbokode.AddItem “P205”
cbokode.AddItem “P308”
cbokode.AddItem “P310”
cbokode.AddItem “P415”
cbokode.AddItem “P417”
cbokode.AddItem “P419”

End Sub

Private Sub txtjj_KeyPress(KeyAscii As Integer)
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text > 30000000 Then
txtdis.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 25000000 Then
txtdis.Text = Val(txthp.Text) * 0.1
ElseIf txthp > 20000000 Then
txtdis.Text = Val(txthp.Text) * 0.05
ElseIf txthp > 15000000 Then
txtdis.Text = Val(txthp.Text) * 0.2
End If
txthb.Text = Val(txthp.Text) – Val(txtdis.Text)

End Sub

tt

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

tipe d

D

Private Sub cbokb_Click()
Dim jb, peng, TH, pen, hg As String
Select Case cbokb.Text
Case “A-SIM-01”
jb = “SISTEM INFOMASI MANAJEMEN”
peng = “Yati Nur Oktavia”
TH = “2001”
pen = “Andi Offset Yogyakarta”
hg = “75900”
Case “I-EDP-02”
jb = “ELEKTRONIK DATA PROCESSING”
peng = “Imam Tarmizi”
TH = “2002”
pen = “Indah Surabaya”
hg = “62000”
Case “S-MNJ-03”
jb = “MANAJEMEN”
peng = “Valentina Mariana Adiwianti”
TH = “2003”
pen = “Salemba Empat”
hg = “42000”
Case “E-CDR-04”
jb = “corel draw”
peng = “Riyan Suhandi”
TH = “2004”
pen = “Elek Media Komputindo”
hg = “53000”
Case “M-RPL-05”
jb = “REKAYASA PERANGKAT LUNAK”
peng = “Sinta Umpu Singa”
TH = “2005”
pen = “Maxicom”
hg = “83000”
End Select
txtjb.Text = jb
txtpeng.Text = peng
txttahun.Text = TH
txtpenerbit.Text = pen
txthg.Text = hg
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokb.SetFocus

End Sub

Private Sub cmdbatal_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
Dim jb, peng, pen, hg As String
Txttt.Text = “20” & Right(cbokode, 2)
S = Mid(cbokode, 3, 3)
If S = “SIM” Then
jb = “Sistem informasi manajemen”
pg = “YatiNurOktavia”
hg = “75900”
ElseIf S = “EDP” Then
jb = “Elektronik Data Processing”
pg = “Imam Tarmizi”
hg = “62000”
ElseIf S = “MNJ” Then
jb = “Manajemen”
pg = “Valentina Mariana Adiwianti”
hg = “42000”
ElseIf S = “CDR” Then
jb = “Corel Draw”
pg = “Riyan Suhandi”
hg = “53000”
ElseIf S = “RPL” Then
jb = “Rekayasa Perangkat Lunak”
pg = “Sinta UmpuSinga”
hg = “83000”
End If
txtjb.Text = jb
Txtpg.Text = pg
txthg.Text = hg
S = Mid(cbokode, 1, 1)
If S = “A” Then
pn = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
pn = “Indah Surabaya”
ElseIf S = “S” Then
pn = “SalembaEmpat”
ElseIf S = “E” Then
pn = “Elek Media Komputindo”
ElseIf S = “M” Then
pn = “Maxicom”
End If
Txtpn.Text = pn

End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub Form_Load()
cbokb.AddItem “A-SIM-01”
cbokb.AddItem “I-EDP-02”
cbokb.AddItem “S-MNJ-03”
cbokb.AddItem “E-CDR-04”
cbokb.AddItem “M-RPL-05”

End Sub

tt

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

tipe e

E

Private Sub cbokb_Click()
Dim jb, peng, TH, pen, hg As String
Select Case cbokb.Text
Case “A-SIM-01”
jb = “SISTEM INFOMASI MANAJEMEN”
peng = “Fadiya Ulfa”
TH = “2009”
pen = “Andi Offset Yogyakarta”
hg = “75900”
Case “I-EDP-02”
jb = “ELEKTRONIK DATA PROCESSING”
peng = “Nurul Agustina”
TH = “2010”
pen = “Indah Surabaya”
hg = “62000”
Case “S-MNJ-03”
jb = “MANAJEMEN”
peng = “Rian Hidayat”
TH = “2011”
pen = “Salemba Empat”
hg = “42000”
Case “E-CDR-04”
jb = “corel draw”
peng = “Siti Nur Khotimah”
TH = “2012”
pen = “Elek Media Komputindo”
hg = “53000”
Case “M-RPL-05”
jb = “REKAYASA PERANGKAT LUNAK”
peng = “Winda Erlianti”
TH = “2013”
pen = “Maxicom”
hg = “83000”
End Select
txtjb.Text = jb
txtpeng.Text = peng
txttahun.Text = TH
txtpenerbit.Text = pen
txthg.Text = hg
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokb.SetFocus

End Sub

Private Sub cmdbatal_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
Dim jb, peng, pen, hg As String
Txttt.Text = “20” & Right(cbokode, 2)
S = Mid(cbokode, 3, 3)
If S = “SIM” Then
jb = “Sistem informasi manajemen”
pg = “Fadiya Ulfa”
hg = “75900”
ElseIf S = “EDP” Then
jb = “Elektronik Data Processing”
pg = “Nurul Agustina”
hg = “62000”
ElseIf S = “MNJ” Then
jb = “Manajemen”
pg = “Rian Hidayat”
hg = “42000”
ElseIf S = “CDR” Then
jb = “Corel Draw”
pg = “Siti Nur Khotimah”
hg = “53000”
ElseIf S = “RPL” Then
jb = “Rekayasa Perangkat Lunak”
pg = “Winda Erlianti”
hg = “83000”
End If
txtjb.Text = jb
Txtpg.Text = pg
txthg.Text = hg
S = Mid(cbokode, 1, 1)
If S = “A” Then
pn = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
pn = “Indah Surabaya”
ElseIf S = “S” Then
pn = “SalembaEmpat”
ElseIf S = “E” Then
pn = “Elek Media Komputindo”
ElseIf S = “M” Then
pn = “Maxicom”
End If
Txtpn.Text = pn

End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub Form_Load()
cbokb.AddItem “A-SIM-01”
cbokb.AddItem “I-EDP-02”
cbokb.AddItem “S-MNJ-03”
cbokb.AddItem “E-CDR-04”
cbokb.AddItem “M-RPL-05”

End Sub

tt

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

tipe f

F

Private Sub cbokode_Click()
Dim merk, hs As String
Select Case cbokode.Text
Case “asus A43SA”
merk = “asus A43SA-VX090D”
hs = “5500000”
Case “AsusA43SD”
merk = “Asus A43SD-VX052D”
hs = “4500000”
Case “AsusA43SJ”
merk = “Asus A43SJ-VX792D”
hs = “4300000”
Case “AsusA43TA”
merk = “Asus A43TA-VX034D”
hs = “4900000”
Case “AsusN43SL”
merk = “Asus N43SL-VX264D”
hs = “4300000”
Case “Apple MD311”
merk = “Apple MacBook Pro MD311”
hs = “19300000”
Case “Apple MD313”
merk = “Apple MacBook Pro MD313”
hs = “24200000”
Case “Apple MD314”
merk = “Apple MacBook Pro MD314”
hs = “11900000”
Case “Apple MD322”
merk = “Apple MacBook Pro MD322”
hs = “14700000”
Case “Apple MC965”
merk = “Apple MacBook Pro MC965”
hs = “21300000”
End Select
txtmerk.Text = merk
txths.Text = hs
txtjj.SetFocus

End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txttb.Text = “”

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp) * 0.15
Case Is > 135000000
txtdis.Text = Val(txthp) * 0.1
Case Is > 130000000
txtdis.Text = Val(txthp) * 0.05
Case Is > 125000000
txtdis.Text = Val(txthp) * 0.02
End Select
txttb.Text = Val(txthp) – Val(txtdis)

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub Form_Load()
cbokode.AddItem “asus A43SA”
cbokode.AddItem “asus A43SD”
cbokode.AddItem “asus A43SJ”
cbokode.AddItem “asus A43TA”
cbokode.AddItem “asus A43SL”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
cbokode.AddItem “Apple MC965”
cbokode.AddItem “Apple MC314 MacBook Pro”
cbokode.AddItem “Apple MC318 MacBook Pro”
cbokode.AddItem “Apple MC322 MacBook Pro”
cbokode.AddItem “Apple MC965 MacBook Air”
cbokode.AddItem “Apple MC966 MacBook Air”
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.Text = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp) * 0.15
Case Is > 135000000
txtdis.Text = Val(txthp) * 0.1
Case Is > 130000000
txtdis.Text = Val(txthp) * 0.05
Case Is > 125000000
txtdis.Text = Val(txthp) * 0.02
End Select
txttb.Text = Val(txthp) – Val(txtdis)
End If

End Sub

tt

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

tipe g

G

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
txtkode.SetFocus

End Sub

Private Sub cmdcancle_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdhitung_Click()
txtbayar.Text = Val(txthb.Text) * Val(txtjb.Text)
If Val(txtjb.Text) > “5” Then
txtpot.Text = Val(txtbayar) * 0.02
txttb.Text = Val(txtbayar.Text) – (txtpot.Text)
End If

End Sub

Private Sub cmdkeluar_Click()
form2.Show

End Sub

Private Sub cmdproses_Click()
Dim h, nb, hb As String
h = Mid(txtkode, 5, 2)
If h = “sp” Or “h” = “sp” Then
txtnb.Text = “spidol”
txthb.Text = “9500”
ElseIf h = “bt” Or h = “bt” Then
txtnb.Text = “buku tulis”
txthb.Text = “12500”
ElseIf h = “tp” Or h = “tp” Then
txtnb.Text = “tipe ex”
txthb.Text = “3000”
ElseIf h = “pg” Or h = “pd” Then
txthb.Text = “penggaris”
txthb.Text = “2500”
ElseIf h = “pt” Or h = “pt” Then
txtnb.Text = “papantulis”
txthb.Text = “5000”
End If
txtjb.SetFocus

End Sub

Private Sub cmdsave_Click()
Data1.Recordset.Update

End Sub

tt

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

tipe h

H

Private Sub cbokode_Click()
Dim jk, hs, HB As Integer
Select Case cbokode.Text
Case “P205”
jk = “Pentium II 500 Mega Hz”
hs = “1500000”
Case “P308”
jk = “Pentium III 800 Mega Hz”
hs = “2100000”
Case “P310”
jk = “Pentium III 1.0 Mega Hz”
hs = “3500000”
Case “P415”
jk = “Pentium IV 1.5 Mega Hz”
hs = “4000000”
Case “P417”
jk = “Pentium IV 1.7 Mega Hz”
hs = “4200000”
Case “P419”
jk = “Pentium IV 1.9 Mega Hz”
hs = “5500000”
End Select
txtjk.Text = jk
txths.Text = hs
txtjj.SetFocus

End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode.SetFocus

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txttb.Text = “”

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 40000000
txtdis.Text = Val(txthp) * 0.15
Case Is > 35000000
txtdis.Text = Val(txthp) * 0.1
Case Is > 30000000
txtdis.Text = Val(txthp) * 0.05
Case Is > 25000000
txtdis.Text = Val(txthp) * 0.02
End Select
txttb.Text = Val(txthp) – Val(Txtdiskon)

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub Form_Load()
cbokode.AddItem “P205”
cbokode.AddItem “P308”
cbokode.AddItem “P310”
cbokode.AddItem “P415”
cbokode.AddItem “P417”
cbokode.AddItem “P419”

End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.Text = Val(txthp) * Val(txtjj)
Select Case txthp.Text
Case Is > 40000000
txtdis.Text = Val(txthp) * 0.15
Case Is > 35000000
txtdis.Text = Val(txthp) * 0.1
Case Is > 30000000
txtdis.Text = Val(txthp) * 0.05
Case Is > 25000000
txtdis.Text = Val(txthp) * 0.02
End Select
txttb.Text = Val(txthp) – Val(Txtdiskon)
End If

End Sub

tt

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

tipe i

I

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnk.SetFocus

End Sub

Private Sub cmdbatal_Click()
txtnk.SetFocus
txtnk.Text = “”
txtgol.Text = “”
txtkstat.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgp.Text = “”
txttun.Text = “”
txttg.Text = “”

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdlagi_Click()
txtnk.SetFocus
txtnk.Text = “”
txtgol.Text = “”
txtkstat.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgp.Text = “”
txttun.Text = “”
txttg.Text = “”

End Sub

Private Sub cmdproses_Click()
Dim R As String
R = Mid(txtnik.Text, 5, 1)
If R = “A” Then
txtgol = “A”
txtjabatan.Text = “MANAGER”
txtgp.Text = “4000000”
txttun.Text = “1025000”
ElseIf R = “B” Then
txtgol.Text = “B”
txtjabatan.Text = “Ka.SEKSI”
txtgp.Text = “3500000”
txttun.Text = “975000”
ElseIf R = “C” Then
txtgol.Text = “C”
txtjabatan.Text = “STAFF”
txtgp.Text = “3000000”
txttun.Text = “925000”
End If
R = Right(txtnik.Text, 3)
If R = “KEU” Then
txtbagian.Text = “ACCOUNTING”
ElseIf R = “ADM” Then
txtbagian.Text = “ADMINISTRASI”
ElseIf R = “SDM” Then
txtbagian.Text = “GENERAL AFFAIR”
ElseIf R = “EDP” Then
txtbagian.Text = “IT UNIT”
ElseIf R = “SPM” Then
txtbagian.Text = “SECURITY”
End If
R = Mid(txtnik.Text, 7, 1)
If R = “S” Then
kode = “S”
Status = “SINGLE”
ElseIf R = “M” Then
kode = “M”
Status = “MENIKAH”
ElseIf R = “J” Then
kode = “J”
Status = “JANDA”
ElseIf R = “D” Then
kode = “D”
Status = “DUDA”
End If
txtkstat.Text = kode
txtstatus.Text = Status
txttahun.Text = Left(txtnik.Text, 4)
txttg.Text = Val(txtgp.Text) + Val(txttun.Text)
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

tt

program 1PROG 1

txtnu. Private Sub cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case cbogolongan.Text
Case “I”
gapok = 1500000
tunjangan = 150000
Case “II”
gapok = 2000000
tunjangan = 200000
Case “III”
gapok = 2500000
tunjangan = 250000
Case “IV”
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok.Text = gapok
txttun.Text = tunjangan
txtpajak.Text = pajak
txttt.Text = total – pajak
End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnidn.SetFocus

End Sub

Private Sub cmdbatal_Click()
kosong

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdlagi_Click()
kosong

End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub

Private Sub Form_Load()
cbogolongan.AddItem “I”
cbogolongan.AddItem “II”
cbogolongan.AddItem “III”
cbogolongan.AddItem “IV”

End Sub

Public Sub kosong()
txtnidn.SetFocus
txtnidn.Text = “”
Txtnama.Text = “”
cbogolongan.Text = “”
txtgapok.Text = “”
Txttunjangan.Text = “”
txtpajak.Text = “”
Txttotal.Text = “”

End Sub

Private Sub txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If

End Sub

tt

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

program 2

PROG2

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus

End Sub

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttahun.Text = “”
txtnu.Text = “”
End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttahun.Text = “”
txtnu.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim J, P, S As String
txttm.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtjur.Text = “sistem informasi”
txtbp.Text = “1950000”
ElseIf S = “2” Then
txtjur.Text = “menejemen informatika”
txtbp.Text = “1650000”
ElseIf S = “3” Then
txtjur.Text = “tehnik informatika”
txtbp.Text = “1750000”
ElseIf S = “4” Then
txtjur.Text = “menejemen &komp akutansi”
txtbp.Text = “1450000”

End If
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtps.Text = “STRATA SATU”
ElseIf S = “2” Then
txtps.Text = “DIPLOMA TIGA”
ElseIf S = “3” Then
txtps.Text = “DIPLOMA EMPAT”
ElseIf S = “4” Then
txtps.Text = “DIPLOMA DUA”
End IfText = Right(txtnpm.Text, 3)

End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset.Update

End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If

End Sub

tt

 

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

program 3

PROG 3

Private Sub cmdadd_Click()
Data1.Recordset.AddNew
txtkode.SetFocus

End Sub

Private Sub cmdcancle_Click()
Data1.Recordset.Delete

End Sub

Private Sub cmdhitung_Click()
txtbayar.Text = Val(txthb.Text) * Val(txtjb.Text)
If Val(txtjb.Text) > “5” Then
txtpot.Text = Val(txtbayar) * 0.02
txttb.Text = Val(txtbayar.Text) – (txtpot.Text)
End If

End Sub

Private Sub cmdkeluar_Click()
form2.Show

End Sub

Private Sub cmdproses_Click()
Dim h, nb, hb As String
h = Mid(txtkode, 5, 2)
If h = “sp” Or “h” = “sp” Then
txtnb.Text = “spidol”
txthb.Text = “9500”
ElseIf h = “bt” Or h = “bt” Then
txtnb.Text = “buku tulis”
txthb.Text = “12500”
ElseIf h = “tp” Or h = “tp” Then
txtnb.Text = “tipe ex”
txthb.Text = “3000”
ElseIf h = “pg” Or h = “pd” Then
txthb.Text = “penggaris”
txthb.Text = “2500”
ElseIf h = “pt” Or h = “pt” Then
txtnb.Text = “papantulis”
txthb.Text = “5000”
End If
txtjb.SetFocus

End Sub

Private Sub cmdsave_Click()
Data1.Recordset.Update

End Sub

tt

 

private sub cmdno_click()

end

end sub

private sub cmdyes_click()

form1.show

end sub

12 program

Tugas 1

TUGAS 1

Private Sub Cmdbatal_Click()

txtnidn.SetFocus

txtnidn = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

Private Sub cmdlagi_Click()

txtnidn.SetFocus

txtnidn = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

 

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan

Case “I”

gapok = 3500000

tunjangan = 350000

Case “II”

gapok = 2400000

tunjangan = 240000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 1000000

tunjangan = 100000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok = gapok

txttunjangan = tunjangan

txtpajak = pajak

txttotal = total – pajak

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Tugas npm

npm

Private Sub cmdbatal_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim A As String

Texttm = “20” & Left(Textnpm, 2)

A = Mid(Textnpm, 3, 3)

If A = “100” Then

Textjur = “sistem informasi”

Textps = “strata 1”

ElseIf A = “200” Then

Textjur = “manajemen informatika”

Textps = “diploma 3”

ElseIf A = “300” Then

Textjur = “teknik informatika”

Textps = “diploma 4”

ElseIf A = “400” Then

Textjur = “komputer administrasi”

Textps = “diploma 2”

End If

Textnu = Right(Textnpm, 3)

End Sub

Tugas 3

TUGAS 3

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

TxtTm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtps.Text = “Strata Satu”

ElseIf S = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Cmdproses_Click()

Dim S As String

TxtTm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtps.Text = “Strata Satu”

ElseIf S = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

 

 

 

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

 

Tugas a

TIPE A

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Textkt.SetFocus

Textkt = “”

Textht = “”

Textjk = “”

Textjb = “”

Textjt = “”

Texttp = “”

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

S = Left(Textkt.Text, 3)

If S = “BIM” Then

Textjk.Text = “BIMA”

Textht.Text = “50000”

Textjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

Textjk.Text = “EKONOMI”

Textht.Text = “35000”

Textjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

Textjk.Text = “MUTIARA”

Textht.Text = “23000”

Textjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

Textjk.Text = “SENJA”

Textht.Text = “15000”

Textjb.Text = “20.00 WIB”

End If

Texttp.Text = Val(Textht.Text) * Val(Textjt.Text)

Textjt.SetFocus

End Sub

 

 

Private Sub Textjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttp = Val(Textht) * Val(Textjt)

End If

End Sub

Tugas 3

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

TxtTm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtps.Text = “Strata Satu”

ElseIf S = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Cmdproses_Click()

Dim S As String

TxtTm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtps.Text = “Strata Satu”

ElseIf S = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

 

Tugas b

TIPE B

Private Sub Cmdbatal_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

txtpeng.Text = “”

Txttp.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

txtpeng.Text = “”

Txttp.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttp.Text = “20” & Right(Txtkode, 2)

S = Mid(Txtkode, 3, 3)

If S = “SIM” Then

Txtjb.Text = “Sistem Informasi Manajemen”

txtpeng.Text = “Fadiya Ulfa”

Txtharga.Text = “75900”

ElseIf S = “EDP” Then

Txtjb.Text = “Elektronik Data Processing”

txtpeng.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf S = “MNJ” Then

Txtjb.Text = “Manajemen”

txtpeng.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf S = “CDR” Then

Txtjb.Text = “Corel Draw”

txtpeng.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf S = “RPL” Then

Txtjb.Text = “Rekayasa Perangkat Lunak”

txtpeng.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

S = Left(Txtkode, 1)

If S = “A” Then

Txtpen.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Txtpen.Text = “Indah Surabaya”

ElseIf S = “S” Then

Txtpen.Text = “Salemba Empat”

ElseIf S = “E” Then

Txtpen.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

Txtpen.Text = “Maxicom”

End If

End Sub

 

Tugas c

TIPE C

 

Private Sub Cbocode_Click()

Dim jenis, hs As String

Select Case Cbocode

Case “P205”

jenis = “Pentium II 500 Meg a Hz”

hs = “1500000”

Case “P308”

jenis = “Pentium III 800 Mega Hz ”

hs = “2100000 ”

Case “P310”

jenis = “pentium III 1.0 Giga Hz”

hs = “3500000 ”

Case “P415”

jenis = “Pentium IV 1.5 Giga Hz”

hs = “4000000 ”

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz ”

hs = “4200000 ”

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

hs = “5500000 ”

End Select

Textjk = jenis

Texths = hs

Textjj.SetFocus

End Sub

 

 

Private Sub Cmdclose_Click()

End

End Sub

 

 

Private Sub Cmdhl_Click()

Cbocode.SetFocus

Cbocode = “”

Textjk = “”

Texths = “”

Textjj = “”

Textdis = “”

Texthb = “”

End Sub

 

 

 

Private Sub Cmdproses_Click()

Texthp = Val(Textjj) * Val(Texths)

If Val(Texthp) > “30000000” Then

Textdis = Val(Texthp) * 15 / 100

ElseIf Val(Texthp) > “25000000” Then

Textdis = Val(Texthp) * 10 / 100

ElseIf Val(Texthp) > “20000000” Then

Textdis = Val(Texthp) * 5 / 100

ElseIf Val(Texthp) > “15000000” Then

Textdis = Val(Texthp) * 2 / 100

End If

Texthb = Val(Texthp) – Val(Textdis)

End Sub

 

 

 

Private Sub Form_Load()

Cbocode.AddItem “P205”

Cbocode.AddItem “P308”

Cbocode.AddItem “P310”

Cbocode.AddItem “P415”

Cbocode.AddItem “P417”

Cbocode.AddItem “P419”

End Sub

 

Tugas d

tugas de

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Cmbcode.SetFocus

Cmbcode = “”

Textjb = “”

Textpeng = “”

Texttt = “”

Textpen = “”

Textharga = “”

End Sub

 

Private Sub cmdproses_Click()

Dim judul, pengarang, tahun, penerbit, harga As String

Select Case Cmbcode

Case “A-SIM-01”

judul = “SistemInformasiManajemen”

pengarang = “YatiNurOktavia”

tahun = “2001”

penerbit = “Andi Offset Yogyakarta”

harga = “75900”

Case “I-EDP-02”

judul = “ElektronikData Processing”

pengarang = “Imam Tarmizi”

tahun = “2002”

penerbit = “Indah Surabaya”

harga = “62000”

Case “S-MNJ-03”

judul = “Manajemen”

pengarang = “Valentina Mariana Adiwianti”

tahun = “2003”

penerbit = “SalembaEmpat”

harga = “42000”

Case “E-CDR-04”

judul = “Corel Draw”

pengarang = “RiyanSuhandi”

tahun = “2004”

penerbit = “Elek Media Komputindo”

harga = “53000”

Case “M-RPL-05”

judul = “RekayasaPerangkatLunak”

pengarang = “SintaUmpuSinga”

tahun = “2005”

penerbit = “Maxicom”

harga = “83000”

End Select

Textjb = judul

Textpeng = pengarang

Texttt = tahun

Textpen = penerbit

Textharga = harga

End Sub

 

Private Sub Cndbatal_Click()

Cmbcode.SetFocus

Cmbcode = “”

Textjb = “”

Textpeng = “”

Texttt = “”

Textpen = “”

Textharga = “”

End Sub

 

Private Sub Form_Load()

Cmbcode.AddItem “A-SIM-01”

Cmbcode.AddItem “I-EDP-02”

Cmbcode.AddItem “S-MNJ-03”

Cmbcode.AddItem “E-CDR-04”

Cmbcode.AddItem “M-RPL-05”

End Sub

program e

TIPE B

Private Sub Cmdbatal_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

txtpeng.Text = “”

Txttp.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

txtpeng.Text = “”

Txttp.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttp.Text = “20” & Mid(Txtkode, 5, 2)

S = Left(Txtkode, 3)

If S = “SIM” Then

Txtjb.Text = “Sistem Informasi Manajemen”

txtpeng.Text = “Fadiya Ulfa”

Txtharga.Text = “75900”

ElseIf S = “EDP” Then

Txtjb.Text = “Elektronik Data Processing”

txtpeng.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf S = “MNJ” Then

Txtjb.Text = “Manajemen”

txtpeng.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf S = “CDR” Then

Txtjb.Text = “Corel Draw”

txtpeng.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf S = “RPL” Then

Txtjb.Text = “Rekayasa Perangkat Lunak”

txtpeng.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

S = Right(Txtkode, 1)

If S = “A” Then

Txtpen.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Txtpen.Text = “Indah Surabaya”

ElseIf S = “S” Then

Txtpen.Text = “Salemba Empat”

ElseIf S = “E” Then

Txtpen.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

Txtpen.Text = “Maxicom”

End If

End Sub

 

 

Tugas F

TUGAS fe

 

Private Sub Cbocode_Click()

Dim merk, hs As String

Select Case Cbocode

Case “Asus A43SA”

merk = “Asus A43SA-VX090D”

hs = “5500000”

Case “Asus A43SD”

merk = “Asus A43SD-VX052D”

hs = “4500000”

Case “Asus A43SJ”

merk = “Asus A43SJ-VX792D”

hs = “4300000”

Case “Asus A43TA”

merk = “Asus A43TA-VX034D”

hs = “4900000”

Case “Asus N43SL”

merk = “Asus N43SL-VX264D”

hs = “4300000”

Case “Apple MD311”

merk = “Apple MacBook Pro MD311”

hs = “19300000”

Case “Apple MD313”

merk = “Apple MacBook Pro MD313”

hs = “24200000”

Case “Apple MD314”

merk = “Apple MacBook Pro MD314”

hs = “11900000”

Case “Apple MD322”

merk = “Apple MacBook Pro MD322”

hs = “14700000”

Case “Apple MC965”

merk = “Apple MacBook Air MC965”

hs = “21300000”

End Select

Textmerk = merk

Texths = hs

Textjj.SetFocus

End Sub

 

 

 

Private Sub cmdhitung_Click()

Cbocode.SetFocus

Cbocode = “”

Textmerk = “”

Texths = “”

Textjj = “”

Texthp = “”

Textdis = “”

Texttotal = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdproses_Click()

Texthp = Val(Textjj) * Val(Texths)

If Val(Texthp) > 140000000 Then

Textdis = Val(Texthp) * 15 / 100

ElseIf Val(Texthp) > 135000000 Then

Textdis = Val(Texthp) * 10 / 100

ElseIf Val(Texthp) > 130000000 Then

Textdis = Val(Texthp) * 5 / 100

ElseIf Val(Texthp) > 125000000 Then

Textdis = Val(Texthp) * 2 / 100

End If

Texttotal = Val(Texthp) – Val(txtdis)

End Sub

 

Private Sub Form_Load()

Cbocode.AddItem “Asus A43SA”

Cbocode.AddItem “Asus A43SD”

Cbocode.AddItem “Asus A43SJ”

Cbocode.AddItem “Asus A43TA”

Cbocode.AddItem “Asus N43SL”

Cbocode.AddItem “Apple MD311”

Cbocode.AddItem “Apple MD313”

Cbocode.AddItem “Apple MD314”

Cbocode.AddItem “Apple MD322”

Cbocode.AddItem “Apple MC965”

End Sub

 

 

Private Sub Textjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texthp.SetFocus

End If

End Sub

Tugas g

TUGAS ge

 

Private Sub cmdbatal_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Textnama.SetFocus

Textnama = “”

Textnpm = “”

Textjur = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim jr As String

Dim ps As String

Dim A As String

A = Mid(Textnpm, 3, 1)

If A = 1 Then

jr = “sistem informasi”

ElseIf A = 2 Then

jr = “teknik informatika”

ElseIf A = 3 Then

jr = “menejemen informatika”

ElseIf A = 4 Then

jr = “komputer akuntansi”

End If

Textjur = jr

 

A = Mid(Textnpm, 4, 2)

If A = “01” Then

ps = “strata 1”

ElseIf A = “02” Then

ps = “diploma 4”

ElseIf A = “03” Then

ps = “diploma 3”

ElseIf A = “04” Then

ps = “diploma 2”

End If

Textps = ps

Texttm = “20” & Left(Textnpm, 2)

Textnu = Right(Textnpm, 3)

 

End Sub

 

 

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

tugas h

TIPE C

 

Private Sub Cbocode_Click()

Dim jenis, hs As String

Select Case Cbocode

Case “P205”

jenis = “Pentium II 500 Mega Hz”

hs = “1500000”

Case “P308”

jenis = “Pentium III 800 Mega Hz ”

hs = “2100000 ”

Case “P310”

jenis = “pentium III 1.0 Giga Hz”

hs = “3500000 ”

Case “P415”

jenis = “Pentium IV 1.5 Giga Hz”

hs = “4000000 ”

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz ”

hs = “4200000 ”

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

hs = “5500000 ”

End Select

Textjk = jenis

Texths = hs

Textjj.SetFocus

End Sub

 

 

Private Sub Cmdclose_Click()

End

End Sub

 

 

Private Sub Cmdhl_Click()

Cbocode.SetFocus

Cbocode = “”

Textjk = “”

Texths = “”

Textjj = “”

Textdis = “”

Texthb = “”

End Sub

 

 

 

Private Sub Cmdproses_Click()

Texthp = Val(Textjj) * Val(Texths)

If Val(Texthp) > “30000000” Then

Textdis = Val(Texthp) * 15 / 100

ElseIf Val(Texthp) > “25000000” Then

Textdis = Val(Texthp) * 10 / 100

ElseIf Val(Texthp) > “20000000” Then

Textdis = Val(Texthp) * 5 / 100

ElseIf Val(Texthp) > “15000000” Then

Textdis = Val(Texthp) * 2 / 100

End If

Texttotal = Val(Texthp) – Val(Textdis)

End Sub

 

 

 

Private Sub Form_Load()

Cbocode.AddItem “P205”

Cbocode.AddItem “P308”

Cbocode.AddItem “P310”

Cbocode.AddItem “P415”

Cbocode.AddItem “P417”

Cbocode.AddItem “P419”

End Sub

 

 

 

Tugas i

TUGAS i

Private Sub Cmdbatal_Click()

Textnama.SetFocus

Textnama = “”

Textnik = “”

Textgol = “”

Textks = “”

Textstt = “”

Textt = “”

Textjab = “”

Textbag = “”

Textgp = “”

Texttun = “”

Texttg = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Textnama.SetFocus

Textnama = “”

Textnik = “”

Textgol = “”

Textks = “”

Textstt = “”

Textt = “”

Textjab = “”

Textbag = “”

Textgp = “”

Texttun = “”

Texttg = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim r As String

r = Mid(Textnik.Text, 5, 1)

If r = “A” Then

Textgol = “A”

Textjab.Text = “MANAGER”

Textgp.Text = “4000000”

Texttun.Text = “1025000”

ElseIf r = “B” Then

Textgol.Text = “B”

Textjab.Text = “Ka.SEKSI”

Textgp.Text = “3500000”

Texttun.Text = “975000”

ElseIf r = “C” Then

Textgol.Text = “C”

Textjab.Text = “STAFF”

Textgp.Text = “3000000”

Texttun.Text = “925000”

End If

r = Right(Textnik.Text, 3)

If r = “KEU” Then

Textbag.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

Textbag.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

Textbag.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

Textbag.Text = “IT UNIT”

ElseIf r = “SPM” Then

Textbag.Text = “SECURITY”

End If

r = Mid(Textnik.Text, 7, 1)

If r = “S” Then

ks = “S”

Stt = “SINGLE”

ElseIf r = “M” Then

ks = “M”

Stt = “MENIKAH”

ElseIf r = “J” Then

ks = “J”

Stt = “JANDA”

ElseIf r = “D” Then

ks = “D”

Stt = “DUDA”

End If

Textks.Text = ks

Textstt.Text = Stt

Textt.Text = Left(Textnik.Text, 4)

Texttg.Text = Val(Textgp.Text) + Val(Texttun.Text)

End Sub

Private Sub Form_Activate()

Textnama.SetFocus

End Sub

 

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnik.SetFocus

End If

End Sub

 

Aplikasi hitung gaji

gaji1.JPG

3.1
Private Sub cmdkeluar_Click(Index As Integer)
Unload Me

End Sub

Private Sub cmdproses_Click(Index As Integer)
txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)
txtpj = Val(txtgk) * 0.1
txtgd = Val(txtgk) – Val(txtpj)
End Sub

Private Sub cmdulang_Click()
txtgp.SetFocus
txtgp = “”
txttj = “”
txtpt = “”
txtgk = “”
txtpj = “”
txtgd = “”

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttj.SetFocus
End If

End Sub

Private Sub txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpt.SetFocus
End If

End Sub

gaji2.JPG

3.2
Private Sub cmdkeluar_Click(Index As Integer)
Unload Me

End Sub

Private Sub cmdproses_Click(Index As Integer)
txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)
txtpj = Val(txtgk) * 0.1
txtgd = Val(txtgk) – Val(txtpj)
End Sub

Private Sub cmdulang_Click()
txtgp.SetFocus
txtgp = “”
txttj = “”
txtpt = “”
txtgk = “”
txtpj = “”
txtgd = “”

End Sub

Private Sub Form_Load()

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttj.SetFocus
End If

End Sub

Private Sub txtpt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)
txtpj = Val(txtgk) * 0.1
txtgd = Val(txtgk) – Val(txtpj)
End If

End Sub

Private Sub txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpt.SetFocus
End If

End Sub

 

Perhitungan harga setelah diskon

disk1

2.1
Private Sub cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txthak = Val(txtha) – Val(txtdis)

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdulang_Click()
txtha.SetFocus
txtha = “”
txtdis = “”
txthak = “”

End Sub

gaji2.JPG

2.1
Private Sub cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txthak = Val(txtha) – Val(txtdis)

End Sub

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdulang_Click()
txtha.SetFocus
txtha = “”
txtdis = “”
txthak = “”

End Sub

Private Sub txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtdis = Val(txtha) * 0.1
txthak = Val(txtha) – Val(txtdis)
End If

End Sub

 

 

 

 

Kalkulator mini

kal1

1.1
Private Sub cmdbatal_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txtn3 = “”
txtn4 = “”
txtn5 = “”
txtn6 = “”
txtn7 = “”
txtn8 = “”
txth1 = “”
txth2 = “”
txth3 = “”
txth4 = “”

End Sub

Private Sub cmdhitung_Click()
txth1 = Val(txtn1) * Val(txtn2)
txth2 = Val(txtn3) + Val(txtn4)
txth3 = Val(txtn5) – Val(txtn6)
txth4 = Val(txtn7) / Val(txtn8)

End Sub

Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txtn3 = “”
txtn4 = “”
txtn5 = “”
txtn6 = “”
txtn7 = “”
txtn8 = “”
txth1 = “”
txth2 = “”
txth3 = “”
txth4 = “”

End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If

End Sub

Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn3.SetFocus
End If

End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn4.SetFocus
End If

End Sub

Private Sub txtn4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn5.SetFocus
End If

End Sub

Private Sub txtn5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn6.SetFocus
End If

End Sub

Private Sub txtn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn7.SetFocus
End If

End Sub

Private Sub txtn7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn8.SetFocus
End If

End Sub
kal2new

1.2
Private Sub cmdbatal_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txtn3 = “”
txtn4 = “”
txtn5 = “”
txtn6 = “”
txtn7 = “”
txtn8 = “”
txth1 = “”
txth2 = “”
txth3 = “”
txth4 = “”

End Sub

Private Sub cmdhitung_Click()
txth1 = Val(txtn1) * Val(txtn2)
txth2 = Val(txtn3) + Val(txtn4)
txth3 = Val(txtn5) – Val(txtn6)
txth4 = Val(txtn7) / Val(txtn8)

End Sub

Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txtn3 = “”
txtn4 = “”
txtn5 = “”
txtn6 = “”
txtn7 = “”
txtn8 = “”
txth1 = “”
txth2 = “”
txth3 = “”
txth4 = “”

End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If

End Sub

Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn3.SetFocus
txth1 = Val(txtn1) * Val(txtn2)
End If

End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn4.SetFocus
End If

End Sub

Private Sub txtn4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn5.SetFocus
txth2 = Val(txtn3) + Val(txtn4)
End If

End Sub

Private Sub txtn5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn6.SetFocus
End If

End Sub

Private Sub txtn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn7.SetFocus
txth3 = Val(txtn5) – Val(txtn6)
End If

End Sub
Private Sub txtn7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn8.SetFocus
End If

End Sub

Private Sub txtn8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txth4 = Val(txtn7) / Val(txtn8)
End If

End Sub

 

 

 

 

 

 

 

 

VISUAL BASSIC PROGAM 4

vb4

Private Sub cmdbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtalamat = “”

End Sub

Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtalamat = “”

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If

End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If

End SubPrivate Sub cmdbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtalamat = “”

End Sub

Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtalamat = “”

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If

End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If

End Sub

Visual basic program 3

vb3
Private Sub cmdbersih_Click()
txtn1.SetFocus
txtn1 = “”
txtn2 = “”
txthasil = “”

End Sub

Private Sub cmdhitung_Click()
txthasil = Val(txtn1) * Val(txtn2)

End Sub

Private Sub cmdkeuar_Click()
Unload Me

End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If

End Sub

Visual basic program2

VB2
Private Sub cmdbatal_Click()
txtnpm = “”
txtnama = “”
txtalamat = “”
txtagama = “”
txtjeniskeamin = “”
txtnamaayah = “”
txtnamaibu = “”
txtpekerjaanayah = “”
txtpekerjaanibu = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnpm = “”
txtnama = “”
txtalamat = “”
txtagama = “”
txtjeniskeamin = “”
txtnamaayah = “”
txtnamaibu = “”
txtpekerjaanayah = “”
txtpekerjaanibu = “”
End Sub

Private Sub txtagama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjeniskelamin.SetFocus
End If

End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtagama.SetFocus
End If

End Sub

Private Sub txtjeniskeamin_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamaayah.SetFocus
End If

End Sub

Private Sub txtjeniskelamin_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamaayah.SetFocus
End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If

End Sub

Private Sub txtnamaayah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnamaibu.SetFocus
End If

End Sub

Private Sub txtnamaibu_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpekerjaanayah.SetFocus
End If

End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If

End Sub

Private Sub txtpekerjaanayah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpekerjaanibu.SetFocus
End If

End Sub

Create a free website or blog at WordPress.com.

Up ↑