Minggu, 01 April 2012

Program jendela bergerak


PROGRAM Window_Bergerak_dgn_delay;
USES CRT;
VAR i : INTEGER;
BEGIN
FOR i:=1 TO 15 DO
BEGIN
SOUND(i*100);
DELAY(100);
NOSOUND;
END;
TEXTBACKGROUND(black);
CLRSCR;
FOR i := 1 TO 9 DO
BEGIN
TEXTBACKGROUND(white);
WINDOW(42-i*4,10-i,38+i*4,15+i);
CLRSCR;
DELAY(100);
END;
TEXTCOLOR(15);
GOTOXY(28,2);WRITELN('c');
GOTOXY(8,3); WRITELN('3');
GOTOXY(28,4); WRITELN('A');
TEXTCOLOR(black);
GOTOXY(44,3); WRITELN('3');
GOTOXY(44,2); WRITELN('&');
GOTOXY(29,4); WRITELN('U');
TEXTCOLOR(red*25);
GOTOXY(30,3); WRITELN('B E L A J A R');
TEXTCOLOR(black);
GOTOXY(5,5); WRITE('c');
FOR i := 6 TO 64 DO
BEGIN
GOTOXY(i,5);WRITELN('');
END;
FOR i := 6 TO 20 DO
BEGIN
GOTOXY(5,i); WRITELN('3 ');
END;
GOTOXY(5,21); WRITELN(' ');
TEXTCOLOR(white);
GOTOXY(65,5); WRITE('U');
FOR i := 6 TO 65 DO
BEGIN
GOTOXY(i,21); WRITELN(' `);
END;
FOR i := 6 TO 20 DO
BEGIN
GOTOXY(65,i); WRITELN('3');
END;
GOTOXY(65,21); WRITELN('c');
TEXTCOLOR(yellow);
READLN;
END.

Tidak ada komentar:

Poskan Komentar