tugas 1

Private Sub biru_Click()
Label3.ForeColor = vbBlue

End Sub

Private Sub ketik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label3 = ketik.Text
End If
End Sub

Private Sub merah_Click()
Label3.ForeColor = vbRed

End Sub

Private Sub miring_Click()
Label3.FontItalic = miring.Value
End Sub

Private Sub ok_Click()
Label3.Caption = ketik.Text
End Sub

Private Sub selesi_Click()
End

End Sub

Private Sub tebal_Click()
Label3.FontBold = tebal.Value
End Sub

APLIKASI GAJI

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
txtgator = Val(txtgapok) + Val(txttunjangan) - Val(txtpotongan)
txtpajak = Val(txtgator) * 0.1
txtgajiterima = Val(txtgator) - Val(txtpajak)
End Sub

Private Sub cmdulang_Click()
txtgapok.SetFocus
txtgapok = ""
txttunjangan = ""
txtpotongan = ""
txtpajak = ""
txtgator = ""
txtgajiterima = ""
End Sub

Private Sub txtgapok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttunjangan.SetFocus
End If

End Sub




Private Sub txtpotongan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgator = Val(txtgapok) + Val(txttunjangan) - Val(txtpotongan)
txtpajak = Val(txtgator) * 0.1
txtgajiterima = Val(txtgator) - Val(txtpajak)
End If
End Sub

Private Sub txttunjangan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpotongan.SetFocus
End If

End Sub

TUGAS FONT

Private Sub biru_Click()
'membuat teks berwarna biru
hasil.ForeColor = vbBlue

End Sub

Private Sub coret_Click()
If coret.Value = 1 Then
hasil.FontStrikethru = True
Else
hasil.FontStrikethru = False
End If
End Sub

Private Sub garisbawah_Click()
'membuat garis bawah
If garisbawah.Value = 1 Then
hasil.FontUnderline = True
Else
hasil.FontUnderline = False
End If
End Sub

Private Sub hijau_Click()
'membuat teks berwarrna hijau
hasil.ForeColor = vbGreen
End Sub

Private Sub keluar_Click()
End

End Sub

Private Sub kuning_Click()
'membuat teks berwarna kuning
hasil.ForeColor = vbYellow

End Sub

Private Sub merah_Click()
'membuat teks berwarna merah
hasil.ForeColor = vbRed

End Sub

Private Sub miring_Click()
'membuat teks miring
If miring.Value = 1 Then
hasil.FontItalic = True
Else
hasil.FontItalic = Falseen
End If
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

tugas 1 diskon

Private Sub cmdhitung_Click()
txtdiskon = Val(txtawal) * 0.1
txtakhir = Val(txtawal) - Val(txtdiskon)

End Sub

Private Sub cmdquit_Click()
End

End Sub

Private Sub cmdulangi_Click()
txtawal.SetFocus
txtawal = ""
txtdiskon = ""
txtakhir = ""

End Sub