Kamis, 08 Maret 2018

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

PROGRAM D

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)
ElseIf txthp >= 135000000 Then
txtdis = 0.1 * Val(txthp)
ElseIf txthp >= 130000000 Then
txtdis = 0.05 * Val(txthp)
ElseIf txthp >= 125000000 Then
txtdis = 0.02 * Val(txthp)
End If
txttb = Val(txthp) - Val(txtdis)
End Sub
Private Sub Command2_Click()
cbokode.SetFocus
cbokode = "Pilih Kode 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 C

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