SlimJim Antenna calculator

[Egil]

Uploading this calculator again, since it was lost when the site was hacked.
When browsing this forum, and the IB Std section of CodingMonkeys, there are several post discussing difficulties when detecting whether the Enter Key  is pressed or not.
And several posts show the workaround:

Code Select Expand

DECLARE "user32",TestKey alias GetAsyncKeyState(vKey:int),int

and using this in the Main handler like this:

Code Select Expand

if TestKey(13) <> 0 :' ENTER is pressed
fq$ = GETCONTROLTEXT (win, 1)
calc(fq$)
endif

But I have not been able to notice any difference when using GETKEYSTATE instead:

Code Select Expand

if GETKEYSTATE(13) <> 0
fq$ = GETCONTROLTEXT (win, 1)
calc(fq$)
endif


Have fun!

Egil