Bahasa Pemrograman II

Database Mahasiswa Private Sub Command1_Click() Data1.Recordset.AddNew Text1.SetFocus End Sub Private Sub Command2_Click() Data1.Recordset.Update End Sub Private Sub Command3_Click() Data1.Recordset.Delete End Sub Private Sub Command4_Click() End End Sub Iklan

BAHASA PEMROGRAMAN DATABASE

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 tunjangan = 0…

TIPE B Private Sub cmdbaru_Click() Data1.Recordset.AddNew txtkb.SetFocus End Sub   Private Sub cmdbatal_Click() txtkb.SetFocus txtkb.Text = “” txtjb.Text = “” txtp.Text = “” txttahun.Text = “” txtpenerbit.Text = “” txthg.Text = “” End Sub   Private Sub cmdhapus_Click() Data1.Recordset.Delete End Sub   Private Sub cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdlagi_Click() txtkb.SetFocus txtkb.Text =…

BAHASA PEMROGRAMAN DATABASE

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 tunjangan = 0…

TIPE E Private Sub cmdbatal_Click() txtkb.SetFocus txtkb.Text = “” txtjb.Text = “” txtp.Text = “” txttahun.Text = “” txtpenerbit.Text = “” txthg.Text = “” End Sub   Private Sub cmdkeluar_Click() End End Sub   Private Sub cmdlagi_Click() txtkb.SetFocus txtkb.Text = “” txtjb.Text = “” txtp.Text = “” txttahun.Text = “” txtpenerbit.Text = “” txthg.Text =…

TIPE D Private Sub cmdproses_Click() Dim A, B, C, D As String Dim H As Double txttt = “20” & Right(cbokode, 2) A = Mid(cbokode, 3, 3) If A = “SIM” Then B = “SISTEM INFORMASI MANAJEMEN” C = “YATI NUR OKTAVIA” H = “75900” ElseIf A = “MNJ” Then B = “MANAJEMEN” C =…

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 tunjangan = 0…

MICROSOFT VISUAL BASIC 60

    Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub   Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub   Private Sub Command1_Click() Label2.Caption = “MAYMANAH” End Sub   Private Sub Command2_Click() End End Sub   Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub   Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub    …

tulis nama anda

      Private Sub chkitalic_Click() ‘membuat teks miring If ChkItalic.Value = 1 Then lblteks.FontItalic = True Else lblteks.FontItalic = False   End If End Sub   Private Sub chkstrikeout_Click() ‘Membuat teks garis tengah If ChkStrike.Value = 1 Then lblteks.Fontstrikeout = True Else lblteks.Fontstrikeout = False   End If End Sub   Private Sub chkunderline_Click()…

APLIKASI PERHITUNGAN GAJI

3.2 Private Sub cmdhitung_Click() txtgp = Val(txtgp) + (txttj) + (txtpt) txtpjk = Val(txtgk) * 0.1 txtgd = Val(txtgk) – Val(txtpjk)   End Sub   Private Sub cmdulang_Click() txtgp.SetFocus txtgp = “” txttj = “” txtpot = “” txtgk = “” txtpjk = “” txtgd = “”   End Sub   Private Sub cmdkeluar_Click() End…

APLIKASI PERHITUNGAN GAJI

3.1 Private Sub cmdhitung_Click() txtgk = Val(txtgp) + (txttj) – (txtpt) txtpjk = Val(txtgk) * 0.1 txtgd = Val(txtgk) – Val(txtpjk)   End Sub   Private Sub cmdulangi_Click() txtgp.SetFocus txtgp = “” txttj = “” txtpot = “” txtgk = “” txtpjk = “” txtgd = “”   End Sub   Private Sub cmdkeluar_Click() End…