PROGRAM 3.9

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjurusan = “”

txtpstudy = “”

txttahun = “”

txtnurut = “”

txtbp = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjurusan = “”

txtpstudy = “”

txttahun = “”

txtnurut = “”

txtbp = “”

End Sub

Private Sub cmdproses_Click()

Dim Z As String

txttahun = “20” & Left(txtnpm, 2)

txtnurut = Right(txtnpm, 3)

Z = Mid(txtnpm, 3, 1)

If Z = “1” Then

txtjurusan = “Sistem Informasi”

ElseIf Z = “2” Then

txtjurusan = “Teknik Informatika”

ElseIf Z = “3” Then

txtjurusan = “Manajemen Informatika”

ElseIf Z = “4” Then

txtjurusan = “Manajemen & Komp.Akuntansi”

End If

Dim Q As String

Q = Mid(txtnpm, 4, 2)

If Q = “01” Then

txtpstudy = “Strata Satu”

txtbp = “1950000”

ElseIf Q = “02” Then

txtpstudy = “Diploma Empat”

txtbp = “1750000”

ElseIf Q = “03” Then

txtpstudy = “Diploma Tiga”

txtbp = “1650000”

ElseIf Q = “04” Then

txtpstudy = “Diploma Dua”

txtbp = “1450000”

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

PROGRAM 3.8

 

Private Sub cbokode_Click()

Dim A, M As String

Select Case cbokode

Case “P205”

A = “Pentium II 500 Mega Hz”

M = “1500000”

Case “P308”

A = “Pentium III 800 Mega Hz”

M = “2100000”

Case “P310”

A = “Pentium III 1.0 Giga Hz”

M = “3500000”

Case “P415”

A = “Pentium IV 1.5 Giga Hz”

M = “4000000”

Case “P417”

A = “Pentium IV 1.7 Giga Hz”

M = “4200000”

Case “P419”

A = “Pentium IV 1.9 Giga Hz ”

M = “5500000”

End Select

txtjk = A

txths = M

txtjj.SetFocus

End Sub

Private Sub Command1_Click()

txthp = Val(txtjj) * Val(txths)

If txthp>= 30000000 Then

txtdis = 0.15 * Val(txthp)

ElseIftxthp>= 25000000 Then

txtdis = 0.1 * Val(txthp)

ElseIftxthp>= 20000000 Then

txtdis = 0.05 * Val(txthp)

ElseIftxthp>= 15000000 Then

txtdis = 0.02 * Val(txthp)

End If

txthb = Val(txthp) – Val(txtdis)

End Sub

Private Sub Command2_Click()

cbokode.SetFocus

cbokode = “PilihKodeKomputer”

txtjk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txthb = “”

End Sub

Private Sub Command3_Click()

Unload Me

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

PROGRAM 3.7

 

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb = “”

txtjb = “”

txtpeng = “”

txttt = “”

txtper = “”

txth = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = “”

txtjb = “”

txtpeng = “”

txttt = “”

txtper = “”

txth = “”

End Sub

Private Sub cmdproses_Click()

Dim X As String

txttt = “20”& Mid(txtkb, 5, 2)

X = Left(txtkb, 3)

If X = “SIM” Then

txtjb = “SistemInformasiManajemen”

txtpeng = “FadiyaUlfa”

txth = “75900”

ElseIf X = “EDP” Then

txtjb = “Electronik Data Processing”

txtpeng = “NurulAgustina”

txth = “62000”

ElseIf X = “MNJ” Then

txtjb = “Manajemen”

txtpeng = “RianHidayat”

txth = “42000”

ElseIf X = “CDR” Then

txtjb = “Corel Draw”

txtpeng = “SitiNurKhotimah”

txth = “53000”

ElseIf X = “RPL” Then

txtjb = “RekayasaPerangkatLunak”

txtpeng = “WindaErlianti”

txth = “83000”

End If

Dim Y As String

Y = Right(txtkb, 1)

If Y = “A” Then

txtper = “Andi Offset Yogyakarta”

ElseIf Y = “I” Then

txtper = “Indah Surabaya”

ElseIf Y = “S” Then

txtper = “SalembaEmpat”

ElseIf Y = “E” Then

txtper = “Elek Media Komputindo”

ElseIf Y = “M” Then

txtper = “Maxicom”

End If

End Sub

PROGRAM 3.6

Private Sub cbokode_Click()

Dim j, h As String

Select Case cbokode

Case “P205”

j = “Pentium II 500 Mega Hz”

h = “1500000”

Case “P308”

j = “Pentium III 800 Mega Hz”

h = “2100000”

Case “P310”

j = “Pentium III 1.0 Giga Hz”

h = “3500000”

Case “P415”

j = “Pentium IV 1.5 Giga Hz”

h = “4000000”

