Tugas 1 Program 5

Private Sub cmdbatal_click()
Txtinput1 = ""
Txtinput2 = ""
Txtinput3 = ""
Txtinput4 = ""
Txtinput5 = ""
Txtinput6 = ""
Txtinput7 = ""
Txtinput8 = ""
txthasil1 = ""
txthasil2 = ""
txthasil4 = ""
txthasil3 = ""
hasil1 = ""
Txtinput1.SetFocus
End Sub

Private Sub cmdlagi_Click()
Txtinput1 = ""
Txtinput2 = ""
Txtinput3 = ""
Txtinput4 = ""
Txtinput5 = ""
Txtinput6 = ""
Txtinput7 = ""
Txtinput8 = ""
txthasil1 = ""
txthasil2 = ""
txthasil4 = ""
txthasil3 = ""
hasil1 = ""
Txtinput1.SetFocus
End Sub

Private Sub cmdkeluar_click()
Unload Me
End Sub

Private Sub cmdhasil_Click()
txthasil1 = Val(Txtinput1) + (Txtinput2)
txthasil2 = Val(Txtinput3) / (Txtinput4)
txthasil3 = Val(Txtinput5) - (Txtinput6)
txthasil4 = Val(Txtinput7) * (Txtinput8)
hasil1 = Val(txthasil1) + Val(txthasil2) + Val(txthasil3) + Val(txthasil4)
End Sub

Private Sub Form_Load()

End Sub