Langsung ke konten utama

Postingan

TUGAS 3.7

Private Sub cmdbatal_Click() txtnama = "" txtnik = "" txtgol = "" txtks = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgapok = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama = "" txtnik = "" txtgol = "" txtks = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgapok = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim S As String txttahun = Left(txtnik, 4) S = Mid(txtnik, 5, 1) If S = "A" Then txtgol = "A" txtjabatan = "Manajer" txtgapok = "4000000" txttunjangan = "1025000" ElseIf S = "B" Then txt
Postingan terbaru

TUGAS 3.6

Private Sub cmdbatal_Click() txtkb = "" txtjb = "" txtpengarang = "" txttt = "" txtpenerbit = "" txtharga = "" txtkb.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkb = "" txtjb = "" txtpengarang = "" txttt = "" txtpenerbit = "" txtharga = "" txtkb.SetFocus End Sub Private Sub cmdproses_Click() Dim B As String B = Left(txtkb, 3) If B = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtpengarang = "Fadiya Ulfa" txtharga = "75900" ElseIf B = "EDP" Then txtjb = "Elektronik Data Processing" txtpengarang = "Nurul Agustina" txtharga = "62000" ElseIf B = "MNJ" Then txtjb = "Manajemen" txtpengarang = "Rian Hidayat" txtharga = "42000" ElseIf B = "CDR" Then txtjb

TUGAS 3.5

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttotalp = "" txtkt.SetFocus End Sub Private Sub cmdproses_Click() Dim B As String B = Left(txtkt, 3) If B = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf B = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf B = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf B = "SEN" Then txtht = "15000" txtjk = "SENJA" txtjb = "20.00" End If txtjt.SetFocus End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(txtht) * (txtjt) End If End Sub

TUGAS 3.4

Private Sub cmdbatal_Click() cbokb = "" txtjb = "" txtpengarang = "" txttt = "" txtpenerbit = "" txtharga = "" cbokb.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokb = "" txtjb = "" txtpengarang = "" txttt = "" txtpenerbit = "" txtharga = "" cbokb.SetFocus End Sub Private Sub cmdproses_Click() Dim A As String A = Left(cbokb, 1) If A = "A" Then txtpenerbit = "Andi Offset Yogyakarta" ElseIf A = "I" Then txtpenerbit = "Indah Surabaya" ElseIf A = "S" Then txtpenerbit = "Salemba Empat" ElseIf A = "E" Then txtpenerbit = "Elek Media Komputindo" ElseIf A = "M" Then txtpenerbit = "Maxicom" End If A = Mid(cbokb, 3, 3) If A = "SIM" Then txtjb = "Sistem Informasi Manajemen" t

TUGAS 3.3

Private Sub cbokode_Click() Dim merk As String merk = Mid(cbokode, 7, 5) If merk = "MC965" Then txtmerk = "Apple MacBook Air MC965" harga = "12800000" ElseIf merk = "MC966" Then txtmerk = "Apple MacBook Air MC966" harga = "15800000" ElseIf merk = "MC968" Then txtmerk = "Apple MacBook Air MC968" harga = "9900000" ElseIf merk = "MC969" Then txtmerk = "Apple MacBook Air MC969" harga = "11900000" ElseIf merk = "MC700" Then txtmerk = "Apple MacBook Pro MC700" harga = "10800000" ElseIf merk = "MC721" Then txtmerk = "Apple MacBook Pro MC721" harga = "15900000" ElseIf merk = "MC723" Then txtmerk = "Apple MacBook Pro MC723" harga = "19300000" ElseIf merk = "MC724" Then txtmerk = "Apple MacBook Pro MC724" harga = "13700000" ElseIf

TUGAS 3.2

Private Sub cmdbatal_Click() txtnama = "" txtnpm = "" txtjurusan = "" txtps = "" txttm = "" txtnu = "" txtnama.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama = "" txtnpm = "" txtjurusan = "" txtps = "" txttm = "" txtnu = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim S As String txttm = "20" & Left(txtnpm, 2) S = Mid(txtnpm, 3, 1) If S = "1" Then txtjurusan = "Sistem Informasi" ElseIf S = "2" Then txtjurusan = "Manajemen Informasi" ElseIf S = "3" Then txtjurusan = "Teknik Informasi" ElseIf S = "3" Then txtjurusan = "Manajemen & Komp. Akutansi" End If S = Mid(txtnpm, 4, 2) If S = "00" Then txtps = "Strata Satu" ElseIf S = "01" Then txtps

TUGAS 3.1

Private Sub cbogol_Click() Dim gapok, tunjangan, pajak, total As Variant Select Case cbogol Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 2000000 tunjangan = 200000 Case "III" gapok = 2500000 tunjangan = 250000 Case "IV" gapok = 3000000 tunjangan = 300000 gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok = gapok txtpajak = pajak txttunjangan = tunjangan txttotal = total - pajak End Sub Private Sub cmdbatal_Click() txtnpm = "" txtnama = "" cbogol = "" txtgapok = "" txttunjangan = "" txtpajak = "" txttotal = "" txtnpm.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnpm = "" txtnama = "" cbogol = "" txtgapok = "" txttunjangan = "" txtpajak = "" txttotal = "" txtnp