Tugas 2.6

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.FontStrikethru = True
Else
Hasil.FontStrikethru = False
End If
End Sub

Private Sub Keluar_Click()
End
End Sub

Tugas 2.5

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

Tugas 2.4

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

Tugas 2.3

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

Tugas 2.2

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

Tugas 2.1

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