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
txtB = Val(txtA) * 0.1
txtC = Val(txtA) - Val(txtB)
End Sub
Private Sub cmdulangi_Click()
txtA = ""
txtB = ""
txtC = ""
End Sub

Komentar
Posting Komentar