Case “P417”

j = “Pentium IV 1.7 Giga Hz”

h = “4200000”

Case “P419”

j = “Pentium IV 1.9 Giga Hz”

h = “5500000”

End Select

txtjk = j

txths = h

txtjj.SetFocus

End Sub

 

Private Sub cmdhl_Click()

cbokode.SetFocus

cbokode = “Pilih Kode Komputer”

txtjj = “”

txtjk = “”

txths = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdproses_Click()

txthp = Val(txths) * Val(txtjj)

If txthp >= 40000000 Then

txtdis = 0.15 * Val(txthp)

ElseIf txthp >= 35000000 Then

txtdis = 0.1 * Val(txthp)

ElseIf txthp >= 30000000 Then

txtdis = 0.05 * Val(txthp)

ElseIf txthp >= 25000000 Then

txtdis = 0.02 * Val(txthp)

End If

txttb = Val(txthp) – Val(txtdis)

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

PROGRAM 3.5

Private Sub cbokode_Click()

Dim j, h As String

Select Case cbokode

Case “P205”

j = “Pentium II 500 Mega Hz”

h = “1500000”

Case “P308”

j = “Pentium III 800 Mega Hz”

h = “2100000”

Case “P310”

j = “Pentium III 1.0 Giga Hz”

h = “3500000”

Case “P415”

j = “Pentium IV 1.5 Giga Hz”

h = “4000000”

Case “P417”

j = “Pentium IV 1.7 Giga Hz”

h = “4200000”

Case “P419”

j = “Pentium IV 1.9 Giga Hz”

h = “5500000”

End Select

txtjk = j

txths = h

txtjj.SetFocus

End Sub

 

Private Sub cmdhl_Click()

cbokode.SetFocus

cbokode = “Pilih Kode Komputer”

txtjj = “”

txtjk = “”

txths = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdproses_Click()

txthp = Val(txths) * Val(txtjj)

If txthp >= 40000000 Then

txtdis = 0.15 * Val(txthp)

ElseIf txthp >= 35000000 Then

txtdis = 0.1 * Val(txthp)

ElseIf txthp >= 30000000 Then

txtdis = 0.05 * Val(txthp)

ElseIf txthp >= 25000000 Then

txtdis = 0.02 * Val(txthp)

End If

txttb = Val(txthp) – Val(txtdis)

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

PROGRAM 3.4

Private Sub cbokode_Click()

Dim m, h As String

Select Case cbokode

Case “Asus A43SA”

m = “Asus A43SA – VX090D”

h = “5500000”

Case “Asus A43SD”

m = “Asus A43SD – VX052D”

h = “4500000”

Case “Asus A43SJ”

m = “Asus A43SJ – VX792D”

h = “4300000”

Case “Asus A43TA”

m = “Asus A43TA – VX034D”

h = “4900000”

Case “Asus N43SL”

m = “Asus N43SL – VX264D”

h = “4300000”

Case “Apple MD311”

m = “Apple MacBook Pro MD311”

h = “19300000”

Case “Apple MD313”

m = “Apple MacBook Pro MD313”

h = “24200000”

Case “Apple MD314”

m = “Apple MacBook Pro MD314”

h = “11900000”

Case “Apple MD322”

m = “Apple MacBook Pro MD322”

h = “14700000”

Case “Apple MC965”

m = “Apple MacBook Pro MC965”

h = “21300000”

End Select

txtmerk = m

txths = h

txtjj.SetFocus

End Sub

Private Sub Command1_Click()

txthp = Val(txtjj) * Val(txths)

If txthp>= 140000000 Then

txtdis = 0.15 * Val(txthp)

ElseIftxthp>= 135000000 Then

txtdis = 0.1 * Val(txthp)

ElseIftxthp>= 130000000 Then

txtdis = 0.05 * Val(txthp)

ElseIftxthp>= 125000000 Then

txtdis = 0.02 * Val(txthp)

End If

txttb = Val(txthp) – Val(txtdis)

End Sub

Private Sub Command2_Click()

cbokode.SetFocus

cbokode = “PilihKode Laptop”

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

Private Sub Command3_Click()

Unload Me

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 N43SL”

cbokode.AddItem”Apple MD311″

cbokode.AddItem”Apple MD313″

cbokode.AddItem”Apple MD314″

cbokode.AddItem”Apple MD322″

cbokode.AddItem”Apple MC965″

End Sub

PROGRAM 3.3

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = “”

txtjb = “”

txtp = “”

txttahun = “”

txtpenerbit = “”

txthg = “”

End Sub

Private Sub cmdproses_Click()

Dim X As String

txttahun = “20” & Right(txtkb, 2)

X = Mid(txtkb, 3, 3)

If X = “SIM” Then

txtjb = “Sistem Informasi Manajemen”

