0
private sub command1_click()
if (f = 0) then
text1.text = " "
f = 1
end if
text1.text = text1.text + "1"
end sub
private sub command1_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command1_mousemove(button as integer, shift as integer, x as single, y as single)
command1.backcolor = &h80000000
end sub
private sub command10_click()
if (f = 0) then
text1.text = " "
f = 1
end if
text1.text = text1.text + "0"
end sub
private sub command10_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command10_mousemove(button as integer, shift as integer, x as single, y as single)
command10.backcolor = &h80000000
end sub
private sub command11_click()
a = val(text1.text)
text1.text = " "
m = 1
f = 0
command12.enabled = false
command13.enabled = false
command14.enabled = false
end sub
private sub command11_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command11_mousemove(button as integer, shift as integer, x as single, y as single)
command11.backcolor = &h80000000
end sub
private sub command12_click()
a = val(text1.text)
text1.text = " "
m = 2
f = 0
command11.enabled = false
command13.enabled = false
command14.enabled = false
end sub
private sub command12_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command12_mousemove(button as integer, shift as integer, x as single, y as single)
command12.backcolor = &h80000000
end sub
private sub command13_click()
a = val(text1.text)
text1.text = " "
m = 3
f = 0
command11.enabled = false
command12.enabled = false
command14.enabled = false
end sub
private sub command13_mousemove(button as integer, shift as integer, x as single, y as single)
command13.backcolor = &h80000000
end sub
private sub command14_click()
a = val(text1.text)
text1.text = " "
m = 4
f = 0
command12.enabled = false
command13.enabled = false
command11.enabled = false
end sub
private sub command14_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command14_mousemove(button as integer, shift as integer, x as single, y as single)
command14.backcolor = &h80000000
end sub
private sub command15_click()
b = val(text1.text)
if (m = 1) then
text1.text = " "
text1.text = a + b
end if
if (m = 2) then
text1.text = " "
text1.text = a - b
end if
if (m = 3) then
text1.text = " "
text1.text = a * b
end if
if (m = 4) then
text1.text = " "
text1.text = a / b
end if
m = 0
command11.enabled = true
command12.enabled = true
command13.enabled = true
command14.enabled = true
end sub
private sub command15_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command15_mousemove(button as integer, shift as integer, x as single, y as single)
command15.backcolor = &h80000000
end sub
private sub command16_click()
text1.text = " "
end sub
private sub command16_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command16_mousemove(button as integer, shift as integer, x as single, y as single)
command16.backcolor = &h80000000
end sub
private sub command17_click()
end
end sub
private sub command17_mousemove(button as integer, shift as integer, x as single, y as single)
command17.backcolor = &h80000000
end sub
private sub command18_click()
k = val(text1.text)
text1.text = sqr(k)
end sub
private sub command18_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command18_mousemove(button as integer, shift as integer, x as single, y as single)
command18.backcolor = &h80000000
end sub
private sub command19_click()
ka = val(text1.text)
text1.text = ka * ka
end sub
private sub command19_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command19_mousemove(button as integer, shift as integer, x as single, y as single)
command19.backcolor = &h80000000
end sub
private sub command2_click()
if (f = 0) then
text1.text = " "
f = 1
end if
text1.text = text1.text + "2"
end sub
private sub command2_mousemove(button as integer, shift as integer, x as single, y as single)
command2.backcolor = &h80000000
end sub
private sub command3_click()
if (f = 0) then
text1.text = " "
f = 1
end if
text1.text = text1.text + "3"
end sub
private sub command3_mousemove(button as integer, shift as integer, x as single, y as single)
command3.backcolor = &h80000000
end sub
private sub command4_click()
if (f = 0) then
text1.text = " "
f = 1
end if
text1.text = text1.text + "4"
end sub
private sub command4_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command4_mousemove(button as integer, shift as integer, x as single, y as single)
command4.backcolor = &h80000000
end sub
private sub command5_click()
if (f = 0) then
text1.text = " "
f = 1
end if
text1.text = text1.text + "5"
end sub
private sub command5_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command5_mousemove(button as integer, shift as integer, x as single, y as single)
command5.backcolor = &h80000000
end sub
private sub command6_click()
if (f = 0) then
text1.text = " "
f = 1
end if
text1.text = text1.text + "6"
end sub
private sub command6_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command6_mousemove(button as integer, shift as integer, x as single, y as single)
command6.backcolor = &h80000000
end sub
private sub command7_click()
if (f = 0) then
text1.text = " "
f = 1
end if
text1.text = text1.text + "7"
end sub
private sub command7_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command7_mousemove(button as integer, shift as integer, x as single, y as single)
command7.backcolor = &h80000000
end sub
private sub command8_click()
if (f = 0) then
text1.text = " "
f = 1
end if
text1.text = text1.text + "8"
end sub
private sub command8_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command8_mousemove(button as integer, shift as integer, x as single, y as single)
command8.backcolor = &h80000000
end sub
private sub command9_click()
if (f = 0) then
text1.text = " "
f = 1
end if
text1.text = text1.text + "9"
end sub
private sub command9_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub command9_mousemove(button as integer, shift as integer, x as single, y as single)
command9.backcolor = &h80000000
end sub
private sub form_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
end sub
private sub form_load()
f = 1
m = 0
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
command1.backcolor = &h8000000f
command2.backcolor = &h8000000f
command3.backcolor = &h8000000f
command4.backcolor = &h8000000f
command5.backcolor = &h8000000f
command6.backcolor = &h8000000f
command7.backcolor = &h8000000f
command8.backcolor = &h8000000f
command9.backcolor = &h8000000f
command10.backcolor = &h8000000f
command11.backcolor = &h8000000f
command12.backcolor = &h8000000f
command13.backcolor = &h8000000f
command14.backcolor = &h8000000f
command15.backcolor = &h8000000f
command16.backcolor = &h8000000f
command18.backcolor = &h8000000f
command19.backcolor = &h8000000f
end sub
private sub text1_keypress(keyascii as integer)
if (keyascii = 27) then
end
end if
if (f = 0) then
text1.text = " "
f = 1
end if
if (keyascii = 43) then
a = val(text1.text)
text1.text = " "
f = 0
m = 1
end if
if (keyascii = 45) then
a = val(text1.text)
text1.text = " "
f = 0
m = 2
end if
if (keyascii = 42) then
a = val(text1.text)
text1.text = " "
f = 0
m = 3
end if
if (keyascii = 47) then
a = val(text1.text)
text1.text = " "
f = 0
m = 4
end if
if (keyascii = 13) then
b = val(text1.text)
if (m = 1) then
text1.text = " "
text1.text = a + b
end if
if (m = 2) then
text1.text = " "
text1.text = a - b
end if
if (m = 3) then
text1.text = " "
text1.text = a * b
end if
if (m = 4) then
text1.text = " "
text1.text = a / b
end if
m = 0
end if
if (text1.text = "+") then
text1.text = " "
end if
if (keyascii = 25) then
text1.text = " "
end if
end sub
Tümünü Göster