calculator sederhana dr visual basic

Share on :

Tweet

Dim bil1, bil2 as long
Dim oprt as string
Dim hasil as double

Private sub cmdangka_click(index as integer)
if oprt= "" then
bil1= val(cmdangka(index).caption)
else
bil2= val(cmdangka(index).caption)
end if
end sub

Private sub cmdbagi_click()
oprt= "/"
end sub

Private sub cmdkali_click()
oprt= " "
end sub

Private sub cmdkurang_click()
oprt= "-"
end sub

Private sub cmdtambah_click()
oprt= "+"
end sub

Private sub form_activate()
bil1= 0: bil2= 0: oprt= ""
end sub

Private sub cmdc_click()
bil1= 0: bil2= 0: oprt= ""
end sub


to be continu..