txtp = “Andra Setiawan”

txthg = “75900”

ElseIf X = “EDP” Then

txtjb = “Electronic Data Processing”

txtp = “Desi Istiqomah”

txthg = “62000”

ElseIf X = “MNJ” Then

txtjb = “Manajemen”

txtp = “Sandy Fitrajaya”

txthg = “42000”

ElseIf X = “CDR” Then

txtjb = “Corel Draw”

txtp = “Tri Indah Sari”

txthg = “53000”

ElseIf X = “RPL” Then

txtjb = “Rekayasa Perangkat Lunak”

txtp = “Ernita Sari”

txthg = “83000”

End If

Dim Y As String

Y = Left(txtkb, 1)

If Y = “A” Then

txtpenerbit = “Andi Offset Yogyakarta”

ElseIf Y = “I” Then

txtpenerbit = “Indah Surabaya”

ElseIf Y = “S” Then

txtpenerbit = “Salemba Empat”

ElseIf Y = “E” Then

txtpenerbit = “Elek Media Komputindo”

ElseIf Y = “M” Then

txtpenerbit = “Maxicom”

End If

End Sub

PROGRAM 3.2

Private Sub cmdp_Click()

txttt = “20” & Right(cbokb, 2)

Dim V, S As String

V = Mid(cbokb, 3, 3)

If V = “SIM” Then

txtjb = “Sistem Informasi Manajemen”

txtpr = “Yati Nur Oktavia”

txth = “75900”

ElseIf V = “EDP” Then

txtjb = “Electronic Data Processing”

txtpr = “Imam Tarmizi”

txth = “62000”

ElseIf V = “MNJ” Then

txtjb = “Manajemen”

txtpr = “Valentina Mariana”

txth = “42000”

ElseIf V = “CDR” Then

txtjb = “Corel Draw”

txtpr = “Riyan Suhandi”

txth = “53000”

ElseIf V = “RPL” Then

txtjb = “Rekayasa Perangkat Lunak”

txtpr = “Sinta Umpu Singa”

txth = “83000”

End If

S = Left(cbokb, 1)

If S = “A” Then

txtpt = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

txtpt = “Indah Surabaya”

ElseIf S = “S” Then

txtpt = “Salemba Empat”

ElseIf S = “E” Then

txtpt = “Elek Media Komputindo”

ElseIf S = “M” Then

txtpt = “Maxicom”

End If

End Sub

Private Sub Command2_Click()

cbokb.SetFocus

cbokb = “”

txtjb = “”

txtpr = “”

txttt = “”

txtpt = “”

txth = “”

cbokb = “Pilih Kode Buku”

End Sub

Private Sub Command3_Click()

Unload Me

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

PROGRAM 3.1

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtkstat = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotg = “”

End Sub

Private Sub cmdproses_Click()

Dim V As String

txttahun = Left(txtnik, 4)

V = Mid(txtnik, 7, 1)

If V = “S” Then

txtkstat = “S”

txtstatus = “Single”

ElseIf V = “M” Then

txtkstat = “M”

txtstatus = “Menikah”

ElseIf V = “J” Then

txtkstat = “J”

txtstatus = “Janda”

ElseIf V = “D” Then

txtkstat = “D”

txtstatus = “Duda”

End If

Dim S As String

S = Right(txtnik, 3)

If S = “KEU” Then

txtbagian = “Accounting”

ElseIf S = “ADM” Then

txtbagian = “Administrasi”

ElseIf S = “SDM” Then

txtbagian = “General Affair”

ElseIf S = “EDP” Then

txtbagian = “IT Unit”

ElseIf S = “SPM” Then

txtbagian = “Security”

End If

Dim P As String

P = Mid(txtnik, 5, 1)

If P = “A” Then

txtgol = “A”

txtjbt = “Manajer”

txtgapok = “4000000”

txttunjangan = “1025000”

ElseIf P = “B” Then

txtgol = “B”

txtjbt = “Ka.Seksi”

txtgapok = “3500000”

txttunjangan = “975000”

ElseIf P = “C” Then

txtgol = “C”

txtjbgt = “Staff”

txtgapok = “3000000”

txttunjangan = “925000”

End If

txttotg = Val(txtgapok) + Val(txttunjangan)

End Sub

Private Sub cmpbatal_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtkstat = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotg = “”

End Sub

Private Sub txtnk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub

TUGAS 2.7

Option Explicit

 

Private Sub Command1_Click()

Text4 = Val(Text1) + Val(Text2) – Val(Text3)

Text5 = Val(Text4) * 0.15

Text6 = Val(Text4) – Val(Text5)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4 = Val(Text1) + Val(Text2) – Val(Text3)

Text5 = Val(Text4) * 0.15

Text6 = Val(Text4) – Val(Text5)

End If

End Sub