Screensaver - Turbo Pascal

Hai kali ini ane akan bahas tentang membuatan Screensaver menggunakan turbo pascal 07 langsung aja ke TKP

SSnya

Code : 

Program Screensaver;
uses crt;
Var a : integer;
Begin
clrscr;
randomize;
    while not keypressed do
     begin
        gotoxy(random((80)+1),random((25)+1));
        textcolor(random(5)+1);
        write(chr(random(6)+1));
        textbackground(random((5)+1));
     end;
textbackground(black);
clrscr;
textcolor(white);
       writeln('     Ein Bildschirmschoner von Andreas Hadel');
       writeln('     Vielen Dank fr die Benutzung dieser Software !');
       writeln('                        Freeware by Andreas Hadel 1998');
       writeln('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
End.

Jika error dari kode di atas Comment

sumber : Andreas Hadel 1998


Share This :