coding calculator

CODING UNTUK (SAMA DENGAN ) = DO CASE
    CASE C = "tambah"
    TOTAL = VAL(B) + VAL(A)
    thisform.text1.Value = STR (TOTAL)
    A = ""