Postingan

Tugas 4..1

Gambar
Private Sub Cbokode_Click() Dim merk, harga As String Select Case cbokode Case "apple MC965 macbook air" merk = "Apple MacBook Air MC965" harga = "12800000" Case "apple MC966 macbook air" merk = "Apple MacBook Air MC966" harga = "15800000" Case "apple MC968 macbook air" merk = "Apple MacBook Air MC968" harga = "9900000" Case "apple MC969 macbook air" merk = "Apple MacBook Air MC969" harga = "11900000" Case "apple MC700 macbook pro" merk = "Apple MacBook Pro MC700" harga = "10800000" Case "apple MC721 macbook pro" merk = "Apple MacBook Pro MC721" harga = "15900000" Case "apple MC723 macbook pro" merk = "Apple MacBook Pro MC723" harga = "19300000" Case "apple MC724 macbook pro" merk = "Apple MacBook Pro MC724...
Posting Komentar
Baca selengkapnya

Tugas 4.2

Gambar
Private Sub cmdbatal_Click() cbokb = "" txtjb = "" txtp = "" txttt = "" txtpn = "" txthar = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() cbokb = "" txtjb = "" txtp = "" txttt = "" txtpn = "" txthar = "" End Sub Private Sub cmdproses_Click() Dim C, jb, peng, har, pener As String txttt = "20" & Right(cbokb, 2) C = Mid(cbokb, 3, 3) If C = "SIM" Then jb = "Sistem Informasi Manajemen" peng = "Yati Nur Oktavia" har = "75900" ElseIf C = "EDP" Then jb = "Elektronik Data Processing" peng = "Imam Tarmizi" har = "62000" ElseIf C = "MNJ" Then jb = "Manajemen" peng = "Valentina Mariana Adiwianti" har = "42000" ElseIf C = "CDR" Then jb = "corel draw...
Posting Komentar
Baca selengkapnya

Tugas 4.3

Gambar
  Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttotalp = "" txtkt.SetFocus End Sub Private Sub cmdproses_Click() Dim k, jk, ht, jb As String k = Left(txtkt, 3) If k = "BIM" Or k = "bim" Then jk = "BIMA" ht = "50000" jb = "16.00" ElseIf k = "EKO" Or k = "eko" Then jk = "EKONOMI" ht = "35000" jb = "19.00" ElseIf k = "MUT" Or k = "mut" Then jk = "MUTIARA" ht = "23000" jb = "17.00" ElseIf k = "SEN" Or k = "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_Ke...
Posting Komentar
Baca selengkapnya

Tugas 4.4

Gambar
Private Sub cmdbatal_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtp = "" txttt = "" txtpn = "" txthar = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtp = "" txttt = "" txtpn = "" txthar = "" End Sub Private Sub cmdproses_Click() Dim k, jb, pen, har As String txttt = "20" & Mid(txtkb, 5, 2) k = Left(txtkb, 3) If k = "SIM" Then jb = "Sistem Informasi Manajemen" pen = "fadiya ulfa" har = "75900" ElseIf k = "EDP" Then jb = "Elektronik Data Processing" pen = "Nurul Agustina" har = "62000" ElseIf k = "MNJ" Then jb = "Manajemen" pen = "Rian Hidayat" har = "42000" ElseIf k =...
Posting Komentar
Baca selengkapnya

Tugas 4.5

Gambar
 Private Sub cmdbatal_Click() Txtnama.SetFocus Txtnama.Text = "" Txtnik.Text = "" Txtgol.Text = "" Txtkode.Text = "" Txtstatus.Text = "" Txttahun.Text = "" Txtjabat.Text = "" Txtbagian.Text = "" Txtgp.Text = "" Txttunjangan.Text = "" Txttg.Text = "" Txtterbilang.Text = "" End Sub Private Sub Cmdkeluar_Click() End End Sub Private Sub Cmdlagi_Click() Txtnama.SetFocus Txtnama.Text = "" Txtnik.Text = "" Txtgol.Text = "" Txtkode.Text = "" Txtstatus.Text = "" Txttahun.Text = "" Txtjabat.Text = "" Txtbagian.Text = "" Txtgp.Text = "" Txttunjangan.Text = "" Txttg.Text = "" Txtterbilang.Text = "" End Sub Private Sub Cmdproses_Click() Dim G, C, Z As String Txttahun.Text = Left(...
Posting Komentar
Baca selengkapnya

Tugas 3.3

Gambar
Private Sub Cmdbatal_Click() txtnama.SetFocus txtnama.Text = "" txtnpm.Text = "" txtjur.Text = "" txtps.Text = "" txttm.Text = "" txturut.Text = "" End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txttm = "" txturut = "" 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" txtps.Text = "Strata Satu" ElseIf S = "2" Then txtjur.Text = "Manajemen Informatika" txtps.Text = "Diploma Empat" ElseIf S = "3" Then txtjur.Text = "Tehnik Informatika" txtps.Text = "Diploma Tiga" ElseIf S = "4" Then txtjur.Text = ...
Posting Komentar
Baca selengkapnya

Tugas 3.2

Gambar
Private Sub Form_Load() Cbogolongan.AddItem "I" Cbogolongan.AddItem "II" Cbogolongan.AddItem "III" Cbogolongan.AddItem "IV" End Sub Private Sub Cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Cbogolongan Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 2500000 tunjangan = 20000 Case "III" gapok = 3000000 tunjangan = 250000 Case "IV" gapok = 4000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok = gapok txttunjangan = tunjangan txtpajak = pajak txttotal = gapok + tunjangan - pajak End Sub Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() kosong End Sub Public Sub kosong() Txtnidn.SetFocus Txtnidn = “” Txtnama = “” Cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak =...
Posting Komentar
Baca selengkapnya