@ [y],[x] GET [jotain] ... tai XGET([y],[x],[jotain],[formaatti],[1/0],[fontti],[korkeus],[leveys])

@ [y],[x] GET [jotain] ...
@ [y],[x] GET [jotain] PICTURE [formaatti]
@ [y],[x] GET [jotain] width [pituus]
@ [y],[x] GET [jotain] font [fontti]
@ [y],[x] GET [jotain] style [1/0]
XGET([y],[x],[jotain],[formaatti],[1/0],[fontti],[korkeus],[leveys])

Parametrit

[y] ja [x] ovat kuvaruutukoordinaatteja.
Mikäli style on annettu 1 käytetään pikselikoordinaatistoa.
Mikäli [y] on negatiivinen käytetään parametria -1*([y]+1000) eli esim. -1230 muuttuu 230. Lisäksi kenttään tulee pistenappi, joka laukaisee viestin 400 (kt. esimerkki).

[jotain] on jokin muuttuja tai kenttä, jonka tietoa on tarkoitus käsitellä.

[formaatti] on kuvaruutumaski numeraaleille arvoille, esim. "999.99".
Formaatissa voi olla numerotunniste esim. "610|999.99" tai myös "610|", jolloin ohjelma lähettää aliohjelmaan viestin nappain=610.

[pituus] on numero pixeleissä, joka kertoo kuinka leveä kentän pitää olla kuvaruudulla. Jos kentän tietosisältö on pidempi kenttä vierittyy automaattisesti.

[fontti] on tallennustilassa käytettävä fontti. Se on yksi jos käytetään perusfonttia.
[1/0] on yksi tai nolla. Tällä määritetään y ja x koordinaattien suuruus. Jos arvo on nolla (y,x) koordinaatit ovat (rivi,sarake). Jos arvo on yksi (y,x) koordinaatit ovat (pikseli-rivi,pikseli-sarake).

HUOM! GET komento muunnetaan aina XGET() -funktioksi, jossa asetukset voidaan määrittää paremmin. GET käytöstä on syytä siirtyä jatkossa käyttämään XGET() -funktiota.

Selitys

GET ja sen lisäksi olevalla READ-käskyillä luodaan kuvaruutuun kuvaruutulomake. GET-käskyllä määritellään lomakkeen täytettävät kohdat ja viimeisen GET-käskyn jälkeen tuleva READ-käsky käynnistää lomakkeen. Kun READ käy siirrytään kentästä toiseen nuolinäppäimillä tai Enter -näppäimellä. Esc, PgDn tai PgUp saattavat lopettaa READ'n myös.

Esimerkki

van=setwindow()
ikku=winnew("Testi",0,0,400,300)
setwindow(ikku)
fo1=choosefont("Arial,8",,1,1)
apu1="kokeilu"
apu2="Toinen"
num1=55.2
num2=100
@ 1,3 get apu1
@ 2,3 get num1
@ 3,5 get num2 picture "999.99"
@ 4,5 get apu2 width 150
@ 6,5 get apu2 font fo1
@ 200,225 get apu2 style 1

read
setwindow(van)
deleteobject(fo1)
destroywin(ikku)


get

Sama tulos käyttämällä XGET() funktiota:


van=setwindow()
ikku=winnew("Testi",0,0,400,300)
setwindow(ikku)
fo1=choosefont("Arial,8",,1,1)
apu1="kokeilu"
apu2="Toinen"
num1=55.2
num2=100
xget(1,3,apu1)
xget(2,3,num1)
xget(3,5,num2,"999.99")
xget(4,5,apu2,"",0,0,24,150)
xget(6,5,apu2,"",0,fo1)
xget(200,225,apu2,"",1)
xget(-1230,225,apu2,"",1)

read
setwindow(van)
deleteobject(fo1)
destroywin(ikku)

get

Katso myös READ, WINNEW EDIT