Oefening Schaakbord (Topic B S6)

Jaarvak op 7 studiepunten
Forumregels
Misschien werd je vraag al vorig jaar gesteld? Gebruik dus eerst de zoekoptie!

Er zijn formularia/samenvattingen aanwezig op de volgende link: viewtopic.php?f=19&t=93
dirk
Regelmatig forumgebruiker
Regelmatig forumgebruiker
Berichten: 76
Lid geworden op: 05 jan 2009, 13:20

Oefening Schaakbord (Topic B S6)

Berichtdoor dirk » 22 jun 2009, 18:58

Jow ik heb em proberen te programmeren, maar hij doet et ni :shock:

Weet iemand wat de fout is?

Code: Selecteer alles


MODULE B_S5;
<* NOOPTIMIZE + *>  (* For the Debugger *)
  FROM IO IMPORT WrStr, WrLn, RdKey, WrCard, RdLn;
  (* de graphics library vind je onder C:/Bin/Xds/Def/Ts/Graph.def *)
  FROM Graph IMPORT Init, Rectangle, Circle, Disc;
  FROM Graph IMPORT _clrBLACK, _clrBLUE, _clrGREEN, _clrCYAN, _clrRED, _clrMAGENTA;
  FROM Graph IMPORT _clrBROWN, _clrWHITE, _clrGRAY, _clrLIGHTBLUE, _clrLIGHTGREEN;
  FROM Graph IMPORT _clrLIGHTCYAN, _clrLIGHTRED, _clrLIGHTMAGENTA, _clrLIGHTYELLOW, _clrBRIGHTWHITE;
                 (* deze 16 kleuren zijn constantes gaande van 0 tot 15 *)
  VAR
   x:CHAR;
   i,j:INTEGER;
BEGIN

  (* Initialise graphics *)
  IF NOT Init(1, 1 , 800, 800) THEN  (* creates a drawing window of 500 by 500 *)
    WrStr("Sorry, graphics doesn't work");WrLn;
    RETURN;
  END;
  (* coordinatenstelsel: (0,0) is in linkerbovenhoek *)

  Rectangle(0, 0, 800, 800, _clrBLACK, TRUE);

  FOR  i := 0 TO 800 BY 200  DO
        FOR  j := 0 TO 600 BY 200  DO

        Rectangle(100 + j, i ,200 + j, 100 + i, _clrCYAN, TRUE);

        END;

  END;

  FOR  i := 100  TO 700 BY 200  DO
        FOR  j := 0 TO 600 BY 200  DO

        Rectangle( j , i , i , 200 + j, _clrCYAN, TRUE);

        END;

  END;


  (* Show graphics until user presses a key *)
  WrStr("Press any key to finish the program");
  x := RdKey();
  WrLn; RdLn;

END B_S5.

Gebruikersavatar
AdamCooman
The IRW God
The IRW God
Berichten: 2376
Lid geworden op: 28 nov 2007, 18:19
Locatie: Aalst
Contacteer:

Re: Oefening Schaakbord (Topic B S6)

Berichtdoor AdamCooman » 22 jun 2009, 19:11

steek een delay in de for lus en ge zult zien hoe het veld gemaakt wordt
dan zult ge de fout wel zien
AdamCooman The IRW God
Als een link niet meer werkt, bezoek mijn site om het bestand te vinden
Afbeelding

Mooiste avatar: AdamCooman
Beste moderator: AdamCooman
dirk
Regelmatig forumgebruiker
Regelmatig forumgebruiker
Berichten: 76
Lid geworden op: 05 jan 2009, 13:20

Re: Oefening Schaakbord (Topic B S6)

Berichtdoor dirk » 22 jun 2009, 19:50

Mja, ik geraak ni al te veel wijzer uit eigenlijk....
Gebruikersavatar
AdamCooman
The IRW God
The IRW God
Berichten: 2376
Lid geworden op: 28 nov 2007, 18:19
Locatie: Aalst
Contacteer:

Re: Oefening Schaakbord (Topic B S6)

Berichtdoor AdamCooman » 22 jun 2009, 20:01

Code: Selecteer alles

  FOR  i := 0 TO 800 BY 200  DO
        FOR  j := 0 TO 600 BY 200  DO

        Rectangle(100 + j, i ,200 + j, 100 + i, _clrCYAN, TRUE);
   Delay(200);

        END;

  END;

  FOR  i := 0 TO 800 BY 200  DO
        FOR  j := 0 TO 600 BY 200  DO

        Rectangle(j, i+100 ,100+j, 200 + i, _clrCYAN, TRUE);
   Delay(200);

        END;

  END;
AdamCooman The IRW God
Als een link niet meer werkt, bezoek mijn site om het bestand te vinden
Afbeelding

Mooiste avatar: AdamCooman
Beste moderator: AdamCooman
dirk
Regelmatig forumgebruiker
Regelmatig forumgebruiker
Berichten: 76
Lid geworden op: 05 jan 2009, 13:20

Re: Oefening Schaakbord (Topic B S6)

Berichtdoor dirk » 22 jun 2009, 20:36

Merci Adam, ik zal er even op moeten zien, want ik geraak er ni direct aan uit :D
Gebruikersavatar
AdamCooman
The IRW God
The IRW God
Berichten: 2376
Lid geworden op: 28 nov 2007, 18:19
Locatie: Aalst
Contacteer:

Re: Oefening Schaakbord (Topic B S6)

Berichtdoor AdamCooman » 22 jun 2009, 20:38

ik heb gewoon u eerste for lus gekopieerd en daar de getallekes aangepast
AdamCooman The IRW God
Als een link niet meer werkt, bezoek mijn site om het bestand te vinden
Afbeelding

Mooiste avatar: AdamCooman
Beste moderator: AdamCooman

Terug naar “Informatica”

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 1 gast

cron