Selasa, 12 Desember 2017

Tugas 3.7

Private Sub cmdbatal_Click()txtnama.SetFocustxtnik.Text = ""txtgolongan.Text = ""txtkode.Text = ""txtstatus.Text = ""txttahun.Text = ""txtjabatan.Text = ""txtbagian.Text = ""txtgaji.Text = ""txttunjangan.Text = ""txttotal.Text = ""txtnama.Text = ""End SubPrivate Sub cmdlagi_Click()txtnama.SetFocustxtnik.Text = ""txtgolongan.Text = ""txtkode.Text = ""txtstatus.Text = ""txttahun.Text = ""txtjabatan.Text = ""txtbagian.Text = ""txtgaji.Text = ""txttunjangan.Text...

Tugas 3.6

Private Sub cmdbatal_Click()cbokode = ""txtjudul = ""txtpengarang = ""txttahun = ""txtpenerbit = ""txtharga = ""cbokode.SetFocusEnd SubPrivate Sub cmdkeluar_Click()EndEnd SubPrivate Sub cmdlagi_Click()cbokode = ""txtjudul = ""txtpengarang = ""txttahun = ""txtpenerbit = ""txtharga = ""cbokode.SetFocusEnd SubPrivate Sub cmdproses_Click()Dim A As StringA = Left(txtkode, 3)If A = "SIM" Thentxtjudul = "Sistem Informasi Manajemen"txtpengarang =...

Tugas 3.5

Private Sub cmdkeluar_Click()EndEnd SubPrivate Sub cmdlagi_Click()txtkt = ""txtht = ""txtjk = ""txtjb = ""txtjt = ""txttotal = ""txtkt.SetFocusEnd SubPrivate Sub cmdproses_Click()Dim B As StringB = Left(txtkt, 3)If B = "BIM" Thentxtht = "50000"txtjk = "BIMA"txtjb = "16.00"ElseIf B = "EKO" Thentxtht = "35000"txtjk = "EKONOMI"txtjb = "19.00"ElseIf B = "MUT" Thentxtht = "23000"txtjk = "MUTIARA"txtjb = "17.00"ElseIf B = "SEN" Thentxtht = "15000"txtjk...

Tugas 3.4

Private Sub cbokode_Click() Select Case cbokode Case "A-SIM-01" Case "I-EDP-02" Case "S-MNJ-03" Case "E-CDR-04" Case "M-RPL-05" End Select End Sub Private Sub cmdbatal_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga...

Tugas 3.3

Private Sub cbokode_Click()Dim merk As Stringmerk = Mid(cbokode, 7, 5)If merk = "MC965" Thentxtmerk = "Apple MacBook Air MC965"harga = "12800000"ElseIf merk = "MC966" Thentxtmerk = "Apple MacBook Air MC966"harga = "15800000"ElseIf merk = "MC968" Thentxtmerk = "Apple MacBook Air MC968"harga = "9900000"ElseIf merk = "MC969" Thentxtmerk = "Apple MacBook Air MC969"harga = "11900000"ElseIf merk = "MC700" Thentxtmerk = "Apple MacBook Pro MC700"harga...

Tugas 3.2

Private Sub cmdbatal_Click()txtnama.SetFocustxtnama.Text = ""txtnpm.Text = ""txtjur.Text = ""txtps.Text = ""txttm.Text = ""txturut.Text = ""End SubPrivate Sub cmdkeluar_Click()Unload MeEnd SubPrivate Sub cmdlagi_Click()txtnama.SetFocustxtnama.Text = ""txtnpm.Text = ""txtjur.Text = ""txtps.Text = ""txttm.Text = ""txturut.Text = ""End SubPrivate Sub cmdproses_Click()Dim i As Stringtxttm.Text = "20" & Left(txtnpm.Text, 2)i = Mid(txtnpm.Text,...

Tugas 3.1

Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdlagi_Click() kosong End Sub Private Sub Form_Load() Cbogolongan.AddItem "1" Cbogolongan.AddItem "11" Cbogolongan.AddItem "111" Cbogolongan.AddItem "1V" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Cbogolongan.Text Case "1" gapok = 1500000 tunjangan = 150000 Case "11" gapok = 2000000 tunjangan...