Rumus n 2
Private Sub chkbold_Click()
If chkbold.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub
Private Sub Chkitalic_Click()
If chkitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub
Private Sub Chkstrike_Click()
If chkstrike.Value = 1 Then
lbltext.FontStrikethru = True
Else
lbltext.FontStrikethru = False
End If
End Sub
Private Sub Chkunder_Click()
If chkunder.Value = 1 Then
lbltext.FontUnderline = True
Else
lbltext.FontUnderline = False
End If
End Sub
Private Sub Cmdexit_Click()
End
End Sub
Private Sub optblue_Click()
lbltext.ForeColor = vbBlue
End Sub
Private Sub optgreen_Click()
lbltext.ForeColor = vbGreen
End Sub
Private Sub optred_Click()
lbltext.ForeColor = vbRed
End Sub
Private Sub optyellow_Click()
lbltext.ForeColor = vbYellow
End Sub
rumus n 3
TUGAS N 3
Private Sub cmdok_Click()
label2.Caption = Text1.Text
End Sub
Private Sub optblue_Click()
label2.ForeColor = vbBlue
End Sub
Private Sub optgreen_Click()
label2.ForeColor = vbGreen
End Sub
Private Sub optred_Click()
label2.ForeColor = vbRed
End Sub
Private Sub optyellow_Click()
label2.ForeColor = vbYellow
End Sub
rumus n 1
Rumus n 1
Private Sub Cmdhitung_Click()
Dim a, b, c As Integer
textb.Text = Val(texta, Text) * o1
Textc.Text = Val(texta.Text) – Val(textb.Text)
End Sub
Private Sub Cmdkeluar_Click()
texta = “”
textb = “”
Textc = “”
End Sub
Private Sub Cmdulang_Click()
End
End Sub
Private Sub texta_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textb.SetFocus
End If
End Sub
Private Sub textb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textc.SetFocus
End If
End Sub
Private Sub Textc_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textd = Val(texta) + Val(textb) – Val(Textc)
texte = Val(Textd) * 0.1
Textf = Val(Textd) – Val(texte)
End If
End Sub