Wawan riyanto

Private Sub Hitam_Click() 'membuat teks berwarna Hitam Hasil.ForeColor = vbBlack End Sub Private Sub Biru_Click() 'membuat teks berwarna Biru Hasil.ForeColor = vbBlue End Sub Private Sub Merah_Click() 'membuat teks berwarna Merah Hasil.ForeColor = vbRed End Sub Private Sub Hijau_Click() 'membuat teks berwarna Hijau Hasil.ForeColor = vbGreen 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.FontStrikethru = True Else Hasil.FontStrikethru ...

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 keluar_Click() End 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 tunjangan_keypress(keyascii As Integer) If keyascii = 13 Then potongan.SetFocus End If End Sub Private Sub ulang_Click() GajiPokok.SetFocus GajiPokok = "" tunjangan = "" potongan = "" gajikotor = "" pajak = "" gajibersih = "" End Sub

Private Sub GajiPokok_keypress(keyascii As Integer) If keyascii = 13 Then tunjangan.SetFocus End If End Sub Private Sub keluar_Click() End 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 tunjangan_keypress(keyascii As Integer) If keyascii = 13 Then potongan.SetFocus End If End Sub Private Sub ulang_Click() GajiPokok.SetFocus GajiPokok = "" tunjangan = "" potongan = "" gajikotor = "" pajak = "" gajibersih = "" 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