Programmering II - Xpi

Eksempel med ASENUM
REAL &Kurs = 4.468 {100 xx (valuta) i DKK}
REAL &Beløb
INT &Metode
PROMPT ”Omregning af valuta”,,,
”Indstil kurs .........: ” GET (&Kurs),
”(Beløb i DKK svarende til”,
”100 enheder i fremmed valuta!”,,,
”Beløb..: ” GET (&Beløb),
”Metode.: ” GET (&Metode ASENUM ”Til fremmed\nTil DKK”),
INPUT
IF &Metode == 0 THEN
PRINT ”DKK til fremmed valuta: ”, &Beløb/&Kurs*100
ELSE
PRINT ”Fremmed valuta til DKK: ”, &Beløb*&Kurs/100
ENDIF
PAUSE
Ovenstående eksempel er beregnet til omregning af valuta. Der er to metoder, idet et indtastet beløb
kan omregnes til fremmed valuta eller til danske kroner.
I eksemplet anvendes ASENUM til variablen &Metode, så der kan vælges mellem værdierne ’Til
fremmed’ og ’Til DKK’.
I IF sætningen checkes om metoden er lig med nul, der svarer til den første tekst.
Resultat
Taster der ALT+H indtastningsfeltet til metode vises listen over de indbyggede fasttekster, hvorfra der
kan vælges en.
DECIMALS
Indstil kurs .........: 4,47
(Beløb i DKK svarende til
100 enheder i fremmed valuta!)
Beløb..:
Metode.:
Omregning af valuta
0,00 Til fremmed
Til fremmed ALT+H
Til DKK
Med udtrykket DECIMALS angives hvor mange decimaler, der kan indtastes og vises i indtastningsfelter
i promptbokse.
Udtrykket kan kun anvendes ved indtastningsfelter til variabler og felter af typen REAL.
UNDERVISNINGSMATERIALE TIL MICROSOFT DYNAMICS
Brugen af dette materiale er underlagt din aktuelle serviceaftale
® C5 VERSION 2012
57