PROGRAM I

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 H

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)

ElseIf txthp >= 25000000 Then

txtdis = 0.1 * Val(txthp)

ElseIf txthp >= 20000000 Then

txtdis = 0.05 * Val(txthp)

ElseIf txthp >= 15000000 Then

txtdis = 0.02 * Val(txthp)

End If

txthb = Val(txthp) - Val(txtdis)

End Sub

Private Sub Command2_Click()

cbokode.SetFocus

cbokode = "Pilih Kode Komputer"

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 G

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 = "Sistem Informasi Manajemen"

txtpeng = "Fadiya Ulfa"

txth = "75900"

ElseIf X = "EDP" Then

txtjb = "Electronik Data Processing"

txtpeng = "Nurul Agustina"

txth = "62000"

ElseIf X = "MNJ" Then

txtjb = "Manajemen"

txtpeng = "Rian Hidayat"

txth = "42000"

ElseIf X = "CDR" Then

txtjb = "Corel Draw"

txtpeng = "Siti Nur Khotimah"

txth = "53000"

ElseIf X = "RPL" Then

txtjb = "Rekayasa Perangkat Lunak"

txtpeng = "Winda Erlianti"

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 = "Salemba Empat"

ElseIf Y = "E" Then

txtper = "Elek Media Komputindo"

ElseIf Y = "M" Then

txtper = "Maxicom"

End If

End Sub

PROGRAM F

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt = ""

txtht = ""

txtjk = ""

txtjb = ""

txtjt = ""

txttp = ""

End Sub

Private Sub cmdproses_Click()

txttp = Val(txtht) * Val(txtjt)

End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjt.SetFocus

End If

Dim k As String

k = txtkt

If k = "BIM" Then

txtht = "50000"

txtjk = "BIMA"

txtjb = "16.00"

ElseIf k = "EKO" Then

txtht = "35000"

txtjk = "EKONOMI"

txtjb = "19.00"

ElseIf k = "MUT" Then

txtht = "23000"

txtjk = "MUTIARA"

txtjb = "17.00"

ElseIf k = "SEN" Then

txtht = "15000"

txtjk = "SENJA"

txtjb = "20.00"

End If

End Sub

PROGRAM E

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