Jumat, 23 November 2012
cara membuat judul blog bergerak
Cara Membuat Judul Blog Bergerak - Cara membuat marquee pada judul blog atau cara memodifikasi judul blog agar bisa bergerak dan berjalan. Beberapa waktu lalu saya telah posting artikel mengenai cara membuat teks bergerak di blog, dan kali ini saya akan posting artikel yang sejenis tapi beda dan penerapannya kali ini ini pada judul blog dengan judul artikel cara membuat judul blog bergerak. Langkah-langkah dalam tutorial kali ini saya dapatkan dari salah satu teman blogger saya dengan link berikut (http://www.mfrifanto.com/2012/03/cara-membuat-judul-blog-bergerak.html). Lanjut.. Judul/Title blog secara default, berada dalam keadaan statik. Namun, kita bisa memberikan efek pada judul blog kita dengan kode JavaScript, sehingga bisa bergerak dari kanan ke kiri. Langsung saja berikut ini cara memodifikasi judul blog agar bisa bergerak dan berjalan:
Login ke dashbor blog sobat.
Klik Tata Letak >> Tambah Gadget >> Pilih HTML/Java Script.
Copy dan paste code berikut di HTML/Javascript
Note: Ganti 'Test Blog ...Test Blog ...' dengan teks yang diinginkan.
Save/Simpan, dan lihat hasilnya.
Saya kira cukup penjelasan mengenai cara membuat judul blog bergerak kali ini. Semoga bermanfaat.
Kamis, 22 November 2012
membuat animasi text berkedap-kedip dengan delphi
Membuat animasi text berkedip-kedip dengan Delphi
procedure
TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Visible then Label1.Visible:=False
else label1.Visible:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
end;
Logika program :
Program animasi timer iniakanmenampilkantulisan yang adapada label1 menjadiberkedip – kedipdenganmemanfaatkan timer pada Delphi.
procedure TForm1.Timer1Timer(Sender: TObject);
kodediatasmenandakanbahwa statement – statement yang adadalamblok program dibawahnyamerupakan statement yang akandilakukansaat TForm1 ditampilkandenganmenggunakankomponen timer.ini berarti statement – statement yang adaakanlangsungdijalankansaat program running.
begin
if Label1.Visible then Label1.Visible:=False
else label1.Visible:=True;
end;
metode visible padakodediatasberfungsiuntukmenentukanapakahsuatukomponenatauobjekditampilkanatautidaksaat program dijalankan.jadikodediatasberartijikanilaidari label1.visible bernilai true dengan kata lain label1 ditampilkandalamTform, makanilaidari label1.visible akkandirubahmenjadi false, sehingga label1 tidakditampilkandalamTform.danbilanilai label1.visible tidakbernilai true, makanilainyaakandirubahmenjadifalse.statementiniakanmenyebabkannilaidari label1.visible akanberubah-rubahnilainyadari true menjadi false dansebaliknyasetiap interval waktuberganti.jadidengan kata lain label1 akanditampilkankemudianakantidakterlihatselama interval waktu yang telahditentukanpada timer
procedure TForm1.Button1Click(Sender: TObject);
kodediatasmenandakanbahwa statement – statement yang adapadablok program dibawahnyamerupakan statement yang akandilakukansaat button1 diklik.
begin
application.Terminate;
end;
sepertitelahdijelaskansebelumnya, program iniakanmenampilkantulisan yang adapada label1 seolah – olahberkedip – kedipsesuaidengan interval waktu yang ditentukan.tetapi, timer akanterusberjalansampai program dikeluarkanatau di close.jadiperludibuatsatu button untukmembuatefekanimasiberhenti.kodediatasberfungsiuntukmenghentikanaplikasi yang sedangberjalan.jadi, saat button1 diklik timer akandihentikandankeluardari program.
begin
if Label1.Visible then Label1.Visible:=False
else label1.Visible:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
application.Terminate;
end;
Logika program :
Program animasi timer iniakanmenampilkantulisan yang adapada label1 menjadiberkedip – kedipdenganmemanfaatkan timer pada Delphi.
procedure TForm1.Timer1Timer(Sender: TObject);
kodediatasmenandakanbahwa statement – statement yang adadalamblok program dibawahnyamerupakan statement yang akandilakukansaat TForm1 ditampilkandenganmenggunakankomponen timer.ini berarti statement – statement yang adaakanlangsungdijalankansaat program running.
begin
if Label1.Visible then Label1.Visible:=False
else label1.Visible:=True;
end;
metode visible padakodediatasberfungsiuntukmenentukanapakahsuatukomponenatauobjekditampilkanatautidaksaat program dijalankan.jadikodediatasberartijikanilaidari label1.visible bernilai true dengan kata lain label1 ditampilkandalamTform, makanilaidari label1.visible akkandirubahmenjadi false, sehingga label1 tidakditampilkandalamTform.danbilanilai label1.visible tidakbernilai true, makanilainyaakandirubahmenjadifalse.statementiniakanmenyebabkannilaidari label1.visible akanberubah-rubahnilainyadari true menjadi false dansebaliknyasetiap interval waktuberganti.jadidengan kata lain label1 akanditampilkankemudianakantidakterlihatselama interval waktu yang telahditentukanpada timer
procedure TForm1.Button1Click(Sender: TObject);
kodediatasmenandakanbahwa statement – statement yang adapadablok program dibawahnyamerupakan statement yang akandilakukansaat button1 diklik.
begin
application.Terminate;
end;
sepertitelahdijelaskansebelumnya, program iniakanmenampilkantulisan yang adapada label1 seolah – olahberkedip – kedipsesuaidengan interval waktu yang ditentukan.tetapi, timer akanterusberjalansampai program dikeluarkanatau di close.jadiperludibuatsatu button untukmembuatefekanimasiberhenti.kodediatasberfungsiuntukmenghentikanaplikasi yang sedangberjalan.jadi, saat button1 diklik timer akandihentikandankeluardari program.
Langganan:
Postingan (Atom)