Tugas 2.6

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()

Label2.FontItalic = Check2.Value

End Sub

Private Sub cmdselesai_Click()

End

End Sub

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

Tugas 2.5

Private Sub chkbold_Click()

If chkbold.Value = 1 Then

Label1.FontBold = True

Else

Label1.FontBold = False

End If

End Sub

Private Sub chkitalic_Click()

If chkitalic.Value = 1 Then

Label1.FontItalic = True

Else

Label1.FontItalic = False

End If

End Sub

Private Sub chkstrikeout_Click()

If chkstrikeout.Value = 1 Then

Label1.FontStrikethru = True

Else

Label1.FontStrikethru = False

End If

End Sub

Private Sub chkunderline_Click()

If chkunderline.Value = 1 Then

Label1.FontUnderline = True

Else

Label1.FontUnderline = False

End If

End Sub

Private Sub Command1_Click()

End

End Sub 

Private Sub merah_Click()

'membuat teks berwarna merah

Label1.ForeColor = vbRed

End Sub

Private Sub Optblue_Click()

Label1.ForeColor = vbBlue

End Sub

Private Sub Optgreen_Click()

Label1.ForeColor = vbGreen

End Sub

Private Sub Optyellow_Click()

Label1.ForeColor = vbYellow

End Sub

Tugas 2.4

Private Sub Commandkeluar_Click()

End

End Sub

Private Sub Commandproses_Click()

Text4 = Val(Text1) + Val(Text2) - Val(Text3)

Text5 = Val(Text4) * 0.1

Text6 = Val(Text4) - Val(Text5)

End Sub

Private Sub CommandUlang_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4 = Val(Text1) + Val(Text2) - Val(Text3)

Text5 = Val(Text4) * 0.1

Text6 = Val(Text4) - Val(Text5)

End If

End Sub

Tugas 2.3

Private Sub Commandkeluar_Click()

End

End Sub


Private Sub Commandproses_Click()

Text4 = Val(Text1) + Val(Text2) - Val(Text3)

Text5 = Val(Text4) * 0.1

Text6 = Val(Text4) - Val(Text5)


End Sub


Private Sub CommandUlang_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

End Sub

Tugas 2.2

Private Sub cmdhitung_Click()
txtB.Text = Val(txtA.Text) * 0.1
txtC.Text = Val(txtA.Text) - Val(txtB.Text)

End Sub


Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdulangi_Click()
txtA = ""
txtB = ""
txtC = ""

End Sub

Tugas 2.1

Private Sub cmdhitung_Click()
txtB = Val(txtA) * 0.1
txtC = Val(txtA) - Val(txtB)

End Sub

Private Sub cmdulangi_Click()
txtA = ""
txtB = ""
txtC = ""

End Sub