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 fr die Benutzung dieser Software !');
writeln(' Freeware by Andreas Hadel 1998');
writeln('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
End.
Jika error dari kode di atas Comment
sumber : Andreas Hadel 1998
0 komentar:
Posting Komentar