11.09.2013 Views

Programmering II - Xpi

Programmering II - Xpi

Programmering II - Xpi

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Det er opstået pga. Microsoft’s navne konvention, der altid tildeler værdien 0 til ’Nej’ eller ’Falsk’ og<br />

alle andre værdier til ’Ja’ eller ’Sand’.<br />

I fastteksttyper er den første værdi altid 0. Derfor er den første værdi i fastteksttypen ’Nej/Ja’ teksten<br />

’Nej’, der svarer til 0, og ’Ja’ er 1.<br />

I funktioner som f.eks. Box(3) er den første værdi altid 1. Derfor er den første værdi i ’Ja/Nej boksen’<br />

teksten ’Ja’, der svarer til 1, og ’Nej’ er 2.<br />

Eksempel 1 (Ja/Nej boks, returværdi tildeles variabel)<br />

I dette eksempel tildeles brugerens svar til en variabel, der efterfølgende kontrolleres og anvendes i en<br />

IF struktur, hvor der tages stilling til, hvad der skal ske.<br />

Kørsel<br />

INT &Svar<br />

SET &Svar = Box(3,”Skal harddisken slettes for data?”,2)<br />

IF &Svar == 1 THEN {1=Ja}<br />

PRINT ”Det var dumt, hva’?”<br />

PRINT ”Tænk dig om næste gang!”<br />

ENDIF<br />

PAUSE<br />

Resultat<br />

Skal harddisken slettes for data?<br />

Resultat hvis der svares Ja<br />

Det var dumt, hva’?<br />

Tænk dig om næste gang!<br />

Eksempel 2 (Ja/Nej boks direkte i IF struktur)<br />

I dette eksempel indsættes boksen direkte i IF strukturen, i stedet for at svaret tildeles en variabel.<br />

Kørsel<br />

IF Box(3,”Skal harddisken slettes for data?”,2) == 1 THEN<br />

PRINT ”Det var dumt, hva’?”<br />

PRINT ”Tænk dig om næste gang!”<br />

ENDIF<br />

PAUSE<br />

Ja Nej<br />

Eksempel 3 (Ja/Nej boks til standsning af kørsel)<br />

I dette eksempel anvendes en Ja/Nej boks til, at spørge brugeren om kørslen fortsat skal udføres.<br />

Svares der Nej i eksemplet, sættes værdien i boksen til 2 og kørslen afbrydes med RETURN.<br />

UNDERVISNINGSMATERIALE TIL MICROSOFT DYNAMICS<br />

Brugen af dette materiale er underlagt din aktuelle serviceaftale<br />

® C5 VERSION 2012<br />

83

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!