15 Ocak 2009 Perşembe

BİRGÜN ANLARSIN

Uykuların kaçar geceleri,
bir türlü sabah olmayı bilmez.
Dikilir gözlerin tavanda bir noktaya,
Deli eden bir uğultudur başlar kulaklarında
Ne çarşaf halden anlar ne yastık.
Girmez pencerelerden beklediğin o aydınlık.
Onun unutamadığın hayali,
Sigaradan derin bir nefes çekmişçesine dolar içine.
Kapanır yatağına çaresizliğine ağlarsın.
Sevmek ne imiş bir gün anlarsın.
Bir gün anlarsın aslında her şeyin boş olduğunu.
Şerefin, faziletin, iyiliğin, güzelliğin.
Gün gelir de sesini bir kerecik duyabilmek için,
Vurursun başını soğuk taş duvarlara.
Büyür gitgide incinmişliğin kırılmışlığın.
Duyarsın, Ta derinden acısını,çaresiz kalmışlığın.
Sevmek ne imiş bir gün anlarsın.
Bir gün anlarsın ne işe yaradığını ellerinin.
Niçin yaratıldığını.
Bu iğrenç dünyaya neden geldiğini.
Uzun uzun seyredersin aynalarda güzelliğini.
Boşuna geçip giden günlerine yanarsın.
Dolar gözlerin, için burkulur.
Sevmek ne imiş bir gün anlarsın.
Bir gün anlarsın tadını sevilen dudakların.
Sevilen gözlerin erişilmezliğini.
O hiç beklenmeyen saat geldi mi?
Düşer saçların önüne,
Uzanır, gökyüzüne ellerin.
Ama çaresiz,Ama yorgun,Ama bitkin.
Bir zaman geçmiş günlerin hayaline dalarsın.
Sonra dizilir birbiri ardına gerçekler, acı.
Sevmek ne imiş bir gün anlarsın.
Bir gün anlarsın hayal kurmayı;
Beklemeyi, ümit etmeyi.
Bir kirli gömlek gibi çıkarıp atasın gelir
Bütün vücudunu saran o korkunç geceyi.
Lanet edersin yaşadığına...
Maziden ne kalmışsa yırtar atarsın.
O zaman bir çiçek büyür kalbimde, kendiliğinden.
Seni sevdiğimi işte o gün anlarsın.

Ümit Yaşar OĞUZCAN

02 Ocak 2009 Cuma

31 Aralık

31 aralık sabahı...

sevincliyim yıl bitiyor belki özlem biter belki dertler biter belki yeni yılda daha güzel şeyler olur diye...

31 aralık günün tam otası...

sevincim sanki biraz kayboldu... hala işteyim hala çalışıyorum hala dertlerimde bir azalma yok...

31 aralık akşamı....

canım çok sıkılıyor... kendimi kimsesiz gibi hissediyorum yanlız tekbaşına...

31 aralık gece

aglamak istiyorum... bir yıl daha bitti ölüme bir yıl daha yaklaştım ve hala özlemle doluyum diye...

1 ocak sabahı...

nerde kalmıştık...

27 Aralık 2008 Cumartesi

özür mü dediniz?

bana gelen bir mail daha ....



YIL 1973 Şubat’ı

Erzurum doğumlu 78 yaşındaki Gourgen Mıgırdıç Yanıkyan cinayetten 6 ay önce Başkonsolos Mehmet Baydar’ı makamında ziyaret ederek elinde Beyrut’tan satın aldığı ve sonradan İstanbul’da bir saraydan çalındığını saptadığı bir tablo olduğunu söyleyip "Bunu size hediye etmek istiyorum" dedi ve tablonun resmini bıraktı.Baydar, fotoğrafı Türkiye’ye gönderdi ve araştırılmasını istedi. Bir süre sonra Ankara’dan tablonun çalıntı olduğu bildirildi, alınması istendi. Baydar hemen Yanıkyan’ı aradı ve tabloyu getirmesini istedi. Yanıkyan yaşlı olduğunu, tabloyu kendilerinin gelip almalarını söyledi. Bunun üzerine Baydar, yardımcısı Bahadır Demir’i de alarak yaşlı Ermeni’nin kaldığı Santa Barbara’daki Baltimore Oteli’ne gitti.Yanıkyan’ın odasına çıktılar. Oturur oturmaz yaşlı Ermeni silahını çekip iki diplomatımızı öldürdü.Sonra otel müdürünü arayıp polis çağırmasını istedi. Polis, Yanıkyan’ı götürürken katil, "Ben iki şeytanın canını aldım" dedi.


Yanıkyan, ömür boyu hapis cezasına çarptırıldı. Yıllar sonra Hürriyet’in Amerika muhabiri Doğan Uluç, uzun uğraşların ardından gerekli izinleri alarak ve Yanıkyan’ı da ikna ederek cezaevinde yaşlı Ermeni ile konuştu.

