Geri git   Van.GEN.TR Forum | Yerel Van Forumu > Bilgisayar > Programlama > Pascal

Cevapla
 
Konu Araçlarý Stil
Alt 24/04/07, 00:49   #1
gokhanaygun
Tuðgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduðu yer: VAN
Yaş: 36
Mesajlar: 925
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart dama

UNIT DAMAPF;
INTERFACE
USES CRT,DOS;
CONST
ESC=#27;
ENTER=#13;
YUKARITUS=#72;
SOLTUS=#75;
SAGTUS=#77;
ASAGITUS=#80;
DELETETUS=#83;
CTRLY=#25;
F1=#59;
TYPE
SUTSAT=1..8;
PROCEDURE DISYAZI;
procedure curon;
procedure curoff;
PROCEDURE YARDIM;
PROCEDURE RENK(Y,Z:BYTE);
PROCEDURE CERCEVE(SEK : CHAR; X1,Y1,X2,Y2,R:BYTE);
PROCEDURE MASA;
PROCEDURE BEYAZTAS;
PROCEDURE GRITAS;
PROCEDURE CIFTKOY(A,B:BYTE);
IMPLEMENTATION
VAR
I,J:BYTE;
TSU:CHAR;
procedure curon;assembler;
asm
mov ah,01h
mov ch,06h
mov cl,07h
int 10h
end;
procedure curoff;assembler;
asm
mov ah,01h
mov ch,20h
int 10h
end;
PROCEDURE RENK;
BEGIN
TEXTCOLOR(Y);TEXTBACKGROUND(Z);
END;
PROCEDURE CERCEVE;
VAR
I:INTEGER;
CIZGI:STRING[80];
BEGIN
RENK(R,0);SEK:=UPCASE(SEK);
CASE SEK OF
'T':BEGIN
FILLCHAR(CIZGI,X2-X1,#196);
CIZGI[0]:=CHAR(X2-X1-1);
GOTOXY(X1,Y1);WRITE(CHR(218),CIZGI,CHR(191));
FOR I:=Y1+1 TO Y2-1 DO BEGIN
GOTOXY(X1,I);WRITELN(CHR(179));
GOTOXY(X2,I);WRITELN(CHR(179));
END;
GOTOXY(X1,Y2);WRITE(#192,CIZGI,#217);
END;
'C':BEGIN
FILLCHAR(CIZGI,X2-X1,#205);
CIZGI[0]:=CHAR(X2-X1-1);
GOTOXY(X1,Y1);WRITE(CHR(201),CIZGI,CHR(187));
FOR I:=Y1+1 TO Y2-1 DO BEGIN
GOTOXY(X1,I);WRITELN(CHR(186));
GOTOXY(X2,I);WRITELN(CHR(186));
END;
GOTOXY(X1,Y2);WRITE(CHR(200),CIZGI,CHR(188));
END;
END;
END;
PROCEDURE DISYAZI;
BEGIN
GOTOXY(6,22);WRITE('ENTER..> TAž OYNATMA');
GOTOXY(6,23);WRITE('F1.....> YARDIM');
GOTOXY(6,24);WRITE('ESC....> €IKIž');
CERCEVE('T',32,5,79,7,7);
CERCEVE('T',32,19,79,21,7);
END;
PROCEDURE YARDIM;
BEGIN CLRSCR;
CERCEVE('T',10,5,70,13,7);
GOTOXY(12,6);WRITE('DEL.....> BULUNULAN KAREN˜N ˜€˜N˜ TEM˜ZLER.');
GOTOXY(12,7);WRITE('1.......> BULUNULAN KAREYE BEYAZ TAž YERLEžT˜R˜R.');
GOTOXY(12,8);WRITE('2.......> BULUNULAN KAREYE MAV˜ TAž YERLEžT˜R˜R.');
GOTOXY(12,9);WRITE('CTLR+Y..> YEN˜ B˜R DAMA MASASI HAZIRLAR.');
GOTOXY(12,10);WRITE('ESC.....> DAMA OYUNUNDAN €IKAR.');
GOTOXY(12,12);WRITE('TAMAM ˜SE B˜R TUžA BASINIZ...');
TSU:=READKEY;
CLRSCR;
END;
PROCEDURE MASA;
BEGIN
GOTOXY(1,4);
WRITELN(' A B C D E F G H ');
WRITELN(' ÚÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄ¿');
WRITELN(' 1 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 2 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 3 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 4 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 5 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 6 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 7 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 8 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÀÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÙ');
END;
PROCEDURE BEYAZTAS;
BEGIN
TEXTCOLOR(15);
WRITE('ÛÛ');
LOWVIDEO;
END;
PROCEDURE GRITAS;
BEGIN
TEXTCOLOR(LIGHTblue);
WRITE('ÛÛ');
TEXTCOLOR(15);
LOWVIDEO;
END;
PROCEDURE CIFTKOY;
BEGIN
GOTOXY(A,B); WRITE('ÉÍÍ»');
GOTOXY(A,B+1);WRITE('º');GOTOXY(A+3,B+1);WRITE('º' );
GOTOXY(A,B+2);WRITE('ÈÍͼ');
END;
END.
gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayýsý: 187
Alt 20/06/08, 15:29   #2
firari
Mareþal
 
firari - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Sep 2007
Mesajlar: 5.839
Tecrübe Puanı: 104 firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute
Standart

Paylaşım için tşkler…
__________________



firari isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayýsý: 613
Takýmýnýz:
Alt 30/06/08, 01:47   #3
Mattet
Cumhurbaþkaný
 
Mattet - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: May 2008
Bulunduðu yer: van
Mesajlar: 7.116
Tecrübe Puanı: 48 Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute
Standart

teŞekkÜrler PaylaŞim İİÇİn
__________________





Düþmeden Bulutlarda Koþmam GereK !
Mattet isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayýsý: 866
Alt 31/07/08, 15:51   #4
Neutralizer
Yasaklý kullanýcý
 
Neutralizer - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Jan 2008
Bulunduðu yer: Ýstediðin yerden
Mesajlar: 1.890
Tecrübe Puanı: 0 Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute
Standart

paylaşım için tşkrlr
Neutralizer isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayýsý: 317
Takýmýnýz:
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Konu Araçlarý
Stil

Yetkileriniz
Yeni Mesaj yazma yetkiniz Aktif deðil dir.
Mesajlara Cevap verme yetkiniz aktif deðil dir.
Eklenti ekleme yetkiniz Aktif deðil dir.
Kendi Mesajýnýzý deðiþtirme yetkiniz Aktif deðildir dir.

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Gitmek istediğiniz klasörü seçiniz


Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 01:12 .


Powered by vBulletin
Copyright © 2000-2007 Jelsoft Enterprises Limited.
Sitemap
6, 5, 3, 7, 8, 9, 10, 11, 12, 13, 14, 15, 113, 16, 17, 18, 19, 81, 20, 27, 22, 23, 24, 25, 26, 48, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 43, 136, 40, 58, 45, 42, 44, 46, 47, 53, 54, 55, 56, 57, 59, 60, 70, 61, 62, 63, 64, 65, 66, 68, 69, 71, 72, 74, 75, 76, 77, 78, 79, 80, 82, 83, 96, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 98, 97, 100, 101, 102, 103, 106, 104, 105, 112, 109, 108, 107, 110, 111, 114, 115, 118, 116, 117, 119, 148, 154, 124, 165, 122, 120, 123, 121, 150, 153, 125, 128, 129, 131, 132, 133, 134, 135, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 151, 149, 202, 175, 164, 152, 167, 155, 156, 157, 158, 159, 160, 161, 162, 163, 195, 169, 166, 168, 170, 171, 172, 199, 174, 173, 196, 200, 176, 177, 180, 178, 179, 182, 189, 187, 184, 186, 191, 192, 193, 194, 197, 198, 201, 203, 229, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 236, 231, 232, 233, 234, 235, 237, 240, 239, 241, 243, 242, 244,