tugas 10

Private Sub cmdkeluar_Click() Form2.Show End Sub Private Sub cmdlagi_Click() txtkode.SetFocus txtkode = “” txtht = “” txtjenis = “” txtjb = “” txtjumlah = “” txttotal = “” End Sub   Private Sub cmdproses_Click() Dim S As String S = Left(txtkode.Text, 3) If S = “BIM” Then txtjenis.Text = “BIMA” txtht.Text = “50000” txtjb.Text =…

TUGAS 9 TOKO ALAT TULIS SALSABILA

  Private Sub Cmdadd_Click() Data1.Recordset.AddNew Txtkode.SetFocus End Sub   Private Sub Cmdcancel_Click() Data1.Recordset.Delete End Sub   Private Sub Cmdhitung_Click() Txtby.Text = Val(Txthb.Text) * Val(Txtjb.Text) If Val(Txtjb.Text) > “5” Then Txtpot.Text = Val(Txtby) * 0.02 Txttb.Text = Val(Txtby.Text) – (Txtpot.Text) End If End Sub   Private Sub Cmdkeluar_Click() Form2.Show End Sub   Private Sub Cmdproses_Click() Dim…

TUGAS 8 PT. PULANG PETANG SETIAP HARI

Private Sub Cmdkeluar_Click() Form2.Show   End Sub   Private Sub cmdlagi_Click() Textkt.SetFocus Textkt = “” Textht = “” Textjk = “” Textjb = “” Textjt = “” Texttp = “” End Sub   Private Sub cmdproses_Click() Dim S As String S = Left(Textkt.Text, 3) If S = “BIM” Or S = “bim” Then Textjk.Text =…

TUGAS 7 NPM ASAL

  Private Sub cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “” End Sub   Private Sub cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnpm = “” Textjur = “” Textps = “” Texttm = “” Textnu = “”…

TUGAS 6 NPM ASLI

Private Sub cmdbatal_Click() txtnama.SetFocus txtnama.Text = “” txtnpm.Text = “” txtjur.Text = “” txtps.Text = “” txttm.Text = “” txturut.Text = “” End Sub   Private Sub cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdlagi_Click() txtnama.SetFocus txtnama.Text = “” txtnpm.Text = “” txtjur.Text = “” txtps.Text = “” txttm.Text = “” txturut.Text = “” End…

TUGAS 5 DATA BUKU STMIK CBO

Private Sub Cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdlagi_Click() Cmbcode.SetFocus Cmbcode = “” Textjb = “” Textpeng = “” Texttt = “” Textpen = “” Textharga = “” End Sub   Private Sub cmdproses_Click() Dim judul, pengarang, tahun, penerbit, harga As String Select Case Cmbcode Case “A-SIM-01” judul = “SistemInformasiManajemen” pengarang = “YatiNurOktavia” tahun…

TUGAS 4 DATA BUKU STMIK

Private Sub Cmdbatal_Click() Txtkode.SetFocus Txtkode.Text = “” Txtjb.Text = “” txtpeng.Text = “” Txttp.Text = “” Txtpen.Text = “” Txtharga.Text = “” End Sub   Private Sub cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdlagi_Click() Txtkode.SetFocus Txtkode.Text = “” Txtjb.Text = “” txtpeng.Text = “” Txttp.Text = “” Txtpen.Text = “” Txtharga.Text = “” End…

TUGAS 3 PENJUALAN KOMPUTER

  Private Sub Cbocode_Click() Dim jenis, hs As String Select Case Cbocode Case “P205” jenis = “Pentium II 500 Mega Hz” hs = “1500000” Case “P308” jenis = “Pentium III 800 Mega Hz ” hs = “2100000 ” Case “P310” jenis = “pentium III 1.0 Giga Hz” hs = “3500000 ” Case “P415” jenis =…

TUGAS 2 PENJUALAN LAPTOP

  Private Sub Cbokode_Click() Dim mt, hs, TB As Integer Select Case cbokode.Text Case ” MC965″ mt = “Apple MacBook Air MC965” hs = “12800000” Case “MC966 ” mt = “Apple MacBook Air MC966” hs = “15800000” Case “MC968 ” mt = “Apple MacBook Air MC968” hs = “9900000” Case ” MC969 ” mt =…

TUGAS PERTAMA NIDN

Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan.Text Case “I” gapok = 1500000 tunjangan = 150000 Case “II” gapok = 2000000 tunjangan = 200000 Case “III” gapok = 2500000 tunjangan = 250000 Case “IV” gapok = 3000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select…

TUGAS 9 PROGRAM

A.PROGRAM SATU   PROGRAM 1 Private Sub cbogolongan_click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan.Text Case “I” gapok = 1500000 tunjangan = 150000 Case “II” gapok = 2000000 tunjangan = 200000 Case “III” gapok = 2500000 tunjangan = 250000 Case “IV” gapok = 3000000 tunjangan = 300000 Case Else gapok = 0…

Nama Mahasiswa, Color, Style

Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub   Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub   Private Sub Command1_Click() Label2.Caption = Text1.Text End Sub   Private Sub Command2_Click() End End Sub   Private Sub Option1_Click() Label2.ForeColor = vbGreen End Sub   Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub