tugas database semester 3

Private Sub cmdbaru_Click() Data1.Recordset.AddNew txtnama.SetFocus End Sub   Private Sub cmdhapus_Click() Data1.Recordset.Delete End Sub   Private Sub Cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdsimpan_Click() Data1.Recordset.Update End Sub   Private Sub Cmdbatal_Click() txtnama.SetFocus txtnama.Text = “” txtnpm.Text = “” txtjur.Text = “” txtps.Text = “” txttm.Text = “” txturut.Text = “” End Sub    …

13 program 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…

pr 5 , 12 program

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…

pr4

Program 1 Private Sub chkBold_Click() ‘Membuat teks Tebal If chkBold.Value = 1 Then lblTeks.FontBold = True Else lblTeks.FontBold = False End If End Sub   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 chkStrike_Click() ‘Membuat teks Bergaristengah If…

BAHASA PEMROGRAMAN I (PR3)

TUGAS 1   Private Sub cmdkeluar_Click() End End Sub     Private Sub cmdbatal_Click() txtn1.SetFocus txtn1 = “” txtn2 = “” txthasil1 = “” txtn3 = “” txtn4 = “” txthasil2 = “” txtn5 = “” txtn6 = “” txthasil3 = “” txtn7 = “” txtn8 = “” txthasil4 = “” End Sub    …

BAHASA PEMROGRAMAN I

TUGAS 1 Private Sub cmdkeluar_Click() Unload Me End Sub   Private Sub cmdbatal_Click() txtnpm.SetFocus txtnpm = “” txtnama = “” txtalamat = “” End Sub   Private Sub cmdlagi_Click() txtnpm.SetFocus txtnpm = “” txtnama = “” txtalamat = “” End Sub   Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtalamat.SetFocus End If…

30 RINCIAN BERITA

10 BERITA POLITIK KPK Periksa Presdir PT Nusa Konstruksi JAKARTA – Komisi Pemberantasan Korupsi (KPK) menjadwalkan pemeriksaan untuk Presiden Direktur (Presdir) PT Nusa Konstruksi Engineering, Dudung Purwadi selaku tersangka dalam kasus dugaan korupsi proyek pembangunan Rumah Sakit Khusus Pendidikan Penyakit Infeksi dan Pariwisata Universitas Udayana. “Iya, DPW (Dudung Purwadi) akan dimintai keterangan sebagai tersangka,” kata…