Papatyam Forum - Tekil Mesaj gösterimi - Pascal dilinde çok fazla kullanılan kodları türkçe yazın
Tekil Mesaj gösterimi
Alt 04 March 2008, 14:17   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Pascal dilinde çok fazla kullanılan kodları türkçe yazın

Pascal dilinde çok fazla kullanılan kodları türkçe yazın

(* ////tamer\\\\ *)
unit turkce;
interface
procedure renk(t:integer);
procedure temizle;
procedure yaz(xax:string);
procedure yazi(x:string);
procedure enterabasinca;
procedure hedef(ax,by:byte);
procedure hiz(eehh:integer);
procedure ses(aahh:integer);
function xnerde: Byte;
function ynerde:Byte;
function bosalan(surucu: Byte): Longint;
function bekle: Char;
function kapasite(surucu_k:byte):Longint;
function kopyala(axc: String; bxc : Integer; cxc: Integer): String;
procedure sayiyaz(rty:integer);
procedure sayiyazi(rtf:integer);
procedure sayiyaata(var i:integer);
procedure yeni(adres,jgj:string);
implementation
uses crt,dos;
procedure renk(t:integer);
begin
textcolor(t);
end;
procedure temizle;
begin
clrscr;
end;
procedure yaz(xax:string);
begin
writeln('');
writeln(xax);
end;
procedure yazi(x:string);
begin
write(x);
end;
procedure enterabasinca;
begin
readln;
end;
procedure hedef(ax,by:byte);
begin
gotoxy(ax,by);
end;
procedure hiz(eehh:integer);
begin
delay(eehh);
end;
procedure ses(aahh:integer);
begin
sound(aahh);
end;
function xnerde: Byte;
begin
xnerde:=wherex;
end;
function ynerde:Byte;
begin
ynerde:=wherey;
end;
function bosalan(surucu: Byte): Longint;
begin
bosalan:=diskfree(surucu);
end;
function bekle: Char;
begin
bekle:=readkey;
end;
function kapasite(surucu_k:byte):Longint;
begin
kapasite:=disksize(surucu_k);
end;
function kopyala(axc: String; bxc : Integer; cxc: Integer): String;
begin
kopyala:=copy(axc,bxc,cxc);
end;
procedure sayiyaz(rty:integer);
begin
writeln(rty);
end;
procedure sayiyazi(rtf:integer);
begin
write(rtf);
end;
procedure sayiyaata(var i:integer);
var
f:text;
begin
assign(f,ParamStr(1));
reset(f);
read(f,i);
end;
procedure yeni(adres,jgj:string);
var
aup:text;
begin
assign(aup,adres);
rewrite(aup);
write(aup,jgj);
close(aup);
end;
end.


Bu kodları compile,make,built yapın.TPU dosyası oluşacak.Dosyanın adını turkce yapın.

TÜRKÇE ÇALIŞAN KODLAR Ve Bilgi::

Türkçe Pascal!! Oğuz Eroğlu
Adres[email protected]

Çekinmeyin kaydedin : )



NEDİR BU? NASIL ÇALIŞIR?

Öncelikle Türkçe Pascalı kullanmak için Türkçe.tpu Türkçe.pas Türkçe.bak isimli

üç adet dosyayı Turbo Pascalın bin klasörüne kopyalayın veya kes yapıştır yapın.


ÖNEMLİ:::: Ardından program yazmaya başlarken :::

Uses turkce,..; şeklinde başlayın.


ÖRN::: uses turkce,crt;

Uses graph,turkce;

Uses turkce;
Eğer başka bir derleyici kullanıyorsanız (TP DIŞINDA) çalışıcağına dair garanti veremem çünkü Turbo Pascalla yazıldı.

Şimdi gelelim nedir bu dosyalar?

Bu dosyalar pascal programlama dilini Türkçe kullanabilmenize olanak verir.Türkçe kodlar Türkçe programlama…

HANGİ KODLAR TÜRKÇE ÇALIŞIR?


1-) renk(renk kodu) yazının rengini ayarlamanızı sağlar. Örn::

renk(100);

renk(50);

Renk Kodlarında 100 den sonrası yanıp sönen renkleri ifade eder…



2-)temizle; kodu ekrandaki bütün yazıları siler…

örn;

writeln(‘klklk’);
readln;
temizle;


3-)yaz(‘…’); ve yazi(‘….’); kodu ekrana yazı yazar..

ÖNEMLİ::: yaz(‘..’); kodu ekranda yeni bir satıra geçer.. yazi(‘..’); kodu bunu yapmaz.Aynı satıra devam eder.


Örn: yaz(‘Ali Ata Bakmış’);



4-)enterabasinca; kodu işlemin enter tuşuna basılınca gerçekleşmesini sağlar

örn:

enterabasinca;
end.


5-)hedef(x,y); kodu ekranın istenilen x ve y koordinatlarına gidilmesini sağlar.

Örn:

Hedef(35,21);
Yaz(‘ali ata bak olum’);


6-)hiz(..); kodu komutun gerçekleşeceği zaman bekleme süresini ayarlar..(Delay gibi)

örn:

yaz(‘Ali’);
hiz(100);
yaz(‘Ata Bak’);

NOT: hiz(1000)==1 saniyelik bekleme süresi…



7-)ses(..); kodu kasadan ses çıkarmayı sağlar..


örn:
repeat
ses(800);
until keypressed;
nosound;

Not:Bu komutu kullanarak org programı yazabilirsiniz..



8-)xnerde; ve ynerde; komutları ekranın hangi koordinatlarda olduğunu belirler.(wherex ve wherey gibi);


örn::

hedef(30,8);
yazi(‘Ali ata bakk bee ‘);
enterabasinca;
hedef(xnerde+1,ynerde);
end.


9-)bosalan(..); ve kapasite(..); kodları diskteki bos alanı ve disk kapasitesini belirler.


0--)GeçerLi disk.


Sayiyaz(bosalan(0));



10-) bekle; kodu bir tuşa basılana kadar programı bekletir.


Örn::

Var c:char;
Begin
C:=bekle;
Yaz(‘abcd’);
Enterabasinca;
End.

11-)

kopyala(…..); kodu anlatılmaz yaşanır : ) örneğe bakın anlarsınız


uses turkce,crt;
var
a:string;
begin
temizle;
a:=’abcdef’
a:=kopyala(a,3,2);
yaz(a);
enterabasinca;
end.

EKRAN ÇIKTISI::: cd

Yani 3. harften başladı 2 harf gitti ve kodyaladı


12-)sayiyaz(..); ve sayiyazi(..); kodları ekrana sayı değerlerini yazar. Yaz ve yazi kodlarıyla aynı mantıktadır.


13-)sayiyaata(..); kodu değişken ataması yapar.

Örn:

Yaz(‘’);
Sayiyaata(a);
Yaz(‘’);
Sayiyaata(b);
Sayiyaz(a+b);

Gibi



14-)yeni(……); kodu belirtilen adrese yeni dosya açar…


KULLANIM::yeni(‘adres’,’yazılacak yazı’);

Örn:

.
.
.
yeni(‘c:\tp\yeni.txt’,’Ali Ata Bak’);
.
.
.

c:\tp klasörüne yeni.txt diye dosya oluştu ve içinde Ali Ata Bak yazıyor.



Alıntı ile Cevapla