wp kiss teması (yeni temam)
Yeni kullanmaya başladığım tema Oinam tarafından yapılmış Kiss Teması. Oldukça sade olan temanın orijinali üzerinde pek fazla değişiklik yapmadım sadece kendime göre ufak değişiklikler yaptım.
Aslında kendime özgün bir temam olsun istiyordum fakat cesaret edemedim. Bu tema oldukça kullanışlı ve sade ayrıca işler yolunda giderse yeni tasarım üzerinde reklam gösterimi yapmayı da planlamıyorum.
Orijinal temayı şuradan indirebilirsiniz. Benim üzerimde yaptığım değişiklikler ise;
- Temayı türkçeye çevirdim
- Sidebar’ın tekil sayfalarda da görünmesini sağladım
- Yazı başlıkları varsayılan olarak büyük harf e çevriliyor fakat türkçe karakter sorunu oluşuyordu bu nedenle font boyutunu büyütüp, karakter arası boşluğu azaltıp büyük harf e çevirmeden kullanacak şekilde düzenledim
- Yazı başlıklarına bağlantı ekledim
- Bağlantılar kısmı çok ayrıntılıydı onu sadeleştirdim
- Tema genişliğini biraz arttırdım (%20ye yakın)
- Sayfa bağlantılarını sidebardan kaldırıp header altına ekledim
- Bunun haricinde ufak tefek değişiklikler…
Eski temam ise http://tema.yakuter.com/ üzerinde görebileceğiniz Sodelicious temasıydı. Kiss temasını gördükten sonra Sodelicious çok karışık gelmeye başladı.
Yeni temayı bir kaç saat önce gördüm çevirdim düzenledim ve kullanmaya başladım bu nedenle elbet hatalar yapmışımdır fakat henüz göremedim, gören arkadaşlar haber verirse sevinirim.
damacana sular neden 19 litredir?
Çeşme sularını içemiyoruz artık! Öyle klor kokuyorki bazen İstanbulda elimi yüzümü bile yıkamak istemiyorum. Bu nedenle çoğu kişi damacana su alıyor evine, işyerine. İşte bu vesileyle tanıştık damacanayla.
Damacana kelimesinin kökeni hakkında kutsal bilgi kaynağında bir yazı : #damacana/12
Damacana pompasının hikayesi : #damacana/11
Her şey iyi güzel de bu damacanalar neden 19litre? 20 değil, 15 değil. 19 çok ilginç bi rakam.
Bunun sebebi kullandığımız damacanaların sıvıların hacmini litre ile ölçen kişilerce değilde galon diye tabir edilen 3.79 litreye denk gelen ölçü birimini kullanan Amerikalılar tarafından yapılmış olması. Bizim damacanalar 5 galon olarak satışa çıksaydı belki alışırdık belki de içine ne koymuşlar diye kimse almazdı. Yani 3.79*5 yaklaşık olarak 19litre bizim damacanalarda o nedenle 19 litre.
Her yeni damacanada galon hesabını hatırlayalım lütfen!
iki sayı arasındaki asal sayılar
bu da çok eskiden yazdığım bir kod, o zamanlar visual basic kullanmışım ondan sonra bir daha visual basic kullandığımı sanmıyorum :). kodlar çok saçma veya gereksiz olabilir ama hatıra olsun diye üzerinde hiç bir değişiklik yapmadan yayınlayacağım.
programın yaptığı, yazdığınız iki sayı arasındaki asal sayıları bulmak. çalışmasını denemek için 2 Listbox, 2 Textbox, 1 Command Box eklemelisiniz.
Dim a, b, i, c As Long
Private Sub Command1_Click()
List1.Clear 'list1 i temizliyelim ki 2. kez araninca üst üste binmesin'
k = Val(Text1.Text) - 1 'k yi ilk sayidan bir eksige ayarliyoruz cunku sonra ekliycez'
l = Val(Text2.Text) - 1 '2. sayiyi dahil etmemek icin ondan da 1 cikariyoruz'
1: 'eger sayi asal degilse burdan baslasin'
k = k + 1 'iste k ye 1 ekliyoruz "soz verdigimiz gibi"'
For a = k To l 'k ile l arasindaki sayilar'
c = a 2 + 1 'iste program fazla yorulmasin diye yarisina kadar aratiyorz'
For i = 2 To c 'yarisina kadar aratmamin sebebi yarisindan büyük'
'bir sayiya zaten bölünemiyecegi'
b = a Mod (i) 'daha basit bir kod olsun diye modu kullandim'
If b = 0 Then GoTo 1 'eger sayimiz asal degilse yeni sayi denemek icin basa dönsün'
Next i '...'
List1.AddItem (a) 'eger sayi for döngüsünden kurtuldu ise asal demektir ve'
'list e eklenmeye hak kazanmıstir'
Next a '...'
End Sub 'sizce analamsiz kodlar olabilir ama bu benim ilk projem'
've sanirim ÖSS sinavina hazirlanmamdan dolayi 2. si'
'uzun bir zaman sonra olacak'
delphi ile heceleme programı
çok önceden delphi ile yaptığım bir heceleme algoritması. uzun zaman sonra görünce, buraya da yazmak istedim. programın algoritmasını yazarken nasıl hecelediğimizi keşfetmiştim. o nedenle severim bu algoritmayı. ayrıca bu ve benzeri kodları yayınlarken kodları renklendirebileceğim bi wp plugini bilen var mı?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ALScrollingText;
type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function sesli(harf:string):boolean;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function tform1.sesli(harf:string):boolean;
begin
result:=false;
if harf='a'then result:=true;
if harf='e'then result:=true;
if harf='ı'then result:=true;
if harf='i'then result:=true;
if harf='o'then result:=true;
if harf='ö'then result:=true;
if harf='u'then result:=true;
if harf='ü'then result:=true;
if harf='A'then result:=true;
if harf='E'then result:=true;
if harf='I'then result:=true;
if harf='İ'then result:=true;
if harf='O'then result:=true;
if harf='Ö'then result:=true;
if harf='U'then result:=true;
if harf='Ü'then result:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Memo2.Text := EmptyStr;
for i := 1 to length(Memo1.Text) do
begin
if
not sesli(copy(Memo1.Text,i,1))
and sesli(copy(Memo1.Text,i+1,1))
and not (copy(Memo1.Text,i,1)=' ')
and not (copy(Memo1.Text,i-1,1)=' ')
and not (copy(Memo1.Text,i+1,1)=' ')
then
begin
Memo2.text := Memo2.text+'-';
end;
if sesli(copy(memo1.Text,i,1))
and sesli(copy(memo1.Text,i-1,1))
then
begin
Memo2.text := Memo2.text+'-';
end;
Memo2.Text := Memo2.Text + copy(Memo1.Text,i,1);
end;
if copy(Memo2.Text,1,1) = '-' then
begin
Memo2.Text := copy(Memo2.Text,2,length(Memo2.text)-1);
end;
end;
end.
internette daha az zaman nasıl harcanır?
İnternet zamanla okuduğumuz gazetelerin, kitapların yerini aldı daha sonra televizyonun yerini almaya başladı. Artık gazete neredeyse hiç okumuyoruz, televizyon programlarını da video sitelerinden izler olduk. İstediğimiz zaman isteiğimiz programı seyrediyoruz, reklamlara takılmıyoruz aslında zaman kazanmaya başladık. Daha sonra belki de en kolay olarak sosyal hayatımızı internete aktardık, bilgisayar başında saatlerce sohbet ettik birbirimizi göz kırptık, çiçek yolladık, poke’ladık en sonunda hayatımızın büyük bölümünü bilgisayar başında geçirir olduk ki mutfağa bile daha az girer olduk, alışverişe daha az çıkar olduk.
Bütün alışkanlarıklarımızı hâlâ yerine getiriyoruz ama hepsini internet üzerinden yerine getiriyoruz ve bu artık biraz canımızı sıktı. Biz farkettik veya başkaları bize söyledi internet başında çok fazla zaman harcadığımızı. Aslında bu saydıklarımızı internet olmadan yapsak hiç birine bu kadar zaman ayıramayacağız, bu iyi birşey ama abartmak kötü birşey ve abarttığımızı düşünüyorsak abartıyoruzdur.
İnternet başında geçirilen vakti azaltmak için öncelikle boşa geçirdiğimiz vakitleri kısmak gerekli, örneğin acaba yeni bir posta gelmiş mi diye tekrar tekrar kontrol edilen bloglar ve rss si olan herhangi bir internet sitesini google reader ile takip etmek.
o kadar çok sitenin rss takip sistemi varki Firefox ta adres çubuğunun sonunda, İnternet Explorer da sekmelerin bulunduğu sıranın sonrasında
bu işareti gördüğünüz her sitede rss takip özelliğini kullanabilirsiniz.
Anasayfamızı google kişiselleştirilebilir sayfası yapmak ve gmail kullanmak sürekli maillerimizi kontrol etmemizi engeller. Ayrıca google reader gadget ını da anasayfamıza ekleyerek son gelen rss leri yine anasayfanızdan takip edebiliriz.
Daha az zaman harcamanın bir başka yolu da forum sitelerinden uzak durmak, çünkü forum sitelerinde sürekli yeni bişeyler ekleniyor ve bunların çoğu gereksiz bilgilerden oluşuyor ayrıca sürekli aynı şeyler dönüp duruyor. Forum sitelerinin birde bizi bağlayan bir yanı var reputation, bu yazar bu kadar post yazdı, o çaylak bu usta şu da komando misali sıralamar. Bence en güzeli bırakalım gitsin..
İnternette daha az zaman geçirmenin bir diğer yolu da Messenger programlarında eğer mümkünse çevrimdışı görünmek, ve ufak bir ayrıntı ama selamlaşmalar
-ben çıkıyorum
-hadi görüşrüz
-ok öptüm by
-by iyi geceler
-sana da iyi geceler
-sonra görüşürüz
-ok cnm görüşrüz, kendine iyi bak
-sende kib. by by
-byby
bırakırsan bu böyle devam eder.
İnternet üzerinde daha az zaman harcamak için öncelikle boş zamanlarınızda ne yapacağınızı kararlaştırmanız gerekli, sadece interneti bırakmakla olmaz.
Kitap okuyun “Ayrıntı yayınlarının yeraltı edebiyatı gerçekten ilginç, hem size sadece interneti değil tüm alışkanlıklarınızı da bırakmanızı sağlayabilir :)”
Film seyredin “İzlemeyi ertelediğiniz ne kadar çok film vardır kimbilir, işte tam sırası hafta da birkaç gece bir film izleyin”
Arkadaşlarınızla gezin, dışarı çıkın, havalar ısındı şehrinizin görmediğiniz yerlerine gidin, yeni arkadaşlar edinin, eylenin vs vs
İnternette daha az zaman geçirmenin yolu zaman kayıplarını önlemek diyorduk, bunun için mutlaka delicious benzeri bir site kullanmak, ben http://del.icio.us/ kullanıyorum çünkü firefox eklentisi ile birlikte çok basit oluyor kullanması. delicious bize zaman kazandırır çünkü daha önce gezdiğimiz siteleri arayıp bulmakta zorlanmayız, çünkü hoşumuza giden daha sonra kullanacağımız siteleri hemen kaydederiz.
Ve evde bir kadınla yaşayın, çünkü size sürekli bilgisayar başından kalkmanızı hatırlatacaktır.. “sanırım benimde artık kalkmam gerekiyor” :)
empati
Edebiyat duyguları anlatma sanatıdır.
Yaşamınızın kontrolü sizde değil!
Öyle olduğunu düşünebilirsiniz, ama yanılıyorsunuz.
Elbette ki kendi kararlarınızı kendiniz vermekte özgürsünüz.
Bu kitabı kapatabilirsiniz.
O sandalyede oturmaya devam edebilirsiniz.
Ya da gözlerinizi oymak gibi çılgınca bir şey yapabilirsiniz.
Ne isterseniz yapabilirsiniz.
Ama sorun şurada: Ne isteyeceğinizi kontrol edemezsiniz.
Her davranışınızı önceden belirleyen arzularınız ruhunuzun okadar derinlerine işlemiştir ki, onlara dikkat bile etmezsiniz.
Ve bu da sizi mükemmel bir köle yapar.
Bu nedenle, hayatınızı yaşamaya devam edin. Ne isterseniz yapın.
Sadece ‘isteklerinizin’ tümüyle sizin kontrolünüzde olmadığı gerçeği üzerine kafanızı çok fazla yormamaya çalışın. (Empati, Adam Fawer, Arka Kapak)
ebay’den tekrar nasıl hesap makinesi alınmaz
Ebay’den nasıl hesap makinesi alınmaz yazısını yazdığımda tekrar Ebay’den tekrar hesap makinesi aldığımı (en azından sipariş ettiğimi) söylemiştim. Sözü fazla uzatmıyorum benzer şekilde olaylar gelişti ve yine gelmedi hesap makinem. Dönem bittikten sonra gelseydi de pek yararı olmazdı. Bende iyice düşündüm de galiba hesap makinesine ihtiyacım yok.