Edi Suparman

Private Sub Biru_Click() 'membuat teks berwarna Biru Hasil.ForeColor = vbBlue End Sub Private Sub Hijau_Click() 'membuat teks berwarna Hijau Hasil.ForeColor = vbGreen End Sub Private Sub Hitam_Click() 'membuat teks berwarna Hitam Hasil.ForeColor = vbBlack End Sub Private Sub Merah_Click() 'membuat teks berwarna merah Hasil.ForeColor = vbRed End Sub Private Sub Tebal_Click() 'membuat teks tebal If Tebal.Value = 1 Then Hasil.FontBold = True Else Hasil.FontBold = False End If End Sub Private Sub Miring_Click() 'membuat teks miring If Miring.Value = 1 Then Hasil.FontItalic = True Else Hasil.FontItalic = False End If End Sub Private Sub GarisBawah_Click() 'membuat teks GarisBawah If GarisBawah.Value = 1 Then Hasil.FontUnderline = True Else Hasil.FontUnderline = False End If End Sub Private Sub Coret_Click() 'membuat teks coret If Coret.Value = 1 Then Hasil...

Private Sub Ketik_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Label2 = Ketik.Text End If End Sub Private Sub OK_Click() Label2.Caption = Ketik.Text End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub Private Sub Selesai_Click() End End Sub

Private Sub GajiPokok_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Tunjangan.SetFocus End If End Sub Private Sub Tunjangan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Potongan.SetFocus End If End Sub Private Sub Potongan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then GajiKotor = Val(GajiPokok) + Val(Tunjangan) - Val(Potongan) Pajak = Val(GajiKotor) * 0.1 GajiBersih = Val(GajiKotor) - Val(Pajak) End If End Sub Private Sub Proses_Click() GajiKotor = Val(GajiPokok) + Val(Tunjangan) - Val(Potongan) Pajak = Val(GajiKotor) * 0.1 GajiBersih = Val(GajiKotor) - Val(Pajak) End Sub Private Sub Ulang_Click() GajiPokok.SetFocus GajiPokok = "" Tunjangan = "" Potongan = "" GajiKotor = "" Pajak = "" GajiBersih = "" End Sub Private Sub Keluar_Click() End End Sub

Private Sub GajiPokok_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Tunjangan.SetFocus End If End Sub Private Sub Tunjangan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Potongan.SetFocus End If End Sub Private Sub Proses_Click() GajiKotor = Val(GajiPokok) + Val(Tunjangan) - Val(Potongan) Pajak = Val(GajiKotor) * 0.1 GajiBersih = Val(GajiKotor) - Val(Pajak) End Sub Private Sub Ulang_Click() GajiPokok.SetFocus GajiPokok = "" Tunjangan = "" Potongan = "" GajiKotor = "" Pajak = "" GajiBersih = "" End Sub Private Sub Keluar_Click() End End Sub

Private Sub HargaAwal_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then HargaAwal.SetFocus Diskon = Val(HargaAwal) * 0.1 HargaAkhir = Val(HargaAwal) - Val(Diskon) End If End Sub Private Sub Hitung_Click() Diskon = Val(HargaAwal) * 0.1 HargaAkhir = Val(HargaAwal) - Val(Diskon) End Sub Private Sub Ulangi_Click() HargaAwal.SetFocus HargaAwal = "" Diskon = "" HargaAkhir = "" End Sub Private Sub Keluar_Click() End End Sub

Private Sub Hitung_Click() Diskon = Val(HargaAwal) * 0.1 HargaAkhir = Val(HargaAwal) - Val(Diskon) End Sub Private Sub Quit_Click() End End Sub Private Sub Ulangi_Click() HargaAwal.SetFocus HargaAwal = "" Diskon = "" HargaAkhir = "" End Sub