(* ////Oguz Eroglu Turkce Pascal.. oguz_eroglu67@hotmail.co.uk\\\\ *)
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:oguz_eroglu67@hotmail.co.uk
Ç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.
ÖNEMLİ:::
BU PROGRAM GELİŞTİRİLMEYE TAMAMEN AÇIKTIR.EĞER GELİŞTİRİRSENİZ EN BAŞTAKİ EMAİL ADRESİMLE BANA ÇOK RAHAT ULAŞIRSINIZ.
oğuz eroğlu
oguz_eroglu67@hotmail.co.uk