Pagina 1 van 1

Oefening Schaakbord (Topic B S6)

Geplaatst: 22 jun 2009, 18:58
door dirk
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.


Re: Oefening Schaakbord (Topic B S6)

Geplaatst: 22 jun 2009, 19:11
door AdamCooman
steek een delay in de for lus en ge zult zien hoe het veld gemaakt wordt
dan zult ge de fout wel zien

Re: Oefening Schaakbord (Topic B S6)

Geplaatst: 22 jun 2009, 19:50
door dirk
Mja, ik geraak ni al te veel wijzer uit eigenlijk....

Re: Oefening Schaakbord (Topic B S6)

Geplaatst: 22 jun 2009, 20:01
door AdamCooman

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;

Re: Oefening Schaakbord (Topic B S6)

Geplaatst: 22 jun 2009, 20:36
door dirk
Merci Adam, ik zal er even op moeten zien, want ik geraak er ni direct aan uit :D

Re: Oefening Schaakbord (Topic B S6)

Geplaatst: 22 jun 2009, 20:38
door AdamCooman
ik heb gewoon u eerste for lus gekopieerd en daar de getallekes aangepast