Anasayfa İletişim RSS
Kerim Sarıgül Derslerini Okumak için Tiklayin Joomla'da Kategori Oluşturma
Joomla'da yeni bir kategori ansıl oluşturulur onu öğreneceğiz...
 
Şimdi Üye Ol | Şifremi Unuttum
 
 
 
Anasayfa » Delphi (34 ders)
 
Delphi program formunuzu titretin!

Yazar: Ziya Kahraman  
Eklenme: 01.08.2007   Okunma: 776    Puan: 3.0   Seviyesi:  Balang
Delphi'de hazırladığınız programa MSN'de olduğu gibi bazı koşullarda kullanıcıyı uyarmak ya da olaya mizahi bir özellik katmak için titreşim ekleyebilirsiniz.

Yapmanız gereken şey bu kodları kullanmak:


procedure NudgeWindow(theWinControl: TWinControl; non: integer; wSound: Boolean);

var

i, j, A, AK2: integer;

orgLeft, orgTop: integer;

P: array[1..9] of TPoint;

begin

orgLeft := theWinControl.Left;

orgTop := theWinControl.Top;

A := 5; AK2 := Round(A * sqrt(2));

// sekizgen koordinatlari

P[1] := Point(0, A);

P[2] := Point(-AK2, -AK2);

P[3] := Point(A, 0);

P[4] := Point(-AK2, AK2);

P[5] := Point(0, -A);

P[6] := Point(AK2, AK2);

P[7] := Point(-A, 0);

P[8] := Point(AK2, -AK2);

P[9] := Point(0, A);

// uses kismina MMSystem

if wSound then

    PlaySound(PChar(’SES’), 0, SND_RESOURCE or SND_ASYNC);



for j:=1 to abs(non) do

begin

    theWinControl.Left := orgLeft;

    theWinControl.Top := orgTop;

    for i:=1 to 9 do

    begin

      theWinControl.Left := theWinControl.Left + P.X;

      theWinControl.Top := theWinControl.Top + P.Y;

      theWinControl.Update;

      Sleep(25); // ???

    end;

end;

theWinControl.Left := orgLeft;

theWinControl.Top := orgTop;

end;



Ya da bunu formunuza bir timer nesnesi koyarak da yapabilirsiniz. Nasıl mı? Timer'ı calıştırıp falan ms (milisaniye) aralıkla formun yerini değiştirmesini sağlayarak. Tabi bu da formun ekrandaki yerlerini kodumuzda farklı tanımlayarak yapılabilir. Bence hem bu kodu deneyin, hem de timer'ı... Oldukça eğlenceli bir çalışma olacağını düşünüyorum.

Saygılarımla, herkese kolay gelsin...
 
  • Currently 3.05/5
Değelendirmek için üye girişi yapmanız gerekmektedir
EkleBunu Sosyal Paylam Butonu
Delphi program formunuzu titretin! Dersini Yazdırın

"Delphi program formunuzu titretin!" dersi için 6 yorum var

20.09.2007 vildan diyor ki:
Ben bu programı çalıştıramadım form'a eklememiz gereken herhangi bir nesne yok mu???

22.09.2007 ziyade diyor ki:
Hayır herhangi bir bileşen eklemeye lüzum yok. Zaten burada biz formun farklı noktalara hareket etmesi mantığından yola çıkarak böyle bir işlem gerçekleştiriyoruz.

18.01.2008 arandur diyor ki:
Çalışmadı. playsound sorun verdi.

01.02.2008 solitary diyor ki:
playsound kısmını kaldır.Zaten ses ekleme zorunluluğu yok.

15.02.2008 cakirsoft diyor ki:
yaa ewet bendede play sound kısmı hata verdi
bencede kaldır

08.04.2008 bellas diyor ki:
playsaund hata verir cunku ses dosyasi tanımlamaniz laziim

ye olmadan yorum ekleyemezsiniz !


UYARI: SANALKURS'ta yer alan materyaller ile ilgili her türlü sorumluluk hazırlayan veya gönderene aittir. SANALKURS'ta yer alan hiçbir makale, yazarından izinsiz başka bir yerde yayınlanamaz. SANALKURS kullanıcıları ve üyeleri, üçüncü kişilerin telif hakkı sahibi bulunduğu her türlü fikri eser, fotoğraf, resim vb. materyal ve ürünleri kullanamazlar. SANALKURS kullanıcı ve yazarlarının, üçüncü kişilerin telif hakkı sahibi olduğu yazı, resim vb. ürünleri kullanması durumunda, her türlü hukuki ve cezai sorumluluk kendilerine aittir. Söz konusu haksız kullanım nedeniyle SANALKURS .NET'in hiçbir hukuki sorumluluğu bulunmamakta olup, haksız kullanım nedeniyle SANALKURS.NET'in üçüncü kişilere ödemek zorunda kalabileceği her türlü tazminat ve/veya adli/idari para cezaları ilgili Sanalkurs kullanıcılarından rücu edilecektir.
 İSTATİSTİKLER
XML Kaynağımızdan yararlanarak sitemizdeki derslerimizi masaüstünüzden yada web sitenizden takip edebilirsiniz
ÇEVRİMİÇİ 80 Ziyaretçi, 1 Üye
Alaattin Örsvuran
BUGÜN DOĞUM GÜNÜ OLAN ÜYELERİMİZ:
_by_danger_ (15), ilicli (19),
Bugün: 564, Dün: 4845, Bu Ay: 15542, Toplam Ziyaret: 1043408, Toplam Üye: 92243, Son Üye: yemzet
Toplam Ders: 1644, Toplam Yazar: 40, Toplam Dosya: 43, Toplam Link: 109
   
RSS Kaynağımızdan yararlanarak sitemizdeki derslerimizi masaüstünüzden yada web sitenizden takip edebilirsiniz