insurance health loan

  Giriþ veya Kayýt Ol
ANA SAYFA FORUMLAR POPÜLER KONULAR DOWNLOAD LOGİN REKLAM VER LİNKLER İLETİŞİM
Ýnternet Cafeciler :: Baþlýðý Görüntüle - Pascal da Basit Ýþçi Takibi Programý  
 SSSSSS   AramaArama   Kullanýcý GruplarýKullanýcý Gruplarý   ProfilProfil   Özel mesajlarýnýzý kontrol etmek için login olunÖzel mesajlarýnýzý kontrol etmek için login olun   LoginLogin 

       Forumlarýmýzda göndermiþ olduðu mesaj sayýsý 20'den az olan üyelerin Site Reklamý Yapmalarý Kesinlikle Yasaktýr...
Ayrýca forumlarýmýzda siyasi, bölücü, genel ahlak kurallarýna aykýrý yada pornografik içerikli sitelerin reklamlarýný yapmakta kesinlikle yasaktýr...                            
      Forumlarýmýzda imzalarýnýzýn forum düzenine ve tasarýmýna zarar vermesi, sayfa açýlýþýný yavaþlatmasý, genel ahlak kurallarýna aykýrý olmasý,
bölücü faaliyetlere destek veren, siyasi, pornografik içerikli olmasý durumunda imzalarýnýz uyarý verilmeksizin silinekcektir. Forumlarda yeni baþlýk açarken;
Lütfen ilgili konunun daha önce forumlarda verilip verilmediðini arayýnýz... Forumlarda ve site genelinde yapacaðýnýz yorumlarda
Türkçe dil kurallarýna uygun þekilde mesajlar yazýnýz.                                                
Pascal da Basit Ýþçi Takibi Programý

 
Yeni Baþlýk Gönder   Cevap Gönder    Ýnternet Cafeciler Forum Ana Sayfasý -> Programlama
Önceki baþlýk :: Sonraki baþlýk  
Yazar Mesaj
CHeliSHKi
Yeni Üye


Kayýt: 0
Mesajlar: 48

Çevrimdýþý(Baðlý Deðil)
MesajTarih: Çrþ Ksm 23, 2005 5:10    Mesaj konusu: Pascal da Basit Ýþçi Takibi Programý Alýntýyla Cevap Ver
Merhaba arkadaþlar.Lise bitirme ödevi olarak yaptýðým Pascal ' da basit bir iþçi takibi programýný sizlerle paylaþmak istedim.Eðer sizde pascal kullanýyorsanýz denemekte fayda var derim

Saygýlar
CHeliSHKi



USES CRT,DOS;
VAR AD,SOYAD,ANAADI,BABAADI,DYERI,MHALI,CINSIYET,EVADRES,ISADRESI,SC1,SC2,SC3,SC4,SC5:STRING;
ARA,DTARIHI,EVTEL,CEPTEL,ILERI,GERI,IPTAL:STRING;
KSIL:BOOLEAN;
SS,SATIR2,SATIR,VARMI,BB,S,S1,SA,SU,SU2,YAZ,YAZ2,YAZ3,SU3:INTEGER;
GCS2,ACG2,SUC2,MAAS2,GCS,ACG,SUC,MAAS:LONGINT;
R:REGISTERS;
HATA:WORD;
DOSYA,GD:TEXT;
SECIM1,SECIM2,CH,CH2,CH3,CH4,KSORUSU,KSORUSU2:CHAR;
LABEL ASAGI,YUKARI,GIRIS,KONTROL,MENU,MEDIYALOGU,KEDIYALOGU,ADIYALOGU,SDIYALOGU,LDIYALOGU,SC2YAZ,SC3YAZ,SC4YAZ,SC5YAZ,SC1YAZ;
LABEL 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,ASAGIL,BB1YAZ,BB2YAZ,BB3YAZ,YUKARIL,SILDOSYAZ;
LABEL 26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,BBB1YAZ,BBB2YAZ,BBB3YAZ;
LABEL 51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,100,BULDUM2,KAPATVEARA;
LABEL GOSTER,GIRIS2,DKEKLE,KARA,DEVAMMI,HAKKINDA,BULUNAMADI,MAASGOSTER,BULDUMU,BULDUM,KAPAT,LISTELE,SILDIYALOG,SILDIALOG;
LABEL EVETYAZ,HAYIRYAZ,GIRIS3;
FUNCTION UPCASESTR(S: STRING): STRING;
VAR
I: INTEGER;
BEGIN
FOR I := 1 to LENGTH(S) DO
IF (S[I] >= 'a') AND (S[I] <= 'z') THEN
DEC(S[I], 32);
UPCASESTR := S;
END;

BEGIN CLRSCR;SATIR2:=5;SATIR:=5;
CLRSCR;TEXTBACKGROUND(1);CLRSCR;
{$i-} ASSIGN(DOSYA,'C:\ISCI.DAT');RESET(DOSYA);HATA:=IORESULT;
IF HATA<>0 THEN BEGIN
GOTOXY(27,12);WRITE('C:\ISCI.DAT DOSYASI OLUžTURULDU');READLN;REWRITE(DOSYA);
END;{$i+}
MENU:
BEGIN CLRSCR;
R.AH:=$01;R.CH:=$20;R.CL:=$20;INTR($10,R);
CLRSCR;
TEXTCOLOR(15);TEXTBACKGROUND(1);
CLRSCR;TEXTBACKGROUND(1);
GOTOXY(24,5); WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
GOTOXY(24,6); WRITE('º º');
GOTOXY(24,7); WRITE('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
GOTOXY(24,8); WRITE('º º');
GOTOXY(24,9); WRITE('º º');
GOTOXY(24,10); WRITE('º º');
GOTOXY(24,11); WRITE('º º');
GOTOXY(24,12); WRITE('º º');
GOTOXY(24,13); WRITE('º º');
GOTOXY(24,14); WRITE('º º');
GOTOXY(24,15); WRITE('º º');
GOTOXY(24,16); WRITE('º º');
GOTOXY(24,17); WRITE('º º');
GOTOXY(24,18); WRITE('º º');
GOTOXY(24,19); WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
TEXTCOLOR(15);GOTOXY(27,6);WRITE(' ˜ž€˜ TAK˜B˜ PROGRAMI');
TEXTCOLOR(1);TEXTBACKGROUND(15);
SC1:=(' 1 . YEN˜ ˜ž€˜ EKLEME ');
SC2:=(' 2 . ˜ž€˜ KAYIT ˜žLEM˜ ');
SC3:=(' 3 . ˜ž€˜LER˜ L˜STELE ');
SC4:=(' 4 . PROGRAM HAKKINDA ');
SC5:=(' 5 . PROGRAMDAN €IKIž ');
S:=9;
TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(27,S); WRITE(SC1);
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(27,11);WRITE(SC2);
GOTOXY(27,13);WRITE(SC3);
GOTOXY(27,15);WRITE(SC4);
GOTOXY(27,17);WRITE(SC5);
TEXTCOLOR(06);
KONTROL:
SECIM1:=READKEY;
IF SECIM1=#27 THEN HALT;
CASE SECIM1 OF
#27:HALT;
#49:GOTO SC1YAZ;
#50:GOTO SC2YAZ;
#51:GOTO SC3YAZ;
#52:GOTO SC4YAZ;
#53:GOTO SC5YAZ;
#80:GOTO ASAGI;
#72:GOTO YUKARI;
#13:GOTO GIRIS;ELSE GOTO KONTROL;
END;
ASAGI:
IF S=9 THEN GOTO SC2YAZ;
IF S=11 THEN GOTO SC3YAZ;
IF S=13 THEN GOTO SC4YAZ;
IF S=15 THEN GOTO SC5YAZ;
IF S=17 THEN GOTO SC1YAZ;
YUKARI:
IF S=9 THEN GOTO SC5YAZ;
IF S=11 THEN GOTO SC1YAZ;
IF S=13 THEN GOTO SC2YAZ;
IF S=15 THEN GOTO SC3YAZ;
IF S=17 THEN GOTO SC4YAZ;
GIRIS:
IF S=9 THEN GOTO KEDIYALOGU;
IF S=11 THEN GOTO KARA;
IF S=13 THEN GOTO LISTELE;
IF S=15 THEN GOTO HAKKINDA;
IF S=17 THEN HALT;

SC1YAZ:
BEGIN SOUND(5000);DELAY(3);NOSOUND;END;
S:=9;TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(27,S); WRITE(SC1);
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(27,11);WRITE(SC2);
GOTOXY(27,13);WRITE(SC3);
GOTOXY(27,15);WRITE(SC4);
GOTOXY(27,17);WRITE(SC5);
TEXTCOLOR(06);
GOTO KONTROL;

SC2YAZ:
BEGIN SOUND(5000);DELAY(3);NOSOUND;END;
S:=11;TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(27,S);WRITE(SC2);
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(27,9); WRITE(SC1);
GOTOXY(27,13);WRITE(SC3);
GOTOXY(27,15);WRITE(SC4);
GOTOXY(27,17);WRITE(SC5);
TEXTCOLOR(06);GOTO KONTROL;

SC3YAZ:
BEGIN SOUND(5000);DELAY(3);NOSOUND;END;
S:=13;TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(27,S);WRITE(SC3);
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(27,9); WRITE(SC1);
GOTOXY(27,11);WRITE(SC2);
GOTOXY(27,15);WRITE(SC4);
GOTOXY(27,17);WRITE(SC5);
TEXTCOLOR(06);GOTO KONTROL;
SC4YAZ:
BEGIN SOUND(5000);DELAY(3);NOSOUND;END;
S:=15;TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(27,S);WRITE(SC4);
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(27,9); WRITE(SC1);
GOTOXY(27,11);WRITE(SC2);
GOTOXY(27,13);WRITE(SC3);
GOTOXY(27,17);WRITE(SC5);
TEXTCOLOR(06);GOTO KONTROL;

SC5YAZ:
BEGIN SOUND(9000);DELAY(3);NOSOUND;END;
S:=17;TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(27,17);WRITE(SC5);
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(27,9); WRITE(SC1);
GOTOXY(27,11);WRITE(SC2);
GOTOXY(27,13);WRITE(SC3);
GOTOXY(27,15);WRITE(SC4);
TEXTCOLOR(06);GOTO KONTROL;




KEDIYALOGU:
CLRSCR; TEXTCOLOR(15);TEXTBACKGROUND(1);
CLRSCR;
100: TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(16,3); WRITE('ÉÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍ»');
GOTOXY(16,4); WRITE('º º');
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(26,2); WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
GOTOXY(26,3); WRITE('¹ YEN˜ ˜ž€˜ EKLEME Ì');
GOTOXY(26,04); WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(16,5); WRITE('º º');
GOTOXY(16,6); WRITE('º ADI : .............................. º');
GOTOXY(16,7); WRITE('º º');
GOTOXY(16,08);WRITE('º SOYADI : .............................. º');
GOTOXY(16,09);WRITE('º º');
GOTOXY(16,10);WRITE('º ANA ADI : .............................. º');
GOTOXY(16,11);WRITE('º º');
GOTOXY(16,12);WRITE('º BABA ADI : .............................. º');
GOTOXY(16,13);WRITE('º º');
GOTOXY(16,14);WRITE('º DO¦/YER˜ : .............................. º');
GOTOXY(16,15);WRITE('º º');
GOTOXY(16,16);WRITE('º DO¦/TAR˜H˜ : ../../........................ º');
GOTOXY(16,17);WRITE('º º');
GOTOXY(16,18);WRITE('º EV TEL : (...)...-..-.................. º');
GOTOXY(16,19);WRITE('º º');
GOTOXY(16,20);WRITE('º CEP TEL : (...)...-..-.................. º');
GOTOXY(16,21);WRITE('º º');
GOTOXY(16,22);WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');TEXTCOLOR(15);TEXTBACKGROUND(10);
GOTOXY(19,6);WRITE('ADI :');
BEGIN
R.AH:=$01;R.CH:=$12;R.CL:=$13;INTR($10,R);
END;
GOTOXY(32,6);TEXTBACKGROUND(1);READLN(AD);TEXTBACKGROUND(1);TEXTCOLOR(15);GOTOXY(19,6);WRITE('ADI :');
TEXTCOLOR(15);TEXTBACKGROUND(10);GOTOXY(19,8);WRITE('SOYADI :');TEXTBACKGROUND(1);
GOTOXY(32,8);READLN(SOYAD);TEXTCOLOR(15);TEXTBACKGROUND(1);GOTOXY(19,8);WRITE('SOYADI :');
GOTOXY(19,10);TEXTCOLOR(15);TEXTBACKGROUND(10);WRITE('ANA ADI :');TEXTBACKGROUND(1);
GOTOXY(32,10); READLN(ANAADI);TEXTCOLOR(15);TEXTBACKGROUND(1);GOTOXY(19,10);WRITE('ANA ADI :');
GOTOXY(19,12);TEXTCOLOR(15);TEXTBACKGROUND(10);WRITE('BABA ADI :');TEXTBACKGROUND(1);
GOTOXY(32,12); READLN(BABAADI);TEXTCOLOR(15);TEXTBACKGROUND(1);GOTOXY(19,12);WRITE('BABA ADI :');
GOTOXY(19,14);TEXTCOLOR(15);TEXTBACKGROUND(10);WRITE('DO¦/YER˜ :');TEXTBACKGROUND(1);
GOTOXY(32,14); READLN(DYERI);GOTOXY(19,14);TEXTCOLOR(15);TEXTBACKGROUND(1);WRITE('DO¦/YER˜ :');
GOTOXY(19,16);TEXTCOLOR(15);TEXTBACKGROUND(10);WRITE('DO¦/TAR˜H˜ :');TEXTBACKGROUND(1);
1: GOTOXY(32,16);SU:=0;DTARIHI:='';
2: REPEAT
3: IF KEYPRESSED THEN
4: CH:=READKEY;
IF (CH=#8) THEN GOTO 10;
5: UNTIL CH IN ['0'..'9',#8];YAZ:=(ORD(CH));
6: WRITE(CHR(YAZ));SU:=SU+1;DTARIHI:=DTARIHI+CH;
7: IF (SU=2) THEN GOTOXY(35,16);
8: IF (SU=4) THEN GOTOXY(38,16);
9: IF (SU=8) THEN GOTO 12;
10: IF (CH=#8) THEN BEGIN SU:=0;GOTOXY(32,16);WRITE('../../....');GOTOXY(32,16);DTARIHI:='';;END;
11: GOTO 4;


12: GOTOXY(19,16);TEXTCOLOR(15);TEXTBACKGROUND(1);WRITE('DO¦/TAR˜H˜ :');
GOTOXY(19,18);TEXTCOLOR(15);TEXTBACKGROUND(10);WRITE('EV TEL :');TEXTBACKGROUND(1);
GOTOXY(33,18);SU2:=0;EVTEL:='';
13: REPEAT
14: IF KEYPRESSED THEN
15: CH2:=READKEY;
16: IF (CH2=#8) THEN GOTO 23;
17: UNTIL CH2 IN ['0'..'9',#8];YAZ2:=(ORD(CH2));
18: WRITE(CHR(YAZ2));SU2:=SU2+1;EVTEL:=EVTEL+CH2;
19: IF (SU2=3) THEN GOTOXY(37,18);
20: IF (SU2=6) THEN GOTOXY(41,18);
21: IF (SU2=8) THEN GOTOXY(44,18);
22: IF (SU2=10)THEN GOTO 24;
23: IF (CH2=#8) THEN BEGIN SU2:=0;GOTOXY(32,18);WRITE('(...)...-..-..');GOTOXY(33,18);EVTEL:='';;END;
GOTO 15;

24:GOTOXY(19,18);TEXTCOLOR(15);TEXTBACKGROUND(1);WRITE('EV TEL :');
GOTOXY(19,20);TEXTCOLOR(15);TEXTBACKGROUND(10);WRITE('CEP TEL :');TEXTBACKGROUND(1);
GOTOXY(33,20);SU3:=0;CEPTEL:='';
25: REPEAT
26: IF KEYPRESSED THEN
27: CH3:=READKEY;
IF (CH3=#8) THEN GOTO 34;
28: UNTIL CH3 IN ['0'..'9',#8];YAZ3:=(ORD(CH3));
29: WRITE(CHR(YAZ3));SU3:=SU3+1;CEPTEL:=CEPTEL+CH3;
30: IF (SU3=3) THEN GOTOXY(37,20);
31: IF (SU3=6) THEN GOTOXY(41,20);
32: IF (SU3=8) THEN GOTOXY(44,20);
33: IF (SU3=10) THEN GOTO MEDIYALOGU;
34:IF (CH3=#8) THEN BEGIN SU3:=0;GOTOXY(32,20);WRITE('(...)...-..-..');GOTOXY(33,20);CEPTEL:='';;END;
GOTO 27;

MEDIYALOGU:
35: TEXTCOLOR(15);TEXTBACKGROUND(6);
36: TEXTCOLOR(1);TEXTBACKGROUND(7);
37: GOTOXY(14,12);WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍ»');
38: GOTOXY(14,13);WRITE('º º');
39: TEXTCOLOR(1);TEXTBACKGROUND(07);
40: GOTOXY(26,11); WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
41: GOTOXY(26,12); WRITE('¹ MAAž HESAPLAMA Ì');
42: GOTOXY(26,13) ; WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
43: GOTOXY(14,14);WRITE('º ÚÄÄÄÄÄÄÄÄ¿ º');
44: GOTOXY(14,15);WRITE('º GšNDE €ALIžTI¦I SAAT : .. ³ KAYDET ³ º');
45: GOTOXY(14,16);WRITE('º ÀÄÄÄÄÄÄÄÄÙ º');
46: GOTOXY(14,17);WRITE('º AYDA €ALIžTI¦I GšN : .. ÚÄÄÄÄÄÄÄÄ¿ º');
47: GOTOXY(14,18);WRITE('º ³ DšZELT ³ º');
48: GOTOXY(14,19);WRITE('º SAATL˜K šCRET˜ : ............ ÀÄÄÄÄÄÄÄÄÙ º');
49: GOTOXY(14,20);WRITE('º ÚÄÄÄÄÄÄÄÄ¿ º');
50: GOTOXY(14,21);WRITE('º ˜ž€˜N˜N NET MAAžI : ............ ³ ˜PTAL ³ º');
51: GOTOXY(14,22);WRITE('º ÀÄÄÄÄÄÄÄÄÙ º');
52: GOTOXY(14,23);WRITE('º º');
53: GOTOXY(14,24);WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
54: GOTOXY(40,15);READLN(GCS);
55: IF (GCS>24) THEN BEGIN GOTOXY(40,15);WRITE('.. ');GOTO 54;END;
56: GOTOXY(40,17);READLN(ACG);
57: IF (ACG>30) THEN BEGIN GOTOXY(40,17);WRITE('.. ');GOTO 56;END;
58: GOTOXY(40,19);READLN(SUC);MAAS:=(GCS*ACG*SUC);
59: R.AH:=$01;R.CH:=$20;R.CL:=$20;INTR($10,R);
60: GOTOXY(40,21);WRITE(MAAS);
61: TEXTCOLOR(15);TEXTBACKGROUND(1);BB:=1;
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(54,14);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,15);WRITE('³ KAYDET ³');
GOTOXY(54,16);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(54,17);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,18);WRITE('³ DšZELT ³');
GOTOXY(54,19);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
GOTOXY(54,20);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,21);WRITE('³ ˜PTAL ³');
GOTOXY(54,22);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
GOTO 62;
62:SECIM2:=READKEY;
CASE SECIM2 OF
#13:GOTO GIRIS2;
#27:GOTO MENU;
#80:GOTO ASAGIL;
#72:GOTO YUKARIL;
ELSE GOTO 62;
END;
ASAGIL:
IF (BB=1) THEN GOTO BB2YAZ;
IF (BB=2) THEN GOTO BB3YAZ;
IF (BB=3) THEN GOTO BB1YAZ;
YUKARIL:
IF (BB=1) THEN GOTO BB3YAZ;
IF (BB=2) THEN GOTO BB1YAZ;
IF (BB=3) THEN GOTO BB2YAZ;
BB1YAZ:BB:=1;
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(54,14);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,15);WRITE('³ KAYDET ³');
GOTOXY(54,16);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(54,17);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,18);WRITE('³ DšZELT ³');
GOTOXY(54,19);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
GOTOXY(54,20);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,21);WRITE('³ ˜PTAL ³');
GOTOXY(54,22);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
GOTO 62;
BB2YAZ:BB:=2;
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(54,17);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,18);WRITE('³ DšZELT ³');
GOTOXY(54,19);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(54,14);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,15);WRITE('³ KAYDET ³');
GOTOXY(54,16);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
GOTOXY(54,20);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,21);WRITE('³ ˜PTAL ³');
GOTOXY(54,22);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
GOTO 62;
BB3YAZ:
BB:=3;
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(54,20);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,21);WRITE('³ ˜PTAL ³');
GOTOXY(54,22);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(54,14);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,15);WRITE('³ KAYDET ³');
GOTOXY(54,16);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
GOTOXY(54,17);WRITE('ÚÄÄÄÄÄÄÄÄ¿');
GOTOXY(54,18);WRITE('³ DšZELT ³');
GOTOXY(54,19);WRITE('ÀÄÄÄÄÄÄÄÄÙ');
GOTO 62;

GIRIS2:
IF BB=1 THEN GOTO DKEKLE;
IF BB=2 THEN BEGIN CH:=' ';CH2:=' ';CH3:=' ';GOTO KEDIYALOGU;END;
IF BB=3 THEN GOTO MENU;

DKEKLE:
ASSIGN(DOSYA,'C:\ISCI.DAT');
APPEND(DOSYA);
WRITELN(DOSYA,(UPCASESTR(AD)));
WRITELN(DOSYA,(UPCASESTR(SOYAD)));
WRITELN(DOSYA,(UPCASESTR(ANAADI)));
WRITELN(DOSYA,(UPCASESTR(BABAADI)));
WRITELN(DOSYA,(UPCASESTR(DYERI)));
WRITELN(DOSYA,DTARIHI);
WRITELN(DOSYA,EVTEL);
WRITELN(DOSYA,CEPTEL);
WRITELN(DOSYA,GCS);
WRITELN(DOSYA,ACG);
WRITELN(DOSYA,SUC);
WRITELN(DOSYA,MAAS);CH:=' ';CH2:=' ';CH3:=' ';
CLOSE(DOSYA);GOTO DEVAMMI;

HAKKINDA:
BEGIN TEXTBACKGROUND(1);CLRSCR;
GOTOXY(23,10);TEXTCOLOR(10);WRITE('CoDeR .......: CHeliSHKi');
GOTOXY(23,12);WRITE('EMAIL .......: chelishki@hotmail.com');
CH:=READKEY;GOTO MENU;
END;

KARA:
R.AH:=$01;R.CH:=$12;R.CL:=$13;INTR($10,R);
BEGIN TEXTBACKGROUND(1);CLRSCR;TEXTCOLOR(15);
GOTOXY(15,12);WRITE('LšTFEN ˜ž€˜N˜N ADINI G˜R˜N˜Z ..: ................');GOTOXY(48,12);
READLN(ARA);
VARMI:=0;
ARA:=UPCASESTR(ARA);
BULDUMU:
ASSIGN(DOSYA,'C:\ISCI.DAT');
ASSIGN(GD,'C:\GEC.DAT');
RESET(DOSYA);REWRITE(GD);
WHILE NOT EOF(DOSYA) DO
BEGIN
READLN(DOSYA,AD);
READLN(DOSYA,SOYAD);
READLN(DOSYA,ANAADI);
READLN(DOSYA,BABAADI);
READLN(DOSYA,DYERI);
READLN(DOSYA,DTARIHI);
READLN(DOSYA,EVTEL);
READLN(DOSYA,CEPTEL);
READLN(DOSYA,GCS);
READLN(DOSYA,ACG);
READLN(DOSYA,SUC);
READLN(DOSYA,MAAS);
IF ARA = AD THEN
BEGIN VARMI:=1;
BEGIN
GCS2:=GCS;ACG2:=ACG;SUC2:=SUC;MAAS2:=MAAS;
TEXTCOLOR(15);TEXTBACKGROUND(4);
CLRSCR;TEXTBACKGROUND(1);
END;
GOTOXY(16,3); WRITE('ÉÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍ»');
GOTOXY(16,4); WRITE('º º');
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(26,2); WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
GOTOXY(26,3); WRITE('¹ ARANAN ˜ž€˜ BULUNDU Ì');
GOTOXY(26,04); WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
TEXTCOLOR(15);TEXTBACKGROUND(1);
GOTOXY(16,5); WRITE('º º');
GOTOXY(16,6); WRITE('º ADI : .............................. º');
GOTOXY(16,7); WRITE('º º');
GOTOXY(16,08);WRITE('º SOYADI : .............................. º');
GOTOXY(16,09);WRITE('º º');
GOTOXY(16,10);WRITE('º ANA ADI : .............................. º');
GOTOXY(16,11);WRITE('º º');
GOTOXY(16,12);WRITE('º BABA ADI : .............................. º');
GOTOXY(16,13);WRITE('º º');
GOTOXY(16,14);WRITE('º DO¦/YER˜ : .............................. º');
GOTOXY(16,15);WRITE('º º');
GOTOXY(16,16);WRITE('º DO¦/TAR˜H˜ : ../../........................ º');
GOTOXY(16,17);WRITE('º º');
GOTOXY(16,18);WRITE('º EV TEL : (...)...-..-.................. º');
GOTOXY(16,19);WRITE('º º');
GOTOXY(16,20);WRITE('º CEP TEL : (...)...-..-.................. º');
GOTOXY(16,21);WRITE('º º');
GOTOXY(16,22);WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');TEXTCOLOR(15);TEXTBACKGROUND(1);
INSERT('/',DTARIHI,3);INSERT('/',DTARIHI,6);
INSERT('(',EVTEL,1);INSERT(')',EVTEL,5);INSERT('-',EVTEL,9);INSERT('-',EVTEL,12);
INSERT('(',CEPTEL,1);INSERT(')',CEPTEL,5);INSERT('-',CEPTEL,9);INSERT('-',CEPTEL,12);
GOTOXY(32,6);WRITE(AD);GOTOXY(32,8);WRITE(SOYAD);GOTOXY(32,10);WRITE(ANAADI);GOTOXY(32,12);WRITE(BABAADI);
GOTOXY(32,14);WRITE(DYERI);GOTOXY(32,16);WRITE(DTARIHI);GOTOXY(32,18);WRITE(EVTEL);GOTOXY(32,20);WRITE(CEPTEL);
GOTOXY(1,25);TEXTBACKGROUND(7);WRITE(' ');
GOTOXY(1,25);TEXTCOLOR(0);WRITE(' (ESC) = GER˜ AL (S) = S˜L (M) = MAAžINI G™STER (A) = KAYIT ARA');
GOTOXY(2,25);TEXTCOLOR(1);WRITE('(ESC)');
GOTOXY(22,25);WRITE('(S)');GOTOXY(39,25);WRITE('(M)');GOTOXY(65,25);WRITE('(A)');
R.AH:=$01;R.CH:=$20;R.CL:=$20;INTR($10,R);
GCS2:=GCS;ACG2:=ACG;SUC2:=SUC;MAAS2:=MAAS;
END;
END;
END;
IF VARMI=0 THEN GOTO BULUNAMADI;
65:CH:=READKEY;CH:=(UPCASE(CH));
CASE CH OF
#27:GOTO KAPAT;
#65,#97:GOTO KAPATVEARA;
#77,#109:GOTO MAASGOSTER;
#83,#115:GOTO SILDIYALOG;
ELSE GOTO 65;
END;
SILDIYALOG:SS:=0;
BEGIN CLOSE(GD);CLOSE(DOSYA);
ASSIGN(DOSYA,'C:\ISCI.DAT');
ASSIGN(GD,'C:\GEC.DAT');
RESET(DOSYA);REWRITE(GD);
WHILE NOT EOF(DOSYA) DO
BEGIN
KSIL:=TRUE;
READLN(DOSYA,AD);
READLN(DOSYA,SOYAD);
READLN(DOSYA,ANAADI);
READLN(DOSYA,BABAADI);
READLN(DOSYA,DYERI);
READLN(DOSYA,DTARIHI);
READLN(DOSYA,EVTEL);
READLN(DOSYA,CEPTEL);
READLN(DOSYA,GCS);
READLN(DOSYA,ACG);
READLN(DOSYA,SUC);
READLN(DOSYA,MAAS);
IF ARA=AD THEN
BEGIN
VARMI:=1;
TEXTCOLOR(1);TEXTBACKGROUND(15);
GOTOXY(18,21); WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
GOTOXY(18,22); WRITE('º KAYDI S˜LMEK ˜ST˜YORMUSUNUZ (E/H).....[ ] º');
GOTOXY(18,23); WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
GOTOXY(59,22);
CH:=READKEY;
IF CH IN ['E','e'] THEN KSIL:=FALSE;
IF CH IN ['H','h'] THEN GOTO BULDUM2;
END;
IF KSIL THEN
BEGIN
WRITELN(GD,AD);
WRITELN(GD,SOYAD);
WRITELN(GD,ANAADI);
WRITELN(GD,BABAADI);
WRITELN(GD,DYERI);
WRITELN(GD,DTARIHI);
WRITELN(GD,EVTEL);
WRITELN(GD,CEPTEL);
WRITELN(GD,GCS);
WRITELN(GD,ACG);
WRITELN(GD,SUC);
WRITELN(GD,MAAS);SS:=1;
END;
END;
IF SS=1 THEN
TEXTCOLOR(10);TEXTBACKGROUND(0);
GOTOXY(23,11); WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
GOTOXY(23,12); WRITE('º KAYIT DOSYADAN S˜L˜ND˜... º');
GOTOXY(23,13); WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
CH:=READKEY;

CLOSE(DOSYA);CLOSE(GD);
ERASE(DOSYA);RENAME(GD,'C:\ISCI.DAT');GOTO MENU;
END;
END;

MAASGOSTER:
BEGIN
TEXTCOLOR(15);TEXTBACKGROUND(6);
TEXTCOLOR(1);TEXTBACKGROUND(7);
GOTOXY(14,12);WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍ»');
GOTOXY(14,13);WRITE('º º');
TEXTCOLOR(1);TEXTBACKGROUND(07);
GOTOXY(26,11); WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
GOTOXY(26,12); WRITE('¹ ˜ž€˜N˜N ALACA¦I MAAž Ì');
GOTOXY(26,13) ; WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
GOTOXY(14,14);WRITE('º º');
GOTOXY(14,15);WRITE('º GšNDE €ALIžTI¦I SAAT : .. º');
GOTOXY(14,16);WRITE('º º');
GOTOXY(14,17);WRITE('º AYDA €ALIžTI¦I GšN : .. º');
GOTOXY(14,18);WRITE('º º');
GOTOXY(14,19);WRITE('º SAATL˜K šCRET˜ : ............ º');
GOTOXY(14,20);WRITE('º º');
GOTOXY(14,21);WRITE('º ˜ž€˜N˜N NET MAAžI : ............ º');
GOTOXY(14,22);WRITE('º º');
GOTOXY(14,23);WRITE('º º');
GOTOXY(14,24);WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
GOTOXY(40,15);WRITE(GCS2);GOTOXY(40,17);WRITE(ACG2);GOTOXY(40,19);WRITE(SUC2);
GOTOXY(40,21);WRITE(MAAS2);
66: CH:=READKEY;
CASE CH OF
#27:GOTO BULDUM;
ELSE GOTO 66;
END;

BULUNAMADI:IF VARMI=0 THEN
BEGIN TEXTBACKGROUND(0);CLRSCR;TEXTCOLOR(10);

GOTOXY(23,11); WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
GOTOXY(23,12); WRITE('º ARANAN KAYIT BULUNAMADI... º');
GOTOXY(23,13); WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
R.AH:=$01;R.CH:=$20;R.CL:=$20;INTR($10,R);
CH:=READKEY;GOTO MENU;
END;
BULDUM:
BEGIN
CLOSE(DOSYA);CLOSE(GD);GOTO BULDUMU;
END;GOTO MENU;
KAPATVEARA:
CLOSE(DOSYA);CLOSE(GD);
GOTO KARA;
DEVAMMI:
TEXTCOLOR(10);TEXTBACKGROUND(0);
GOTOXY(23,10); WRITE('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
GOTOXY(23,11); WRITE('º DEVAM ETMEK ˜ST˜YOR MUSUNUZ? º');
GOTOXY(23,12); WRITE('º º');
GOTOXY(23,13); WRITE('º EVET HAYIR º');
GOTOXY(23,14); WRITE('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
GOTOXY(26,13);TEXTBACKGROUND(10);TEXTCOLOR(15);WRITE(' EVET ');TEXTBACKGROUND(0);SATIR:=1;
GOTOXY(37,3);TEXTBACKGROUND(10);
71: CH:=READKEY;
CASE CH OF
#75:GOTO EVETYAZ;
#77:GOTO HAYIRYAZ;
#13:GOTO GIRIS3;
ELSE GOTO 71;
END;
EVETYAZ:
GOTOXY(42,13);TEXTBACKGROUND(0);TEXTCOLOR(10);WRITE(' HAYIR ');TEXTBACKGROUND(0);
GOTOXY(26,13);TEXTBACKGROUND(10);TEXTCOLOR(15);WRITE(' EVET ');TEXTBACKGROUND(0);SATIR:=1;GOTO 71;
HAYIRYAZ:
GOTOXY(26,13);TEXTBACKGROUND(0);TEXTCOLOR(10);WRITE(' EVET ');TEXTBACKGROUND(0);
GOTOXY(42,13);TEXTBACKGROUND(10);TEXTCOLOR(15);WRITE(' HAYIR ');TEXTBACKGROUND(0);SATIR:=0;GOTO 71;
GIRIS3:
IF SATIR=1 THEN GOTO KEDIYALOGU;
IF SATIR=0 THEN GOTO MENU;

KAPAT:
BEGIN
CLOSE(DOSYA);GOTO MENU;
END;
LISTELE:
BEGIN
TEXTBACKGROUND(0);CLRSCR;
WRITELN;
80:TEXTCOLOR(15);TEXTBACKGROUND(10);
WRITELN(' ADI SOYADI DO¦/YER˜ EVTEL CEPTEL MAAžI ');
TEXTBACKGROUND(0);
ASSIGN(DOSYA,'C:\ISCI.DAT');
RESET(DOSYA);
GOTOXY(1,SATIR);
WHILE NOT EOF(DOSYA) DO
BEGIN
READLN(DOSYA,AD);
READLN(DOSYA,SOYAD);
READLN(DOSYA,ANAADI);
READLN(DOSYA,BABAADI);
READLN(DOSYA,DYERI);
READLN(DOSYA,DTARIHI);
READLN(DOSYA,EVTEL);
READLN(DOSYA,CEPTEL);
READLN(DOSYA,GCS);
READLN(DOSYA,ACG);
READLN(DOSYA,SUC);
READLN(DOSYA,MAAS);
TEXTCOLOR(15);
WRITELN(AD:10,SOYAD:10,DYERI:15,EVTEL:15,CEPTEL:15,MAAS:12);
END;
CLOSE(DOSYA);
GOTOXY(1,25);TEXTBACKGROUND(10);WRITE(' ');
GOTOXY(2,25);TEXTCOLOR(15);WRITE('(ESC) = ˜PTAL');
END;
CH:=READKEY;
CASE CH OF
#27:GOTO MENU;
ELSE GOTO LISTELE;
END
END;
BULDUM2:
CLOSE(DOSYA);CLOSE(GD);GOTO BULDUMU;
END.
Baþa dön Yazar buraya eklediði tüm yazý ve materyallerin sorumluluðunun kendisine ait olduðunu üyelik sözleþmesinde kabul etmiþtir.
Kullanýcý profilini gör Özel mesaj gönder Kullanýcýnýn web sitesini ziyaret et MSN Messenger
emrahislam
Yeni Üye


Kayýt: Nov 09, 2005
Mesajlar: 46

Çevrimdýþý(Baðlý Deðil)
MesajTarih: Cmt Arl 10, 2005 10:05    Mesaj konusu: Alýntýyla Cevap Ver
Keþke bu programlamayý bende bilsem. Paylaþým için teþekkürler.
_________________
emrahislam1985
Baþa dön Yazar buraya eklediði tüm yazý ve materyallerin sorumluluðunun kendisine ait olduðunu üyelik sözleþmesinde kabul etmiþtir.
Kullanýcý profilini gör Özel mesaj gönder
senolunsal
Yeni Üye


Kayýt: Nov 09, 2006
Mesajlar: 31

Çevrimdýþý(Baðlý Deðil)
MesajTarih: Cum Arl 29, 2006 3:12    Mesaj konusu: Alýntýyla Cevap Ver
yaa
pýroðram nasýl calýþýr bende bilmiyom ama adýný duydum acýklama yaparsan sevinirim:)))))))
_________________
þenoll
Baþa dön Yazar buraya eklediði tüm yazý ve materyallerin sorumluluðunun kendisine ait olduðunu üyelik sözleþmesinde kabul etmiþtir.
Kullanýcý profilini gör Özel mesaj gönder
spawn42
HiperAktif Üye
HiperAktif Üye


Kayýt: Sep 03, 2006
Mesajlar: 698

Çevrimdýþý(Baðlý Deðil)
MesajTarih: Prþ Nis 05, 2007 5:14    Mesaj konusu: Alýntýyla Cevap Ver
kopyala yapýþtýr. :D Ne çektim bu prýgramlamayý öðrenene kadar
_________________
Ey zaman, bilmez misin ettiðin kötülükleri ?
Sana düþer azaplarýn, tövbelerin beteri.
Alçaklarý besler, yoksullarý ezer durursun:
Ya bunak bir ihtiyarsýn, ya da eþeðin biri.
Baþa dön Yazar buraya eklediði tüm yazý ve materyallerin sorumluluðunun kendisine ait olduðunu üyelik sözleþmesinde kabul etmiþtir.
Kullanýcý profilini gör Özel mesaj gönder
Mesajlarý göster:   
Yeni Baþlýk Gönder   Cevap Gönder    Ýnternet Cafeciler Forum Ana Sayfasý -> Programlama Tüm saatler GMT + 3 Saat
1. sayfa (Toplam 1 sayfa)

 
 Forum Seçin:   
Bu forumda yeni konular açamazsýnýz
Bu forumdaki mesajlara cevap veremezsiniz
Bu forumdaki mesajlarýnýzý deðiþtiremezsiniz
Bu forumdaki mesajlarýnýzý silemezsiniz
Bu forumdaki anketlerde oy kullanamazsýnýz

Ýnternet Kafecilerin Paylaþým Platformu
Tüm Haklarý Saklýdýr © 2005 internetcafeciler.net
Bu Site PHP-Nuke (© 2007) kodlar?na sahiptir. PHP-Nuke GNU/GPL lisans? alt?nda da??t?lan ücretsiz yaz?l?md?r.
Sayfa Üretimi: 1.57 Saniye
eXTReMe Tracker