Programmering II - Xpi

Eksempel 1 (kode uden indirektioner)
ENUM Sprog &Sprog
PROMPT ”Vælg sprog: ” GET(&Sprog) INPUT
IF &Sprog == 1 THEN PRINT ”Valgt sprog: ”, &Sprog ENDIF
IF &Sprog == 2 THEN PRINT ”Valgt sprog: ”, &Sprog ENDIF
IF &Sprog == 3 THEN PRINT ”Valgt sprog: ”, &Sprog ENDIF
PAUSE
I dette eksempel er det svært at se hvilke sprog, der svarer til tallene 1, 2 og 3. Kan det ikke huskes, kan
det være nødvendigt, at slå op i fastteksttypen.
Fastteksttypen Sprog
Position Fasttekst
0 Standard
1 Dansk
2 Engelsk
3 Tysk
Det er nemmere at læse koden og foretage ændringer i fastteksttypen ved, at oprette et
macrobibliotek med indirektioner til fastteksten.
Macrobibliotek med indirektioner til fastteksttypen Sprog
#LOCALMACRO.Dansk 1 #ENDMACRO
#LOCALMACRO.Engelsk 2 #ENDMACRO
#LOCALMACRO.Tysk 3 #ENDMACRO
Biblioteket kan f.eks. kaldes SPROGINDIREKTIONER, og navnet skrives med stort.
Ved at erstatte tallene 1, 2 og 3 i eksempel 1, bliver koden nemmere at læse. Se eksempel 2 herunder.
Eksempel 2 (kode med indirektioner)
#MacroLoad(SPROGINDIREKTIONER)
ENUM _Language &Sprog
PROMPT ”Vælg sprog: ” GET(&Sprog) INPUT
IF &Sprog == #Dansk THEN PRINT ”Sprog: ”, &Sprog ENDIF
IF &Sprog == #Engelsk THEN PRINT ”Sprog: ”, &Sprog ENDIF
IF &Sprog == #Tysk THEN PRINT ”Sprog: ”, &Sprog ENDIF
Indirektioner på fastteksttypen sprog (_Language) overalt hvor denne type anvendes, gør det ikke
alene nemmere at læse og overskue selve kørslerne, men ved ændringer i rækkefølgen af teksterne i
fastteksttypen, er det nok at ændre i fastteksten og i macrobiblioteket med indirektionerne.
105
UNDERVISNINGSMATERIALE TIL MICROSOFT DYNAMICS
Brugen af dette materiale er underlagt din aktuelle serviceaftale
® C5 VERSION 2012