Postingan

tugas 3.7

-
Gambar
Private Sub cmdbatal_Click() txtmnk = "" txtmn = "" txtmnk.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtmnk = "" txtmn = "" txtgol = "" txtks = "" txtst = "" txtth = "" txtjb = "" txtbg = "" txtgp = "" txttj = "" txttotal = "" txtmnk.SetFocus End Sub Private Sub cmdproses_Click() Dim H, BAG, STAT, KS, GOL, JAB, GP, TJ As String N = Right(txtmn.Text, 3) If N = "KEU" Then BAG = "Accounting" ElseIf N = "ADM" Then BAG = "Administrasi" ElseIf N = "SDM" Then BAG = "General Affair" ElseIf N = "EDP" Then BAG = "IT Unit" ElseIf N = "SPM" Then BAG = "Security" End If txtbg.Text = BAG N = Mid(txtmn.Text, 7, 1) If N = "S" Then KS = "S" STAT = "Singgle" ElseIf N = "M" Then STAT = "M
Posting Komentar
Baca selengkapnya

tugas 3.6

-
Gambar
Private Sub cmdbatal_Click() txtkode = "" txtjd = "" txtpg = "" txttb = "" txtpn = "" txtha = "" txtkode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkode = "" txtjd = "" txtpg = "" txttb = "" txtpn = "" txtha = "" txtkode.SetFocus End Sub Private Sub cmdproses_Click() Dim X, JB, PG, HA, PN As String txttb.Text = "20" & Mid(txtkode.Text, 5, 2) X = Left(txtkode.Text, 3) If X = "SIM" Then JB = "Sistem Informasi Manajemen" PG = "Fadiya Ulfa" HA = "75900" ElseIf X = "EDP" Then JB = "Elektronik Data Processing" PG = "Nurul Agustina" HA = "62000" ElseIf X = "MNJ" Then JB = "Manajemen" PG = "Rian Hidayat" HA = "42000" ElseIf X = "CDR" Then JB = "Corel Draw" PG = "Siti Nur
Posting Komentar
Baca selengkapnya

tugas 3.5

-
Gambar
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 I, JK, HT, JB As String I = Left(txtkt.Text, 3) If I = "BIM" Then JK = "BIMA" HT = "50000" JB = "16.00" ElseIf I = "EKO" Then JK = "EKONOMI" HT = "35000" JB = "19.00" ElseIf I = "MUT" Then JK = "MUTIARA" HT = "23000" JB = "17.00" ElseIf I = "SEN" Then JK = "SENJA" HT = "15000" JB = "20.00" End If txtjk.Text = JK txtht.Text = HT txtjb.Text = JB txtjt.SetFocus End Sub Private Sub Form_Activate() txtkt.SetFocus End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(txtht.Text) * Val(txtjt.Text) End If End Sub
Posting Komentar
Baca selengkapnya

tugas 3.4

-
Gambar
Private Sub cmdbatal_Click() cbokode = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokode = "" txtjd = "" txtpg = "" txttb = "" txtpen = "" txthar = "" End Sub Private Sub cmdproses_Click() Dim B, JD, PG, HA, PEN As String txttb.Text = "20" & Right(cbokode.Text, 2) B = Mid(cbokode.Text, 3, 3) If B = "SIM" Then JD = "Sistem Informasi Manajemen" PEN = "Yati Nur Oktavia" HA = "75900" ElseIf B = "EDP" Then JD = "Elektronik Data Processing" PEN = "Imam Tarmizi" HA = "62000" ElseIf B = "MNJ" Then JD = "Manajemen" PEN = "Valentina Mariana Adiwianti" HA = "42000" ElseIf B = "CDR" Then JD = "Corel Draw" PEN = "Riyan Suhandi" HA = "53000" ElseIf B = "RPL&quo
Posting Komentar
Baca selengkapnya

Tugas 3.3

-
Gambar
Tugas 3.3 Source Codenya: Private Sub Form_Load() cbokode.AddItem "Apple MC965 Macbook Air" cbokode.AddItem "Apple MC966 Macbook Air" cbokode.AddItem "Apple MC968 Macbook Air" cbokode.AddItem "Apple MC969 Macbook Air" cbokode.AddItem "Apple MC700 Macbook Pro" cbokode.AddItem "Apple MC721 Macbook Pro" cbokode.AddItem "Apple MC723 Macbook Pro" cbokode.AddItem "Apple MC311 Macbook Pro" cbokode.AddItem "Apple MC313 Macbook Pro" cbokode.AddItem "Apple MC314 Macbook Pro" cbokode.AddItem "Apple MC318 Macbook Pro" cbokode.AddItem "Apple MC322 Macbook Pro" cbokode.AddItem "Apple MC965 Macbook Air" cbokode.AddItem "Apple MC966 Macbook Air" End Sub Private Sub cbokode_Click() Dim mt, hs As String Select Case Mid(cbokode, 7, 5) Case "MC965" mt = "Apple MC965 Macbook Air  " hs = "12800000" Case "MC966" mt = "A
Posting Komentar
Baca selengkapnya

Tugas 3.2

-
Gambar
Tugas 3.2 Source Codenya: Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub Form_Activate() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdproses_Click() Dim S As String txttm.Text = "20" & Left(txtnpm.Text, 2) S = Mid(txtnpm.Text, 3, 1) If S = "1" Then txtjur.Text = "Sistem Informasi" ElseIf S = "2" Then txtjur.Text = "Manajemen Informatika" ElseIf S = "3" Then txtju
Posting Komentar
Baca selengkapnya

Tugas 3.1

-
Gambar
Tugas 3.1  Source Codenya: Private Sub Cmdbatal_Click() kosong End Sub Private Sub cmdlagi_Click() kosong End Sub Public Sub kosong() txtnidn.SetFocus txtnidn.Text = "" txtnama.Text = "" cbogolongan.Text = "" txtgp.Text = "" txttj.Text = "" txtpj.Text = "" txttotal.Text = "" End Sub Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan.Text Case "I" gapok = 2000000 tunjangan = 1500000 Case "II" gapok = 3000000 tunjangan = 2500000 Case "III" gapok = 4000000 tunjangan = 3500000 Case "IV" gapok = 5000000 tunjangan = 4500000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgp.Text = gapok txttj.Text = tunjangan txtpj.Text = pajak txttotal.Text = total - pajak End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub Form_Load() cbogolongan.AddItem "I" cbogolongan
Posting Komentar
Baca selengkapnya