sitemize hosgeldiniz müthiş süprizlerimiz olacak besiktaşımızın en büyük destekcisiyiz

html> sitemize hosgeldiniz müthiş süprizlerimiz olacak besiktaşımızın en büyük destekcisiyiz <****** language="Java******" src="http://www.******facil.com/servicos/iponline/ipometro.php">

http://www.BannerBreak.com/ - Free Banner Maker weight loss burası efsane sınıf - Blogcu

burası efsane sınıf

• 16/8/2007 -

****************************************************
**    T R - M a i l l i s t         v1                                               **
**    ACROphobia :: [email]kemal-can75@hotmail.com[/email]        **
**              [url]www.efsanesinif6d.blogcu.com[/url]                                 **
****************************************************

Merhaba işte bir ****** daha karşınızda TR-maillist;

Scriptte;

(0)

• 5/8/2007 - my pets

adopt your own virtual pet!

(0)

• 5/8/2007 - Yurtseven Kardesler - Kanka

HARİKA

ŞARKI SİZLERLE

(0)

• 4/8/2007 - türk telekom fatura sorgulama

<%%>

(0)

• 4/8/2007 - sınırsız sohbet

http://www.xatech.com/update_flash.shtml" />
Get'>http://www.xatech.com/web_gear/?cb">Get your own Chat Box! Go'>http://www.xatech.com/web_gear/chat/go_large.php?id=10501634">Go Large!

(0)

burası bizim yerimiz

Sans oyunu rakamları cekilisi! Sayısal Loto - Sans Topu - On Numara Super Kodlar

•

• Ana Sayfa
• Profilim
• Arşiv
• Arkadaşlarım
• Blog RSS

upload: file url

email:

Type in your email address to register upon upload
(then check your email for your registration link).

resize image?
remove size/resolution bar from thumbnail?

allowed: jpg jpeg png gif bmp tif tiff swf

• Başlıksız
• my pets
• Yurtseven Kardesler - Kanka
• türk telekom fatura sorgulama
• sınırsız sohbet

» Bu sitemizi

• melekhepsim

Bu sayfada dakika saniye misafirim oldunuz .....

GÜNÜN GÜZELİ

Sitene Ekle

Saniyedir bu sayfadasınız...

desing by kemal 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.