"Ne istiyorsunuz Türkiye’den?"
"Ermeni ve Türklerden oluşan bir konferansta sorun ele alınsın. Konferans Türkleri haksız çıkardığında dünya kamuoyuna, ’Atalarımız, Ermeni halkını katletti. Bundan müteessiriz. Zararları telafi etmek istiyoruz’ desinler. İnsanlık tarihi boyunca Ermenilerin olan yerleri bize versinler. Mallarımızı tazmin etsinler."

"Hangi toprakları?"
"Katliamlar ile elimizden aldığınız Doğu ve Güneydoğu’yu. Ermeni meselesi yıllar önce tam halledilme yoluna girmişken yarıda kaldı. ABD Başkanı Wilson, Osmanlı İmparatorluğu’nun son günlerinde imzalanan Sevr Anlaşması’na, Doğu Anadolu’da bir Ermeni Cumhuriyeti’nin kurulmasını öngören maddeler koydurmuştu. Batı ülkeleri ile ABD bu konuda fikir birliğine varmışlardı. Fakat sonra Mustafa Kemal ortaya çıkarak buna mani oldu. Şimdiki Türk hükümetlerinin Sevr Anlaşması’na yeniden eğilerek Ermenilere ait toprakların geri verilmesine ve bir Ermeni devleti kurulmasına yardım etmelerini istiyorum."

1973 yılında aralarında çok değerli diplomatlarımızın da bulunduğu 70 Türk görevlisini öldüren Ermeni ASALA terör örgütünün işlediği cinayetleri başlatan Yanıkyan’la 1978 yılında yapılan bu konuşmayı gençler okusun ve başlatılan "Özür dileme kampanyası"nı bu gerçekler ışığında değerlendirsinler diye yazdım. T. Türenç

ve bir çok gazete küpürüde var sunumun içinde...

sunumu burdan indirebilirsiniz...


Özür dilemek büyüklüktür... gereksiz yere ve sürekli özür dilemek aptallıktır...

Aptal olmayın kimden neden özür dilediğinizi iyi düşünün...

Özür dilemesi gereken birileri varsa buda yıllardır memleketimizi bölmeye çalışanlara uşaklık eden ermeni milletidir...

18 Aralık 2008 Perşembe

KEŞKE, KEŞKE DEMESEK

11 Aralık 2008 Perşembe

PATRON İŞÇİ İLİŞKİSİ

Patron: Başlangıçta, merak etme çok başarılı olacaksın.











Bir hafta sonra: daha sıkı çalışmalısın!!!





Bir ay sonra şirket için çık daha sıkı çalışmalısın!




3 ay sonra sana çok sıkı çalışmalısın demiştim… duydunmu beni!!!??


08 Aralık 2008 Pazartesi

Kutlama

Şiirsel bir bayram kutlama mesajı yazmak isterdim ama öyle meziyetlere hiçbir zaman vakıf olamadım...
Bununla idare edin işte...
HERKESİN KURBAN BAYRAMI KUTLU OLSUN...

27 Kasım 2008 Perşembe

GETPOINT, GETREAL ve COMMAND FONKSİYONLARI

Getpoint Fonksiyonu

Getpoint fonksiyonu autocad ortamında kullanıcının bir nokta koordinatlarını seçtirmemizi sağlar.

Bu fonksiyon ile iki şekilde girdi yaptırabilirsiniz;

1) Seçilmek istenen noktanın x y z koordinatları biliniyorsa bunları klavye ile aralarına virgül koyarak yazabilirsiniz.
2) Seçilmek istenen nokta tıklayarak seçilebilir.

F1 yardım menüsünde;

(getpoint [pt] [msg])

[pt] ilk nokta, belirtmek zorunlu değil
[msg] kullanıcı iletisi, belirtmek zorunlu değil

şeklinde tanımlanmaktadır.

Misal9:

Bu misalde ilk noktası belli olmayan bir nokta girdisi alacağız.

( getreal "\n Bir Nokta Seçiniz:" ) ;kullanıcıdan bir nokta seçmesi istedik.
Command: Bir Nokta Seçiniz:

Misal10:

Bu misalde kullanıcıdan ilk noktası belli olmayan bir nokta girdisi alacağız.

( getreal pt "\n Bir Nokta Seçiniz:" ) ;kullanıcıdan bir nokta seçmesini istedik.
Command: Birnokta seçiniz:

Bu misaldeki pt daha önceden tanımlanmış bir nokta koordinat listesi olmalıdır. Yani setq ile pt değişkenine bilinen bir noktanın x y z parametreleri atanmış olmalıdır.

Getreal Fonksiyonu

Bu fonksiyon kullanıcının reel sayı girmesini sağlar.

F1 yardım menüsünde;

(getreal [msg])
[msg] kullanıcı iletisi, belirtmek zorunlu değildir

şeklinde tanımlanmaktadır.

Misal11:

Bu misalimizde kullanıcıdan reel sayı girmesini isteyeceğiz.

( getreal "\n Bir Sayı Giriniz:" );kullanıcıdan bir sayı girmesini istedik…
Command: Bir Sayı Giriniz:


Command Fonksiyonu


Bu fonksiyon autocad komutlarını işletmemizi sağlar.


F1 yardım menümüsünde


(command [arguments] ...)


şeklinde tanımlanmaktadır.


Burda arguments yazan yere autocad komutunun adı ve komutun alt basamaklarında iletilen iletilere verilecek cevaplar yer almalıdır.


Misal12:

Bu misalimizde LINE komutunu işleteceğiz.


( command "line" "10, 10, 0" "20, 20, 0" "" );burda line komutu kullanılarak 10, 10, 0 noktasından başlayıp 20, 20, 0 noktasına giden bir çizgi çizdirdik.


Line komutu bu şekilde işletilebileceği gibi daha önceden getreal fonksiyonu ile seçilmiş ve setq fonksiyonu ile bir değişkene atanmış noktalar kullanılarakta işletilebilir.


( command "line" p1 p2 "" );burda daha önceden seçip p1 değişkenine atadığımız noktadan başlayıp p2 noktasında biten bir çizgi çizdirdik.

Bu fonksiyon kullanılırken komutu kullanırken enter girmemizi istediği basamaklarda " " çift tırnak işareti kullanmalıyız ve komuttan çıkmak içinde " " çift tırnak işareti kullanmalıyız.


Buraya kadar öğrendiğimiz fonksiyonlarla autocad ortamında çalışan iki program yazalım...


İlk programımız kullanıcıya iki nokta seçtirerek bir line çizdirmek ve çizginin çizildiğine dair kullanıcıya ileti göndermek.













(defun c:çiz()


(setq p1 (getpoint "\nİlk Noktayı Seçiniz:"))



(setq p2 (getpoint p1 "\nİkinci Noktayı Seçiniz:"))



(command "line" p1 p2 "")



(terpri)



(prompt "Çizgi çizildi...")



)

Satırları tek tek anlamları şöyledir.

Birinci satırda defun fonksiyonu ile programımızı başlattık c: dan sonra tanımlanan kod yani çiz programımızı çalıştırmamızı sağlayacak kod olarak ayarladık.

İkinci satırda kullanıcıdan getpoint fonksiyonu ile bir nokta seçmesini istedik ve setq fonksiyonu ile seçilen bu noktanın koordinatlarını p1 değişkenine atadık.

Üçüncü satırda yine kullanıcıdan birinci noktaya bağlı olarak (seçim yaparken birinci seçtiğimiz noktadan başlayan bir çizgi çıkardık bu çizgi imlecin hareketine göre yün alıyor standart line komutunda olduğu gibi... bunu yapan getpoint fonksiyonundan sonra p1 değişkenini yazmış olmamız eger p1 değişkenini yazmasaydık ikinci nokta seçilirken çizgi görmeyecektik...) getpoint fonksiyonu ile ikinci noktayı seçmesini istedik ve setq fonksiyonu ile noktanın koordinatlarını p2 değişkenine atadık.

Dördüncü satırda command fonksiyonu ile seçtiğimiz p1 noktasından başlayıp p2 noktasında biten bir doğru çizdirdik.

Beşinci satırda kullanıcıya doğrunun çizildiği iletisini yeni bir satırda verebilmek için terpri fonksiyonu ile bir alt satıra geçtik.

Altıncı satırda prompt fonksiyonu ile kullanıcıya çizginin çizildiğini iletisini verdik. Son parantez ile ana fonksiyonumuz olan defun fonksiyonunu kapattık.

Bu programda, içiçe iki fonksiyonun (setq ve getpoint) nasıl yazıldığına ve kullanıcı iletilerinin nasıl yazıldığına dikkat ediniz.

İkinci programımız kullanıcıdan iki sayı girmesini isteyerek, bu sayıların çarpımlarını command satırına yazdıracağız.









(defun c:çarp()

(setq num1 (getreal "\nİlk Sayıyı Giriniz:"))

(setq num2 (getreal "\nİkinci Sayıyı Giriniz:"))

(setq sum (* num1 num2))

(princ sum )
)


Satırları tektek açıklamak gerekirse:

Birinci satırda defun fonksiyonu ile programımızı başlattık ve c: ile programızın çalıştırma kodunu çarp olarak tanımladık.

İkinci satırda getreal fonksiyonu ile kullanıcıdan ilk sayıyı girmesini istedik ve girilen sayıyı setq fonksiyonu ile num1 değişkenine atadık.

Üçüncü satırda getreal fonksiyonu ile kullanıcıdan ikinci sayıyı girmesini istedik ve girilen sayıyı setq fonksiyonu ile num2 değişkenine atadık.

Dördüncü satırda kullanıcıdan aldığımız ve num1 ve num2 değişkenine atadığımız sayıları birbiri ile çarptık ve sonucu setq fonksiyonu ile sum değişkenine atadık.

Beşinci satırda princ fonksiyonu ile sonucu kullanıcıya command satırından bildirdik.

Altıncı satırda ana fonksiyonumuz olan defun fonksiyonunu kapattık.


Bu programımızda içiçe yazılan fonksiyonlara, aritmetik işlemlerin nasıl yazıldığına ve kullanıcıya iletilen iletilerin nasıl yazıldığına dikkat ediniz.

Birdahaki dersimizin konusu autocad sistem değişkenlerinin bir değişkene atanması ve bu değişkenlerin yaniden tanımlanması.