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