forum kurmak | ©phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Yetkinblog
ForumAlem

ForumAlem
 
AnasayfaAnasayfa  SSSSSS  AramaArama  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

Paylaş | 
 

 Pascalda Favori Takiminiz Icin Sifreli Ekran Koruyucu [GS Version

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ToPrAk
Admin
Admin
avatar

Mesaj Sayısı : 457
Kayıt tarihi : 05/08/08
Yaş : 28
Nerden : KONYA

MesajKonu: Pascalda Favori Takiminiz Icin Sifreli Ekran Koruyucu [GS Version   Cuma Ağus. 08, 2008 5:43 pm

Favori Takiminiz Icin Sifreli Ekran Koruyucu [GS Version] Favori Takiminiz Icin Sifreli Ekran Koruyucu..Renkler Degisebilir.>uses crt,graph;
var a,b,c,d,e,h,f1,g1,secure,gd,gm:integer;
g,f:string;parametr:word;
label askhiz,bas;
begin
askhiz:write('Hiz [0-100] : ');readln(e);
if (e<0) or (e>100) then goto askhiz;
write('Sifreniz [string] : ');readln(f);
if paramstr(parametr)='gs.exe -secure' then
begin
write('Sifreniz [integer] : ');readln(f1);
end;
detectgraph(gd,gm);initgraph(gd,gm,");
bas:a:=0;b:=0;c:=0;d:=480;
repeat
while a<640 do begin setcolor(yellow);
line(a,b,c,d);inc(a,1);inc(c,1);delay(100-e);end;
while a>0 do begin setcolor(red);
dec(a,1);dec(c,1);line(a,b,c,d);delay(100-e);end;
until keypressed;
cleardevice;
highvideo;textcolor(red);
writeln('Sifre str: ');
readln(g);
if paramstr(parametr)='gs.exe -secure' then
begin
writeln('Sifre int: ');readln(f1);
end;
if (g=f) and (g1=f1) then halt else goto bas;
end.
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
 
Pascalda Favori Takiminiz Icin Sifreli Ekran Koruyucu [GS Version
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ForumAlem :: Programlama Dilleri :: PascaL-
Buraya geçin: