04 March 2008, 14:17 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
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. |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
Html Kodları 2 | agasarlinuris | html | 4 | 08 April 2009 17:13 |
Html Kodları | agasarlinuris | html | 0 | 21 January 2009 22:31 |
Pascal Programlama Dili | CoNQueRoR_61 | Pascal | 0 | 20 January 2009 15:53 |
Yazın dış kulak enfeksiyonlarına dikkat! | PESTEMAL | Sağlık ve Hastalıklar | 0 | 11 March 2008 15:52 |
Yazın güneş ve çocuğunuz | PESTEMAL | Kadın ve Çocuk Sağlığı | 0 | 11 March 2008 15:27 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |