APLIKASI PERHITUNGAN HARGA

3.1

Private Sub cmdhitung_Click()

txtgk = Val(txtgp) + (txttj) – (txtpt)

txtpjk = Val(txtgk) * 0.1

txtgd = Val(txtgk) – Val(txtpjk)

 

End Sub

 

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttj = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

 

End Sub

 

Private Sub cmdkeluar_Click()

End

 

End Sub