Gösterilen sonuçlar: 1 ile 3 Toplam: 3
  1. #1
    Tecrübeli Üye karaca10 - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Sep 2006
    Nerden
    c:\windows\system32
    Mesaj
    264
    Rep Gücü
    877

    pascalda kullanıcı adı şifre

    uses crt;
    var
    t,s:array[1..6]of string;
    tus:char;
    padi,kadi:string;
    i:integer;
    procedure yeni;
    begin
    clrscr;textcolor(white);
    textbackground(9);writeln;writeln;writeln;
    gotoxy(30,4);writeln('YENI KAYIT');
    writeln;writeln;gotoxy(5,7);
    writeln('yeni kullanici adi ---> ');
    writeln;writeln;gotoxy(5,10);
    writeln('yeni sifre ---> ');
    writeln;writeln;writeln;textcolor(black);
    writeln(' sifre 6 karakterden olusmalidir ! ! ');
    gotoxy(29,7);readln(kadi);if kadi='' then exit;
    i:=1;gotoxy(28,10);repeat gotoxy((28+i),10);
    tus:=readkey;if tus='a' then begin
    s[i]:='a';write('*');i:=i+1;
    if i=7 then exit;end;if tus='b' then
    begin s[i]:='b';write('*');i:=i+1;
    if i=7 then exit;end;if tus='c' then
    begin s[i]:='c';write('*');i:=i+1;
    if i=7 then exit;end;if tus='d' then
    begin s[i]:='d';write('*');i:=i+1;
    if i=7 then exit;end;if tus='e' then
    begin s[i]:='e';write('*');i:=i+1;
    if i=7 then exit;end;if tus='f' then
    begin s[i]:='f';write('*');i:=i+1;
    if i=7 then exit;end;if tus='g' then
    begin s[i]:='g';write('*');i:=i+1;
    if i=7 then exit;end;if tus='i' then
    begin s[i]:='i';write('*');i:=i+1;
    if i=7 then exit;end;if tus='k' then
    begin s[i]:='k';write('*');i:=i+1;
    if i=7 then exit;end;if tus='l' then
    begin s[i]:='l';write('*');i:=i+1;
    if i=7 then exit;end;if tus='m' then
    begin s[i]:='m';write('*');i:=i+1;
    if i=7 then exit;end;if tus='n' then
    begin s[i]:='n';write('*');i:=i+1;
    if i=7 then exit;end;if tus='o' then
    begin s[i]:='o';write('*');i:=i+1;
    if i=7 then exit;end;if tus='p' then
    begin s[i]:='p';write('*');i:=i+1;
    if i=7 then exit;end;if tus='r' then
    begin s[i]:='r';write('*');i:=i+1;
    if i=7 then exit;end;if tus='s' then
    begin s[i]:='s';write('*');i:=i+1;
    if i=7 then exit;end;if tus='t' then
    begin s[i]:='t';write('*');i:=i+1;
    if i=7 then exit;end;if tus='u' then
    begin s[i]:='u';write('*');i:=i+1;
    if i=7 then exit;end;if tus='v' then
    begin s[i]:='v';write('*');i:=i+1;
    if i=7 then exit;end;if tus='y' then
    begin s[i]:='y';write('*');i:=i+1;
    if i=7 then exit;end;if tus='z' then
    begin s[i]:='z';write('*');i:=i+1;
    if i=7 then exit;end;until tus=#27;
    end;procedure d;begin clrscr;
    repeat textcolor(green);textbackground(black);
    write(random(9));until 1=5 end;
    procedure kontrol;begin clrscr;
    textcolor(white);textbackground(9);
    writeln;writeln;writeln;gotoxy(30,4);
    writeln('SIFRE VE KULLANICI ADI GIRISI');
    writeln;writeln;gotoxy(5,7);writeln('kullanici adi ---> ');
    writeln;writeln;gotoxy(5,10);writeln('sifre ---> ');
    writeln;writeln;writeln;textcolor(black);
    gotoxy(24,7);readln(padi);if padi='' then exit;
    i:=1;gotoxy(24,10);repeat gotoxy((23+i),10);
    tus:=readkey;if tus='a' then begin
    t[i]:='a';write('*');i:=i+1;if i=7 then d;end;
    if tus='b' then begin t[i]:='b';write('*');i:=i+1;
    if i=7 then d;end;if tus='c' then begin
    t[i]:='c';write('*');i:=i+1;if i=7 then d;end;
    if tus='d' then begin t[i]:='d';write('*');i:=i+1;
    if i=7 then d;end;if tus='e' then begin
    t[i]:='e';write('*');i:=i+1;if i=7 then d;end;
    if tus='f' then begin t[i]:='f';write('*');i:=i+1;
    if i=7 then d;end;if tus='g' then begin
    t[i]:='g';write('*');i:=i+1;if i=7 then d;end;
    if tus='i' then begin t[i]:='i';write('*');i:=i+1;
    if i=7 then d;end;if tus='k' then
    begin t[i]:='k';write('*');i:=i+1;
    if i=7 then d;end;if tus='l' then begin
    t[i]:='l';write('*');i:=i+1;if i=7 then d;end;
    if tus='m' then begin t[i]:='m';write('*');i:=i+1;
    if i=7 then d;end;if tus='n' then begin
    t[i]:='n';write('*');i:=i+1;if i=7 then d;end;
    if tus='o' then begin t[i]:='o';write('*');i:=i+1;
    if i=7 then d;end;if tus='p' then
    begin t[i]:='p';write('*');i:=i+1;
    if i=7 then d;end;if tus='r' then
    begin t[i]:='r';write('*');i:=i+1;
    if i=7 then d;end;if tus='s' then begin
    t[i]:='s';write('*');i:=i+1;if i=7 then d;end;
    if tus='t' then begin t[i]:='t';write('*');i:=i+1;
    if i=7 then d;end;if tus='u' then begin
    t[i]:='u';write('*');i:=i+1;if i=7 then d;end;
    if tus='v' then begin t[i]:='v';write('*');i:=i+1;
    if i=7 then d;end;if tus='y' then begin
    t[i]:='y';write('*');i:=i+1;if i=7 then d;end;
    if tus='z' then begin t[i]:='z';write('*');i:=i+1;
    if i=7 then d;end; until tus=#27; end;begin clrscr;
    repeat clrscr;writeln;writeln;writeln;writeln;writeln;
    textcolor(red);textbackground(9);gotoxy(17,6);
    writeln('yesil renkli karakterler ile programi yonetin');
    writeln;textcolor(white);gotoxy(30,8);writeln('ILG ILERI YENILEME');
    writeln;writeln;writeln;gotoxy(32,12);writeln('ROG RAM GIRISI');
    writeln;writeln;writeln;gotoxy(20,16);textcolor(re d);
    writeln('! ! ! cikis icin tuslayn ! ! !');
    gotoxy(37,16);textcolor(green);write('< ESC >');gotoxy(29,8);
    textcolor(green);write('B');gotoxy(31,12);write('P ');gotoxy(1,1);
    tus:=readkey;if tus='b' then yeni;if tus='p' then kontrol;
    if tus='w' then begin clrscr;for i:=1 to 6 do
    write(s[i]);
    readln;
    end;
    until tus=#27;
    end.

  2. #2
    Üyecik
    Üyelik tarihi
    Aug 2007
    Mesaj
    1
    Rep Gücü
    11

    Cevap: pascalda kullanıcı adı şifre

    :smile:ARKADAŞIM BUNE YAAWW...SENİN YAPTIĞINA BİZ OKULDA AMELE YÖNTEMİ DİYOZ ZATEN ÖÖLE BU BÖÖLE OLURDA ÇOK UĞRAŞTIRIR.BUNUN DAHA DÜZ MANTIĞI VAR.ÖĞRENMEK İSTERSEN BEN SANA YAZARIM.

  3. #3
    Tecrübeli Üye karaca10 - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Sep 2006
    Nerden
    c:\windows\system32
    Mesaj
    264
    Rep Gücü
    877

    Cevap: pascalda kullanıcı adı şifre

    arkadaşım ben sadece paylaşım olsun diye yazdım.zamanında pascalla ilgileniyordum bulduğum bilgileri siteyede koydum.bilginin ne zaman lazım olacağı belli olmaz o yüzden her bilgi değerlidir...
    ilgilendiğin için çok saol ama daha önce lazımdın.artık çok geç :D

Benzer Konular

  1. WordPress Kullanıcı Rütbeleri Ve Yetkileri
    dogangunes Tarafından Wordpress Foruma
    Yorum: 0
    Son mesaj: 08-01-2015, 04:46 PM
  2. Aero, temalar ve kullanıcı hesabı
    dogangunes Tarafından Windows 7 Foruma
    Yorum: 1
    Son mesaj: 21-07-2012, 12:19 AM
  3. Windows 7 Kullanıcı Hesabı Denetimi nasıl kapatılır?
    YukseLL Tarafından Windows 7 Foruma
    Yorum: 0
    Son mesaj: 20-07-2012, 11:55 PM
  4. Yorum: 0
    Son mesaj: 22-11-2010, 10:54 PM
  5. sıtede sayfanın ortasında kullanıcı adı ve sıfre ısteyen mesaj
    bond_silver Tarafından Web Tasarım ve Google Foruma
    Yorum: 0
    Son mesaj: 12-05-2007, 07:52 PM
Yukarı Çık