210 likes | 365 Views
Klasszikus Programoz ás a FoxPro -ban. Páll Boglárka 2009-2010. Adatok Beolvasása. INPUT – adatok beolvasása input [<üzenet>] to <változó> a változó megkapja a billentyűzetről beolvasott értéket és ennek típusát pl: input to a input ’ K é rem a számot:’ to szam
E N D
Klasszikus Programozás a FoxPro-ban Páll Boglárka 2009-2010
Adatok Beolvasása INPUT– adatok beolvasása • input [<üzenet>] to <változó> • a változó megkapja a billentyűzetről beolvasott értéket és ennek típusát pl: input to a input ’Kérem a számot:’ to szam input ’Kérem a nevet:’ to nev Megjegyzés: karakterláncot a beolvasásnál ‘’ közé kell tenni
Adatok Beolvasása ACCEPT– karakterek beolvasása • accept [<üzenet>] to <változó> • a változó megkapja a billentyűzetről beolvasott karakterláncot pl: accept to a accept “Kérem a nevet: ” to nev accept “Kérem a számot:” to szam
Kezdőértékek adása • Érték adás: • <változó>=<kifejezés> • Több változó inicializálása • STORE <kifejezés> TO <változó_lista> Pl: alfa=‘ez egy szoveg’ STORE 56 TO a,b,c
Kiirás • ? <kifejezés_lista> • kiírja a kifejezéseket • ? <kifejezés_lista> AT <oszlop> • kiírja a kifejezéseket, az aktuális sorba a paraméterként megadott oszloptól kezdődően Pl: ? a, b ? ‘valamit kiírok’ AT 40
Példák: ? Abs(-15) {15} ? Round(1.7567, 3) {1.757} ? Mod(5,2) {1} ? Int(7.87) {7} ? Ceiling(5.25) {6} ? Floor(5.89) {5} ? Str(78757.45678, 13, 2) {78757.45}
Példák: ? Substr(‘ABCD’,2,2) {‘BC’} ? Left(‘ABCD’, 3) {‘ABC’} ? Len(‘Alfa’) {4} ? Ltrim(‘ Mia ’) {‘Mia ’} ? At(‘nr’,‘de nr vala’) {4} ? Lower(‘VALAMI’) {‘valami’} ? Val(‘1433.44’) {1433.44} ? Occurs(‘a’,‘alfa’) {2}
Elágazási struktúra IF <feltétel> <utasítás_sor1> ELSE <utasítás_sor2> ENDIF
Választó struktúra DO CASE CASE <feltétel1> <utasítás_sor1> ... CASE <feltételn> <utasítás_sorn> [OTHERWISE <utasítás_sorm>] ENDCASE
Ismétlő struktúra DO WHILE <feltétel> <utasítás_sor> [LOOP] {kényszerített kilépés} [EXIT] {kényszerített kilépés} ENDDO
Ismétlő struktúra FOR <változó> = <kifejezés1> TO <kifejezés2> [STEP <kifejezés3>] <utasítás_sor> ENDFOR