Pemrograman · Tugas

Tugas 5

Tugas 1 Private Sub CboGolongan_Click() Dim Golongan, GajiPokok, Tunjangan, Pajak, Total As Variant Golongan = CboGolongan Select Case Golongan Case “I” GajiPokok = 1500000 Tunjangan = 150000 Case “II” GajiPokok = 2000000 Tunjangan = 200000 Case “III” GajiPokok = 2500000 Tunjangan = 250000 Case “IV” GajiPokok = 3000000 Tunjangan = 300000 End Select TxtGajiPokok =… Continue reading Tugas 5

Pemrograman · Tugas

Tugas Pertemuan Ke 4

Tugas 1 Source Code : Private Sub CboGolongan_Click() Dim Golongan, GajiPokok, Tunjangan, Pajak, Total As Variant Golongan = CboGolongan Select Case Golongan Case “I” GajiPokok = 1500000 Tunjangan = 150000 Case “II” GajiPokok = 2000000 Tunjangan = 200000 Case “III” GajiPokok = 2500000 Tunjangan = 250000 Case “IV” GajiPokok = 3000000 Tunjangan = 300000 End… Continue reading Tugas Pertemuan Ke 4

Tugas

Tugas Ke 3

Tugas 1 Source Code Private Sub ChkBold_Click() If ChkBold.Value = 1 Then LblTampil.FontBold = True Else LblTampil.FontBold = False End If End Sub Private Sub ChkItalic_Click() If ChkItalic.Value = 1 Then LblTampil.FontItalic = True Else LblTampil.FontItalic = False End If End Sub Private Sub ChkStrikeOut_Click() If ChkStrikeOut.Value = 1 Then LblTampil.FontStrikethru = True Else LblTampil.FontStrikethru… Continue reading Tugas Ke 3

Pemrograman · Tanpa kategori

Tugas Pertemuan Ke 2

Tugas 1 Source Code : Private Sub CmdClear_Click() TxtNilai1.SetFocus TxtNilai1 = “” TxtNilai2 = “” TxtHasil = “” End Sub Private Sub CmdHitung_Click() TxtHasil = Val(TxtNilai1) * Val(TxtNilai2) End Sub Private Sub CmdOut_Click() Unload Me End Sub Private Sub TxtNilai1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtNilai2.SetFocus End If End Sub   Tugas 2… Continue reading Tugas Pertemuan Ke 2

Pemrograman · Tugas

Tugas 8 Aplikasi Perhitungan Gaji

Script Aplikasi Perhitungan Gaji : Private Sub CmdKeluar_Click() Unload Me End Sub Private Sub CmdProses_Click() TxtGajiKotor = Val(TxtGajiPokok) + Val(TxtTunjangan) – Val(TxtPotongan) TxtPajak = Val(TxtGajiKotor) * 0.1 TxtGajiDiterima = Val(TxtGajiKotor) – Val(TxtPajak) End Sub Private Sub CmdUlang_Click() TxtGajiPokok.SetFocus TxtGajiPokok = “” TxtTunjangan = “” TxtPotongan = “” TxtGajiKotor = “” TxtPajak = “” TxtGajiDiterima =… Continue reading Tugas 8 Aplikasi Perhitungan Gaji

Pemrograman · Tugas

Tugas 7 Aplikasi Perhitungan Gaji

Script Aplikasi Perhitungan Gaji : Private Sub CmdKeluar_Click() Unload Me End Sub Private Sub CmdProses_Click() TxtGajiKotor = Val(TxtGajiPokok) + Val(TxtTunjangan) – Val(TxtPotongan) TxtPajak = Val(TxtGajiKotor) * 0.1 TxtGajiDiterima = Val(TxtGajiKotor) – Val(TxtPajak) End Sub Private Sub CmdUlang_Click() TxtGajiPokok.SetFocus TxtGajiPokok = “” TxtTunjangan = “” TxtPotongan = “” TxtGajiKotor = “” TxtPajak = “” TxtGajiDiterima =… Continue reading Tugas 7 Aplikasi Perhitungan Gaji

Pemrograman · Tugas

Tugas 6 Perhitungan Harga Diskon

Scrip Aplikasi Perhitungan Harga Diskon : Private Sub CmdHitung_Click() TxtDiskon = Val(TxtHargaAwal) * 0.1 TxtHargaAkhir = Val(TxtHargaAwal) – Val(TxtDiskon) End Sub Private Sub CmdQuit_Click() Unload Me End Sub Private Sub CmdUlang_Click() TxtHargaAwal.SetFocus TxtHargaAwal = “” TxtDiskon = “” TxtHargaAkhir = “” End Sub Private Sub TxtHargaAwal_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtDiskon =… Continue reading Tugas 6 Perhitungan Harga Diskon