예전에 라면끓이기 사다리타기 귀찮아서 후배가 만들었던 소스입니다.

이름하야 뺑뺑이!

var

timeinterval,interval:integer;



begin

Randomize; //랜덤함수를 초기화하는 명령입니다. 없애놓고 값을 비교해보세요.

for Timeinterval:=1 to 50 do

begin

interval:=Random(Timeinterval); //1에서 50까지 각각 랜덤함수값이 변합니다.

Timer1.Interval := interval //Timer의 초기 inteval을 잡아줍니다.

end;

i:=0; //i는 전역변수입니다.

Timer1.Enabled := True;

end;



사실 여기는 필요없는데 프로그램의 이해를 위해.....



Timer1.Interval := Timer1.Interval +1;

i:= i+1;

case i of

1:begin

Shape1.Brush.Color:=ClYellow;

Shape2.Brush.Color:=Clmenu;

Shape3.Brush.Color:=Clmenu;

Shape4.Brush.Color:=Clmenu;

Shape5.Brush.Color:=Clmenu;

Shape6.Brush.Color:=Clmenu;

end;

2:begin

Shape1.Brush.Color:=Clmenu;

Shape2.Brush.Color:=ClYellow;

Shape3.Brush.Color:=Clmenu;

Shape4.Brush.Color:=Clmenu;

Shape5.Brush.Color:=Clmenu;

Shape6.Brush.Color:=Clmenu;

end;

3:begin

Shape1.Brush.Color:=Clmenu;

Shape2.Brush.Color:=Clmenu;

Shape3.Brush.Color:=ClYellow;

Shape4.Brush.Color:=Clmenu;

Shape5.Brush.Color:=Clmenu;

Shape6.Brush.Color:=Clmenu;

end;

4:begin

Shape1.Brush.Color:=Clmenu;

Shape2.Brush.Color:=Clmenu;

Shape3.Brush.Color:=Clmenu;

Shape4.Brush.Color:=ClYellow;

Shape5.Brush.Color:=Clmenu;

Shape6.Brush.Color:=Clmenu;

end;

5:begin

Shape1.Brush.Color:=Clmenu;

Shape2.Brush.Color:=Clmenu;

Shape3.Brush.Color:=Clmenu;

Shape4.Brush.Color:=Clmenu;

Shape5.Brush.Color:=ClYellow;

Shape6.Brush.Color:=Clmenu;

end;

6:begin

Shape1.Brush.Color:=Clmenu;

Shape2.Brush.Color:=Clmenu;

Shape3.Brush.Color:=Clmenu;

Shape4.Brush.Color:=Clmenu;

Shape5.Brush.Color:=Clmenu;

Shape6.Brush.Color:=ClYellow;

end;

end;



if i=6 then

i:=0;



if Timer1.Interval>200 then

Timer1.Enabled := False;

end;







권용민 wrote:

> 델파이 공부를 시작한지 얼마되지 않은 학생입니다...

> 랜덤 함수를 이용해서 수를 섞어야 하는데.. 암만 책을 봐도 이해가

> 가질 않는군요...아시는 분들..꼭 좀 가르쳐 주세요..

> 여기 게시판에 있는 랜덤함수에 관련된 글들도 다 읽어 보았지만

> 이해가 잘 되질 않네요..꼭 좀 부탁드릴께요....ㅠ.ㅠ