kazimyaver | Kasım 2012

#bimilyonneden: Vapur

#bimilyonneden furyasına ben de katıldım bugün. Vapurda yaşadığım traji komik bir olayı paylaştım. Merak edersen gir bak #bimilyonneden hashtagiyle Twitter’da yazıyorum. Hatta http://www.bimilyonneden.com/ sitesinde bile çıktı. Bu arada telaşlanma, hikaye mutlu sonla bitiyor.


Bir bumads advertorial içeriğidir.

Delphi Yazıları Tersten Yazdırma

procedure TForm1.Button1Click(Sender: TObject);
var
ters:string;
i:integer;

begin
ters:='';
begin

memo2.Text := memo1.Text;

for i:= length(memo2.text) downto 1 do
ters:= ters+copy(memo2.text,i,1);


memo2.Text:=ters;

end;
end;


Memo nesnesinde ki karakter sayısını buluan Delphi Programı

procedure TForm1.Button1Click(Sender: TObject);
var
metin:AnsiString;
uzunluk:Integer;

begin
metin:=Memo1.Text;
uzunluk:=Length(metin);

Edit1.Text:=IntToStr(uzunluk);

end;
end.

Resim ekleme MainMenuden..

procedure TForm1.ResimEkle1Click(Sender: TObject);
var
alsana: String;
begin
OpenPictureDialog1.Execute;
alsana:=OpenPictureDialog1.FileName;
Image1.Picture.LoadFromFile(alsana);
end;
end.


Memo nesnesindeki texti txt dosyasına kaydetme..

 
procedure TForm1.Button3Click(Sender: TObject);
var
dosya:AnsiString;
begin

SaveDialog1.DefaultExt:='txt';
SaveDialog1.InitialDir:='c:\';

if SaveDialog1.Execute Then
begin
dosya:=SaveDialog1.FileName;
Memo1.Lines.SaveToFile(dosya);
end;
end;

end.

Facebook Hesap Silme

Artık Facebook hesabınızdan tamamen kurtulmak isteyenlerin izleyeceği yol. 

Buraya Tıklayarak , oturum açmanızı isterse bu işlemi gerçekleştirin. Ve bu sayfadan hesabınızı silebilirsiniz.

İşlemleri gerçekleştirin ve onaylayın. 

14 Gün boyunca hesabınıza erişim gerçekleştirmezseniz hesabınız tamamen silinecektir. 

Not:Facebook connect ile oturum açtığınız sitelere gidin ve hesaplarınızı kapatın. Yani Facebook dışındaki sitelerde Facebook bilgileri ile oturum açtığınız sitelerle ilişkinizi kesin. Bu sitelere iptal süreci içerisinde oturum açarsanız, hesabınız tekrar dirilecek ve baştan başlamanız gerekecektir.

 

PHP Dört İşlem Ders Notu

:) Basit ama bir o kadarda başlangıç için ideal bir kod yapısı.. Buyrun burdan yakın;

<?                          /*Açıklama Satırı*/


printf('Sayılar ve İşlem Sonucları aşağıdadır');     #Açıklama Satırı
?>

 <table border="3" width="40%" >
  <tr>
    <td width="20%"><b>1 Sayi </b></td>
    <td width="20%">
    <?printf($sayi1);?></td>
  </tr>
  <tr>
    <td width="20%"><b>2. Sayi :</b></td>
    <td width="20%"><?printf($sayi2);?></td>
  </tr>

  <tr>
    <td width="20%"><b>Sonuç</b></td>
    <td width="20%"><?
                       if ($find =='+')  $sonuc=$sayi1+$sayi2;
                       if ($find =='-')  $sonuc=$sayi1-$sayi2;
                       if ($find =='*')  $sonuc=$sayi1*$sayi2;
                       if ($find =='/')  $sonuc=$sayi1/$sayi2;

                       printf($sonuc);
     ?></td>
  </tr>

  </table>

İyi Çalışmalar

On Parmak Klavye Eğitimi

Merhaba arkadaşlar geç kalınmış olsa da hoş ve oldukça eğitici bir sistem. Google Chrome'nın desteği ile eklenti şeklinde veya doğrudan Type Fu kendi sitesinden çalışmaya başlayabilirsiniz.

Uygulama web üzerinde çalışmakta ekran görüntüleri;

Sizin yazmanız ile hangi harfe basacağınızı ekranda gösteriyor.

 

 

Yazım hatalarında yazdığınız karakteri kırmızı olarak göstermekte. Sonuç olarak ekranın sağ tarafında değerlendirme yer almaktadır.

İşine yarayacak arkadaşlar olur :)

Buradan ulaşabilirsiniz.

Delphi Hesap Makinesi

Merhaba arkadaşlar Delphi ile yapılan bir hesap makinesi uygulaması. Kodları inceleyerek ve geliştirerek, kodlar hakkında fikir edinebilirsiniz.

Uygulama ve kodları buradan indirebilirsiniz iyi çalışmalar :) 

hesap.rar (174,14 kb)