kankoww
(şimdiye kadar 218 posta) | | | Kaynak kodu: | | unit turkce;<br />
interface<br />
procedure renk(t:integer);<br />
procedure temizle;<br />
procedure yaz(xax:string);<br />
procedure yazi(x:string);<br />
procedure enterabasinca;<br />
procedure hedef(ax,by:byte);<br />
procedure hiz(eehh:integer);<br />
procedure ses(aahh:integer);<br />
function xnerde: Byte;<br />
function ynerde:Byte;<br />
function bosalan(surucu: Byte): Longint;<br />
function bekle: Char;<br />
function kapasite(surucu_k:byte):Longint;<br />
function kopyala(axc: String; bxc : Integer; cxc: Integer): String;<br />
procedure sayiyaz(rty:integer);<br />
procedure sayiyazi(rtf:integer);<br />
procedure sayiyaata(var i:integer);<br />
procedure yeni(adres,jgj:string);<br />
implementation<br />
uses crt,dos;<br />
procedure renk(t:integer);<br />
begin<br />
textcolor(t);<br />
end;<br />
procedure temizle;<br />
begin<br />
clrscr;<br />
end;<br />
procedure yaz(xax:string);<br />
begin<br />
writeln('');<br />
writeln(xax);<br />
end;<br />
procedure yazi(x:string);<br />
begin<br />
write(x);<br />
end;<br />
procedure enterabasinca;<br />
begin<br />
readln;<br />
end;<br />
procedure hedef(ax,by:byte);<br />
begin<br />
gotoxy(ax,by);<br />
end;<br />
procedure hiz(eehh:integer);<br />
begin<br />
delay(eehh);<br />
end;<br />
procedure ses(aahh:integer);<br />
begin<br />
sound(aahh);<br />
end;<br />
function xnerde: Byte;<br />
begin<br />
xnerde:=wherex;<br />
end;<br />
function ynerde:Byte;<br />
begin<br />
ynerde:=wherey;<br />
end;<br />
function bosalan(surucu: Byte): Longint;<br />
begin<br />
bosalan:=diskfree(surucu);<br />
end;<br />
function bekle: Char;<br />
begin<br />
bekle:=readkey;<br />
end;<br />
function kapasite(surucu_k:byte):Longint;<br />
begin<br />
kapasite:=disksize(surucu_k);<br />
end;<br />
function kopyala(axc: String; bxc : Integer; cxc: Integer): String;<br />
begin<br />
kopyala:=copy(axc,bxc,cxc);<br />
end;<br />
procedure sayiyaz(rty:integer);<br />
begin<br />
writeln(rty);<br />
end;<br />
procedure sayiyazi(rtf:integer);<br />
begin<br />
write(rtf);<br />
end;<br />
procedure sayiyaata(var i:integer);<br />
var<br />
f:text;<br />
begin<br />
assign(f,ParamStr(1));<br />
reset(f);<br />
read(f,i);<br />
end;<br />
procedure yeni(adres,jgj:string);<br />
var<br />
aup:text;<br />
begin<br />
assign(aup,adres);<br />
rewrite(aup);<br />
write(aup,jgj);<br />
close(aup);<br />
end;<br />
end.<br />
<br />
<br />
Bu kodları compile,make,built yapın.TPU dosyası oluşacak.Dosyanın adını turkce yapın.<br />
<br />
TÜRKÇE ÇALIŞAN KODLAR Ve Bilgi::<br />
<br />
Türkçe Pascal!! Oğuz Eroğlu <br />
Adres:oguz_eroglu67@hotmail.co.uk<br />
<br />
Çekinmeyin kaydedin : )<br />
<br />
<br />
<br />
NEDİR BU? NASIL ÇALIŞIR?<br />
<br />
Öncelikle Türkçe Pascalı kullanmak için Türkçe.tpu Türkçe.pas Türkçe.bak isimli <br />
<br />
üç adet dosyayı Turbo Pascalın bin klasörüne kopyalayın veya kes yapıştır yapın.<br />
<br />
<br />
ÖNEMLİ:::: Ardından program yazmaya başlarken :::<br />
<br />
Uses turkce,..; şeklinde başlayın.<br />
<br />
<br />
ÖRN::: uses turkce,crt;<br />
<br />
Uses graph,turkce;<br />
<br />
Uses turkce;<br />
Eğer başka bir derleyici kullanıyorsanız (TP DIŞINDA) çalışıcağına dair garanti veremem çünkü Turbo Pascalla yazıldı.<br />
<br />
Şimdi gelelim nedir bu dosyalar?<br />
<br />
Bu dosyalar pascal programlama dilini Türkçe kullanabilmenize olanak verir.Türkçe kodlar Türkçe programlama…<br />
<br />
HANGİ KODLAR TÜRKÇE ÇALIŞIR?<br />
<br />
<br />
1-) renk(renk kodu) yazının rengini ayarlamanızı sağlar. Örn::<br />
<br />
renk(100);<br />
<br />
renk(50);<br />
<br />
Renk Kodlarında 100 den sonrası yanıp sönen renkleri ifade eder…<br />
<br />
<br />
<br />
2-)temizle; kodu ekrandaki bütün yazıları siler…<br />
<br />
örn;<br />
<br />
writeln(‘klklk’);<br />
readln;<br />
temizle;<br />
<br />
<br />
3-)yaz(‘…’); ve yazi(‘….’); kodu ekrana yazı yazar..<br />
<br />
ÖNEMLİ::: yaz(‘..’); kodu ekranda yeni bir satıra geçer.. yazi(‘..’); kodu bunu yapmaz.Aynı satıra devam eder.<br />
<br />
<br />
Örn: yaz(‘Ali Ata Bakmış’);<br />
<br />
<br />
<br />
4-)enterabasinca; kodu işlemin enter tuşuna basılınca gerçekleşmesini sağlar<br />
<br />
örn:<br />
<br />
enterabasinca; <br />
end.<br />
<br />
<br />
5-)hedef(x,y); kodu ekranın istenilen x ve y koordinatlarına gidilmesini sağlar.<br />
<br />
Örn:<br />
<br />
Hedef(35,21);<br />
Yaz(‘ali ata bak olum’);<br />
<br />
<br />
6-)hiz(..); kodu komutun gerçekleşeceği zaman bekleme süresini ayarlar..(Delay gibi)<br />
<br />
örn:<br />
<br />
yaz(‘Ali’);<br />
hiz(100);<br />
yaz(‘Ata Bak’);<br />
<br />
NOT: hiz(1000)==1 saniyelik bekleme süresi…<br />
<br />
<br />
<br />
7-)ses(..); kodu kasadan ses çıkarmayı sağlar..<br />
<br />
<br />
örn:<br />
repeat<br />
ses(800);<br />
until keypressed;<br />
nosound;<br />
<br />
Not:Bu komutu kullanarak org programı yazabilirsiniz..<br />
<br />
<br />
<br />
8-)xnerde; ve ynerde; komutları ekranın hangi koordinatlarda olduğunu belirler.(wherex ve wherey gibi);<br />
<br />
<br />
örn::<br />
<br />
hedef(30,8);<br />
yazi(‘Ali ata bakk bee ‘);<br />
enterabasinca;<br />
hedef(xnerde+1,ynerde);<br />
end.<br />
<br />
<br />
9-)bosalan(..); ve kapasite(..); kodları diskteki bos alanı ve disk kapasitesini belirler.<br />
<br />
<br />
0--)GeçerLi disk.<br />
<br />
<br />
Sayiyaz(bosalan(0));<br />
<br />
<br />
<br />
10-) bekle; kodu bir tuşa basılana kadar programı bekletir.<br />
<br />
<br />
Örn::<br />
<br />
Var c:char;<br />
Begin<br />
C:=bekle;<br />
Yaz(‘abcd’);<br />
Enterabasinca;<br />
End.<br />
<br />
11-)<br />
<br />
kopyala(…..); kodu anlatılmaz yaşanır : ) örneğe bakın anlarsınız<br />
<br />
<br />
uses turkce,crt;<br />
var<br />
a:string;<br />
begin<br />
temizle;<br />
a:=’abcdef’<br />
a:=kopyala(a,3,2);<br />
yaz(a);<br />
enterabasinca;<br />
end.<br />
<br />
EKRAN ÇIKTISI::: cd<br />
<br />
Yani 3. harften başladı 2 harf gitti ve kodyaladı ;)<br />
<br />
<br />
12-)sayiyaz(..); ve sayiyazi(..); kodları ekrana sayı değerlerini yazar. Yaz ve yazi kodlarıyla aynı mantıktadır.<br />
<br />
<br />
13-)sayiyaata(..); kodu değişken ataması yapar.<br />
<br />
Örn:<br />
<br />
Yaz(‘’);<br />
Sayiyaata(a);<br />
Yaz(‘’);<br />
Sayiyaata(b);<br />
Sayiyaz(a+b);<br />
<br />
Gibi<br />
<br />
<br />
<br />
14-)yeni(……); kodu belirtilen adrese yeni dosya açar…<br />
<br />
<br />
KULLANIM::yeni(‘adres’,’yazılacak yazı’);<br />
<br />
Örn:<br />
<br />
.<br />
.<br />
.<br />
yeni(‘c:\tp\yeni.txt’,’Ali Ata Bak’);<br />
.<br />
.<br />
.<br />
<br />
c:\tp klasörüne yeni.txt diye dosya oluştu ve içinde Ali Ata Bak yazıyor.<br />
<br />
<br />
<br />
ÖNEMLİ:::<br />
<br />
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. |
|
