Tugas 5.Vb

Private Sub merah_Click ()
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

Private Sub chkbold_Click ()
If chkbold.value=1then
Label1.fontBold=TrueElse
Label1.FontBold=False
End if

End sub



Private Sub chkitalic_Click ()
If chkitalic.value=1then
Label1.Fontitalic=TrueElse
Label1.Fontitalic=False
End if

End sub


Private SubChkstrikeout_Click ()
If chkstrikeout.value=1then
Label1.FontStrikethru=TrueElse
Label1.Fontstrikethru=false
End if

End sub

Private Sub chkUnderline_Click ()
If chkunderline.value=1then
Label1.fontUnderline=TrueElse
Label1.Fontunderline=False
End if

End Sub

Private Sub Command1_Click ()
End

End Sub

Tugas 4 Vb

Private sub cmdPROSES_Click ()
Text4=val(text1)+val (text2)-val (text3)
Text5=val (text4)*0.1
Text6=val (text4)-val (text5)

End sub


Private Sub CmdUlang_Click ()
Text1=""
Text2=""
Text3=""
Text4=""
Text5=""
Text6=""

End sub

Tugas 3 V.B

Private subCmdPROSES_Click ()
Text4=val (text1)+val (text2)-val (text3)
Text5=val (text4)*0.1
Text6=val (text4)-(text5)

End sub

Private Sub CmdULANG_Click ()
Text1=""
Text2=""
Text3=""
Text4=""
Text5=""
Text6=""

End sub


Private Sub Text3_keyPress(keyAscii As Integer)
If KeyAscii=13then
Text4=val (text1)+val (text2)_val (text3)
Text5=val (text4)*0.1
Text6=val (text4)-val (text5)
End If

End sub

Tugas 2.VB

Private Sub CmdHITUNG_Click ()
TxtB=val (txtA)*0.1
TxtC=val (txtA)-val (txtB)

End Sub


Private SubCmdULANGI_Click()
TxtA=""
TxtB=""
TxtC=""

End Sub

Tugas VB.1.1

Private sub CmdHITUNG_Click ()
TxtB.Text=val (txtA.Text)*0.1
TxtC.Text=val (txt.Text)-val (txtB.Text)

End sub

Private Sub CmdULANGI_Click ()
TxtA=""
TxtB=""
TxtC=""

End sub

Private Sub CmdQUIT_Click ()
End
End  Sub