tugas 5

Private Sub BATAL_Click()
Textn1 = ""
Textn2 = ""
Textn3 = ""
Textn4 = ""
Textn5 = ""
Textn6 = ""
Textn7 = ""
Textn8 = ""
Texttotal1 = ""
Texttotal2 = ""
Texttotal3 = ""
Texttotal4 = ""
Textn1.SetFocus
End Sub

Private Sub HITUNG_Click()
Texttotal1 = Val(Textn1) + Val(Textn2)
Texttotal2 = Val(Textn3) / Val(Textn4)
Texttotal3 = Val(Textn5) - Val(Textn6)
Texttotal4 = Val(Textn7) * Val(Textn8)
End Sub

Private Sub LAGI_Click()
Textn1 = ""
Textn2 = ""
Textn3 = ""
Textn4 = ""
Textn5 = ""
Textn6 = ""
Textn7 = ""
Textn8 = ""
Texttotal1 = ""
Texttotal2 = ""
Texttotal3 = ""
Texttotal4 = ""
Textn1.SetFocus
End Sub