Object: command1 Procedure:Click
WITH thisform
.hsl.value=.bilI.value+.bilII.value
endwith
Object: command2 Procedure:Click
WITH thisform
.hsl.value=.bilII.value-.bilII.value
endwith
Object: command3 Procedure:Click
WITH thisform
.hsl.value=.bilI.value/.bilII.value
endwith
Object: command4 Procedure:Click
WITH thisform
.hsl.value=.bilI.value*.bilII.value
endwith
Object: command5 Procedure:Click
Thisform.bilI.value=”0”
Thisform.bilII.value=”0”
Thisform.hsl.value=”0”
Thisform.bilI.setfocus
Title : tugas
Description : Object: command1 Procedure:Click WITH thisform .hsl.value=.bilI.value+.bilII.value endwith Object: command2 ...