11.09.2013 Views

Programmering II - Xpi

Programmering II - Xpi

Programmering II - Xpi

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

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!