TUGAS 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

Komentar

Posting Komentar

Postingan populer dari blog ini

TUGAS PROGRAM A

Gambar
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&quo
Baca selengkapnya

TUGAS PROGRAM H

Gambar
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
Baca selengkapnya

TUGAS PROGRAM C

Gambar
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
Baca selengkapnya